00489F3C |> 8B45 FC /MOV EAX,DWORD PTR SS:[EBP-4]
00489F3F |. 0FB67438 FF |MOVZX ESI,BYTE PTR DS:[EAX+EDI-1] ; берём по одной букве из нашего имени
00489F44 |. 8D55 F0 |LEA EDX,DWORD PTR SS:[EBP-10]
00489F47 |. 8BC6 |MOV EAX,ESI ; тут что-то каму-то передаём, посмотрите в отладчике :)
00489F49 |. E8 26FFFFFF |CALL disk.00489E74 ; что-то там вызываем :))
00489F4E |. 8B55 F0 |MOV EDX,DWORD PTR SS:[EBP-10]
00489F51 |. 8D45 F4 |LEA EAX,DWORD PTR SS:[EBP-C]
00489F54 |. E8 03ADF7FF |CALL disk.00404C5C ; что-то там вызываем :))
00489F59 |. 47 |INC EDI ; увеличиваем EDI на 1
00489F5A |. 4B |DEC EBX
00489F5B |.^75 DF JNZ SHORT disk.00489F3C ; looping (повторяем пока не закончатся знаки в нашем имени)
Вот это место где происходит вся генерация нашего серийника. Тут в частности надо знать что находится в EDI. А то, что находится в EDI я посмотрел в SoftICE. Там увидел вот что - CMW273333- Вот это и есть гвоздь программы :) Ну а дальше всё просто:
прога берёт наше NAME, затем смотрит из скоки символов она состоит, добавляет длину имени к CMW273333, ну а дальше после ’-’ идёт HEX код нашего имени. Сложно? :)) ОК вот пример:
Допустим мы ввели произвольное имя specz :)) HEX код этого имени (737065637A). specz 25 then //ограничиваем длину имени
begin //ограничиваем длину имени
Edit2.Text:=’Имя не больше 25 знаков’; //ограничиваем длину имени
exit;
end;
scet:=33+len; // добавляем к 33 длину нашего имени
Edit2.Text:=’CMW2733’+inttostr(scet)+’-’; // вывод всего безобразия в Edit2
for i:=1 to len do // тут начинается сама процедура
begin
t:=Ord(name[i]); // перевод имени в ASCII
last:=InttoHex(t, 2); // перевод имени в HEX
Edit2.Text:= Edit2.Text+(last); // вывод всего безобразия в Edit2
end;
end;
Вот и вся любовь. Если кому впадлу использовать функцию copy&paste тогда вот !работающий! кейген :). За статью не отвечаю, ибо ещё сам являюсь в этом деле newbie поэтому могут быть ашипки :))..
Будут вопросы мыльте, всегда рад принять пару тысяч писем со спамом :)).
Adioz...
R106276538945
Z160640024212
410011190732605
0
