The Art of Reversing by Ap0x - Tutoriali.org

00407D93 Ovde EAX dobija sledecu vrednost EAX = EAX + (EAX * 4), ovo je
prosto i lako procitati samo treba obratiti paznju na matematicke operacije
mnozenja.
00407D96 Opet operacija obicnog matematickog dodavanja 400h = 1024 na
vrednost EAXa.
Sve do kraja nam je totalno nebitno jer kako vidimo samo se vrednost iz
EAXa samo prebacuje iz brojeva u string i dodaje na novi prazan string. U
sledecim prolazima desava se isto to samo se stringovi dodaju jedan na
drugi, to jest vrednosti iz svakog prolaza se kao tekst dodaju jedna na drugu.
Kao sto vidimo prve cetiri cifre serijskog broja su uvek iste jer se racunaju
uvek za isto slovo, to jest za nulu. Ako izracunamo ovo videcemo da su prve
cetiri cifre uvek 1464. Svaki sledeci prolaz se razlikuje samo u podatku koji
se nalazi u ALu na adresi 00407D86, a on je uvek jednak ASCII kodu slova
koje odgovara prolazu kroz petlju. Ako je u pitanju prolaz jedan, AL ce dobiti
vrednost ASCII broja prvog slova iz unetog imena, i tako dalje za svako
slovo. Nadam se da vam je ovo jasno i da nisam previse zakomplikovao ovo
tumacenje koda. Keygenovanje samo po sebi nije jednostavno i zahteva
mnogo vezbanja i iskustva, zato ne ocajavajte ako vam sve nije iz prve
jasno. Trik kod pravljenja dobrih keygenova je razumevanje svakog reda
vezanog za racunanje serijskog broja i njegovo rekreiranje u nekom
programskom jeziku. Evo kako bi to izgledalo napisano u Visual Basicu.
Private Sub Command1_Click()
User_name = Text1.Text
Serial = “1464”
For i = 1 to Len(user_name)
Al = Asc(Mid$(user_name,i,1))
Al = Al xor 44
Al = Al + Al
Al = Al + (Al * 4)
Al = Al + 1024
Serial = Serial & Al
Next i
Text2.Text = Serial
End Sub
Ovaj primer se nalazi vec gotov u folderu …\Casovi\Cas4\Keygen source\VB\
A evo kako bi to izgledalo napisano u Delphiju.
procedure TForm1.Button1Click(Sender: TObject);
var
user_name,serial:string;
al,i:integer;
begin
serial := '1464';
user_name := Edit1.Text;
for i := 1 to Length(user_name) do begin
al := Ord(user_name[i]);
al := al xor 44;
al := al + al;
al := al + (al *4);
al := al + 1024;
serial := serial + IntToStr(al);
end;
Edit2.Text := serial;
end;
Ovaj primer se nalazi vec gotov u folderu …\Casovi\Cas4\Keygen source\Delphi\
The Art of Reversing by Ap0x Page 103 of 293