The Art of Reversing by Ap0x - Tutoriali.org

asm
{Pocetak ASM bloka}
XOR ESI,ESI {Dodali smo ovu ASM komandu}
MOV ESI,serial{U delphiju i unutar ASM bloka mozemo koristiti sve promenljive}
MOV EBX,slovo{koje su definisane unutar procedure koju koristimo}
XOR EBX,EBX
MOV EBX,EDX
IMUL EBX,EDX
ADD ESI,EBX
MOV EBX,EDX
SAR EBX,1
ADD ESI,EBX
SUB ESI,EDX
MOV serial,ESI {ESI registar brise po zavrsetku bloka pa ga moramo sacuvati u promenljivoj}
end;
{Kraj ASM bloka}
Ono sto smo ovde dodali je brisanje ESIa i dodeljivanje vrednosti promenljive
serial ESIju, a na kraju dodeljivanje vrednosti ESIja promenljivoj serial. Posto
ovo treba da se ponavlja za svako slovo iz imena, to ce u Delphiju izgledati
ovako:
procedure TForm1.Button1Click(Sender: TObject);
var
slovo,i,serial:longint;
ime:string;
begin
serial := 0;
ime := Edit1.Text;
for i := 1 to Length(ime) do begin
slovo := Ord(ime[i]);
asm
XOR ESI,ESI
MOV ESI,serial
MOV EDX,slovo
XOR EBX,EBX
MOV EBX,EDX
IMUL EBX,EDX
ADD ESI,EBX
MOV EBX,EDX
SAR EBX,1
ADD ESI,EBX
SUB ESI,EDX
MOV serial,ESI
end;
end;
messagedlg(‘Vas serijski broj je: ‘ + IntToStr(serial) + ‘ !’, mtInformation,[mbOK],0);
end;
Ovo je jako jednostavan primer ali vam pokazuje kako mozete iskoristiti deo
tudjeg koda da napravite u ovom slucaju keygenerator. U folderu
…\Casovi\Cas6\keygen-source\ se vec nalazi ovaj gotov primer i source code za
njega.
NAPOMENA: Ovo poglavlje je zamisljeno da bude od velike koristi Delphi
programerima koji se bave reversnim inzenjeringom i zeleli bi da reversuju
neke algoritme bez njihovog rekodiranja u Delphi sintaksu, ostalima ovaj deo
poglavlja nece biti od velike vaznosti pa ga mozete preskociti.
The Art of Reversing by Ap0x Page 116 of 293