The Art of Reversing by Ap0x - Tutoriali.org

pozabavimo samim algoritmom da bismo saznali sto je vise moguce o
samom algoritmu. Evo kako izgleda deo koda koji sluzi za generisanje tacnog
serijskog broja:
0044FB13 |> /8B45 EC
0044FB16 |. |0FB64408 FF
0044FB1B |. |0FAF45 DC
0044FB1F |. |0145 E0
0044FB22 |. |41
0044FB23 |. |4A
0044FB24 |.^\75 ED
/MOV EAX,DWORD PTR SS:[EBP-14]
|MOVZX EAX,BYTE PTR DS:[EAX+ECX-1]
|IMUL EAX,DWORD PTR SS:[EBP-24]
|ADD DWORD PTR SS:[EBP-20],EAX
|INC ECX
|DEC EDX
\JNZ SHORT crackme#.0044FB13
Objasnicemo sta se ovde desava red po red.
- Prvo se na adresi 0044FB13 u EAX smestaju imena prva dva
direktorijuma dodata jedno na drugo.
- Na adresi 0044FB16 se u EAX smesta jedno po jedno slovo stringa
dobijenog sabiranjem imena foldera. EAX sadrzi hex vrednost ASCIIja
tog slova a ne sam ASCII !!!
- Potom se EAX mnozi sa sadrzajem adrese EBP-24. Da bismo saznali sa
cime se to mnozi EAX selektovacemo sledeci red sa ekrana:
Stack SS:[0012F3DC]=00000043
EAX=0000004C
i pritisnucemo desno dugme -> Follow in dump... sto ce nas odvesti
ovde:
0012F3DC 43 00 00 00 00 00 00 00 C.......
kao sto vidimo EAX se mnozi sa ASCIIjem slova uredjaja na kojem se
nalazi crackme (e.g. C:\, D:\,...)
- Na adresi 0044FB1F se na sadrzaj adrese EBP-20 dodaje vrednost
EAXa. Posto je u prvom prolazu EBP-20 jednak nuli zakljucujemo da ce
se ovde naci rezultat svih sabiranja EAXa + EBP-20.
- Ostali redovi nam samo govore koliko ce se puta izvrsiti ovaj loop. Taj
broj je jednak duzini stringa koji se dobije dodavanjem imena dva
foldera jednog na drugo.
Mislim da je sada svima jasno kako treba napraviti keygen. Prvo treba uneti
dva bilo koja imena foldera tako da je duzina prvog imena foldera sest a
drugog pet. Posle ovoga koristeci formulu iz loopa treba odrediti ime treceg
podfoldera koji ce se sastojati samo od brojeva. Ovaj algoritam ce izgledati
bas ovako:
var
drv,nrd:string;
i,tmp,eax:integer;
begin
Drv := ComboBox1.Text;
nrd := '';
for i := 1 to 11 do begin
nrd := nrd + Chr(65 + Random(25));
end;
tmp := 0;
eax := 1;
for i := 1 to length(nrd) do begin
eax := Ord(nrd[i]);
eax := eax * ord(Drv[1]);
tmp := tmp + eax;
end;
nrd := Drv + nrd[1] + nrd[2] + nrd[3] + nrd[4] + nrd[5] + nrd[6] + '\' + nrd[7] + nrd[8] +
nrd[9] + nrd[10] + nrd[11] + '\' + IntToStr(tmp);
Edit1.Text := nrd;
Ceo source i kompajlovani .exe fajl se nalaze u folderu ..\Cas12\KeyGen\
The Art of Reversing by Ap0x Page 271 of 293