The art of cracking - Tutoriali

asm {Pocetak ASM bloka}XOR ESI,ESI {Dodali smo ovu ASM komandu}MOV ESI,serial{U delphiu i unutar ASM bloka mozemo koristiti sve promenjive }MOV EBX,slovo{koje su definisane unutar procedure koju koristimo }XOR EBX,EBXMOV EBX,EDXIMUL EBX,EDXADD ESI,EBXMOV EBX,EDXSAR EBX,1ADD ESI,EBXSUB ESI,EDXMOV serial,ESI {ESI registar brise po zavrsetku bloka pa ga moramo sacuvati u promenjivoj}end; {Kraj ASM bloka}Ono sto smo ovde dodali je brisanje ESIa i dodeljivanje vrednosti promenjiveserial ESIu, a na kraju dodeljivanje vrednosti ESIa promenjivoj serial. Postoovo treba da se ponavlja za svako slovo iz imena, to ce u Delphiu izgledatiovako:procedure TForm1.Button1Click(Sender: TObject);varslovo,i,serial:longint;ime:string;beginserial := 0;ime := Edit1.Text;for i := 1 to Length(ime) do beginslovo := Ord(ime[i]);asmXOR ESI,ESIMOV ESI,serialMOV EDX,slovoXOR EBX,EBXMOV EBX,EDXIMUL EBX,EDXADD ESI,EBXMOV EBX,EDXSAR EBX,1ADD ESI,EBXSUB ESI,EDXMOV serial,ESIend;end;messagedlg(‘Vas seriski broj je: ‘ + IntToStr(serial) + ‘ !’, mtInformation,[mbOK],0);end;Ovo je jako jednostavan primer ali vam pokazuje kako mozete iskoristite deotudjeg koda da napravite u ovom slucaju keygenerator. U folderu…\Casovi\Cas6\keygen-source\ se vec nalazi ovaj gotov primer i source code zanjega.NAPOMENA: Ovo poglavlje je zamisljeno da bude od velike koristi Delphiprogramerima koji se bave reversnim inzinjeringom i zeleli bi da reversujuneke algoritme bez njihovog rekodiranja u Delphi sintaksu, ostalima ovaj deopoglavlja nece biti od velike vaznosti pa ga mozete preskociti.The Art of Cracking by Ap0x Page 59 of 165