Привет всем!!! Я новичок в крэгинге(и программировании тоже) и поэтому сейчас учусь взламывая крэкми. Битхак освоил, теперь хочется посложнее. Вот и решил попробовать написать кейген. Тренируюсь на крэкми CrueHead’а (т.е. крэкми, который описывает взлом Р. Нарваха в своем цикле статей). Генерацию пароля нашел, но никак не получается сделать кейген да Делфи. Вот привожу найденную мною процедуру:


XOR EDI, EDI ; Очистка регистров
XOR EBX, EBX
M1: MOV BL, BYTE PTR DS:[ESI] ; В ESI заносится введенное имя
TEST BL, BL
JE M2
ADD EDI, EBX
INC ESI ; Следующий символ
JMP M1
M2: XOR EDI, 5678
MOV EAX, EDI ; Копируем все наши вычисления в EAX
XOR EAX, 1234
MOV key, EAX


Помогите всё выше описанное перевести в Делфи. Заранее спасибо!
Вот крэкми на всякий случай : http://wasm.ru/pub/23/files/ollydbg01-Crackme.zip http://wasm.ru/pub/23/files/ollydbg01-Crackme.zip

| Сообщение посчитали полезным:

И что тут непонятного?

XOR EDI, EDI ; Очистка регистров
XOR EBX, EBX
Как ты и сам написал - это очистка регистров

M1: MOV BL, BYTE PTR DS:[ESI] ; В ESI заносится введенное имя
TEST BL, BL
JE M2
ADD EDI, EBX
INC ESI ; Следующий символ
JMP M1
Тут к EDI прибавляются Hex-коды всех символов в имени

M2: XOR EDI, 5678
MOV EAX, EDI ; Копируем все наши вычисления в EAX
XOR EAX, 1234
MOV key, EAX
Тут полученное значение ксорится сначала на 5678, потом на 1234

Вот и переводи это на Delphi. Если не знаешь синтаксиса языка в Delphi - придется его учить

| Сообщение посчитали полезным:

Что Делфи учить надо это понятно. А можете ради примера написать что да как? Ведь учить делфи тока начал и хочется сделать свой первый кейген

| Сообщение посчитали полезным:

Как их ваще писать кейгены?! Вот попробывал написать:
var
nam:String;
Key:cardinal;
begin
nam:=Edit1.text;
asm
// введённое имя в name
XOR EDI, EDI
XOR EBX, EBX
M1: MOV BL, BYTE PTR DS:[nam] // по этому адресу вводится в буфертекст
TEST BL, BL
JE M2
ADD EDI, EBX
INC nam
JMP M1
M2: XOR EDI, 5678h
MOV EAX, EDI
xor eax,1234
mov key,ebx переменная для хранения верного пароля

end;
Edit2.text:=IntToStr(key); // здесь ошибка!!!
end;


Это понятно, что чушь написал. Не могли бы вы исправить? Пожалуйста!

| Сообщение посчитали полезным:

Ты фигню написал.
M1: MOV BL, BYTE PTR DS:[nam] - вот тут у тебя вообще неизвестно что получится (если получится вообще).

Учи Delphi и пиши без asm-вставок

| Сообщение посчитали полезным:

Isaev
Ну зачем ты так? Он же теперь только и будет халяву искать, вместо того чтобы самому научиться чему-нибудь

| Сообщение посчитали полезным:

tihiy_grom
Изучать новый язык сложно, это маленький пример для синтаксиса
Следующий кейген он же тоже тут спросит, вот тут и помучаем

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным:

Спасибо за совет!!! Да нет я не буду больше просить писать мне кейгены. Надо учить и стараться самому!!! Ну надо же хоть иметь какие то примеры!

| Сообщение посчитали полезным:

А немогли бы вы пояснить откуда взялось 17484?

| Сообщение посчитали полезным:

MalKolm пишет:

А немогли бы вы пояснить откуда взялось 17484?
Исаев уже пояснил ведь:
Isaev пишет:
$5678 Xor $1234 = 17484;

| Сообщение посчитали полезным:

MalKolm пишет:
Что Делфи учить надо это понятно. А можете ради примера написать что да как? Ведь учить делфи тока начал и хочется сделать свой первый кейген
Вопрос не в том какой язык программирования начал учить, а в том, что надо научиться понимать логику программы, очень хорошо помогает бумага и карандаш. Только не рисуй алгоритмы - просто пиши по-очереди что делал и что получил.
Очень тяжело следить за логикой программы при использовании 2-х языков программирования (т.е. asm вставок), да и компилятор Делфи может чудеса творить, ведь asm вставка это не совсем доступ к реальным регистрам процессора, а так - ещё один способ работы с переменными.

Меня тут недавно поправили, ну так и я поправлю:

MalKolm ТЕМУ ЗАКРОЙ

| Сообщение посчитали полезным:

Удалил

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

| Сообщение посчитали полезным:

Всем огромное спасибо за советы!!! Я разобралался в коде.

| Сообщение посчитали полезным: