Go0o$E first CrackMe

[Go0o$E]

Ну что ж, решил, наконец, сделать "защиту" для программы, а не ломать ее. Вот так с большим трудом и получился мой первый CrackMe's. Надеюсь, что он хотя бы пять минут продержится в опытных руках наших реверсеров. :rolleyes:

http://rapidshare.de/files/30526319/CrackMe.rar.html

[hidden]

Ye$! y0u d0 !t =)
Дельфи ужастная штука :)

[BUG(O)R]

Не 5 минут, а целых 8 продержался) Хотя если бы не ООП в делфи и не сотня процедур обёрток, то времени ушло бы гораздо меньше.

[ProTeuS]

Ye$! You Do !t =)
6 минут =)

[ProTeuS]

ах да, вот:


L020:
MOV EAX,DWORD PTR SS:[EBP-8] //ip
MOV BL,BYTE PTR DS:[EAX+ESI-1] //2 байт
MOV EAX,DWORD PTR SS:[EBP-C] //"asdfasdfasdfasdf"
MOV AL,BYTE PTR DS:[EAX+ESI-1]
XOR BL,AL
LEA EAX,DWORD PTR SS:[EBP-1C]
MOV EDX,EBX
CALL CrackMe.00403FF8
MOV EDX,DWORD PTR SS:[EBP-1C]
LEA EAX,DWORD PTR SS:[EBP-10]
CALL CrackMe.004040D8
INC ESI
DEC EDI
JNZ L020


или

function Keygen(ip, asdf:string) :string;
var
i: integer;
begin
result := '';
for i:=1 to 13 do
begin
result := result + chr(ord(ip[i]) xor ord(asdf[i]));
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage (KeyGen('217.112.37.32', 'asdfasdfasdfasdf'));
end;

[Go0o$E]

Эх... Ну ладно, буду думать над вторым, более надежным и заковыристым. =)

[slider]

45 секунт ..... клянусь!!!!!!! =)
Я прогу давно соорудил акиватор =)
Если надо то выложу! =)

Чувство гордости переполняет! =)

Ye$! YOu DO !t =)

[slider]

Вот скрины работы с прогой =)
http://crackmeslider.narod.ru/Screen.rar

[bul.666]

Открываем крэкми в Resource Hacker.

Открываем RCData->TFORM1->0
Зырим:
object Label1: TLabel
Caption = 'Ye$! Y0u D0 !t =)'

Скока времени потратилось, думаем сами...