You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
00407D93 Ovde EAX dobija sledecu vrednost EAX = EAX + (EAX * 4), ovo jeprosto i lako procitati samo treba obratiti paznju na matematicke operacijemnozenja.00407D96 Opet operacija obicnog matematickog dodavanja 400h = 1024 navrednost EAXa.Sve do kraja nam je totalno nebitno jer kako vidimo samo se vrednost izEAXa samo prebacuje iz brojeva u string i dodaje na novi prazan string. Usledecim prolazima desava se isto to samo se stringovi dodaju jedan nadrugi, to jest vrednosti iz svakog prolaza se kao tekst dodaju jedna na drugu.Kao sto vidimo prve cetiri cifre seriskog broja su uvek iste jer se racunajuuvek za isto slovo, to jest za nulu. Ako izracunamo ovo videcemo da su prvecetiri cifre uvek 1464. Svaki sledeci prolaz se razlikuje samo u podatku kojise nalazi u Alu na adresi 00407D86, a on je uvek jednak ASCII kodu slovakoje odgovara prolazu kroz petlju. Ako je u pitanju prolaz jedan, AL ce dobitivrednost ASCII broja prvog slova iz unetog imena, i tako dalje za svakoslovo. Nadam se da vam je ovo jasno i da nisam previse zakomplikovao ovotumacenje koda. Keygenovanje samo po sebi nije jednostavno i zahtevamnogo vezbanja i iskustva, zato ne ocajavajte ako vam sve nije iz prvejasno. Trik kod pravljenja dobrih keygenova je razumevanje svakog redavezanog za racunanje seriskog broja i njegovo rekreiranje u nekomprogramskom jeziku. Evo kako bi to izgledalo napisano u Visual Basicu.Private Sub Command1_Click()User_name = Text1.TextSerial = “1464”For i = 1 to Len(user_name)Al = Asc(Mid$(user_name,i,1))Al = Al xor 44Al = Al + AlAl = Al + (Al * 4)Al = Al + 1024Serial = Serial & AlNext iText2.Text = SerialEnd SubOvaj primer se nalazi vec gotov u folderu …\Casovi\Cas4\Keygen source\VB\A Evo kako bi to izgledalo napisano u Delphiu.procedure TForm1.Button1Click(Sender: TObject);varuser_name,serial:string;al,i:integer;beginserial := '1464';user_name := Edit1.Text;for i := 1 to Length(user_name) do beginal := 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\<strong>The</strong> Art <strong>of</strong> Cracking by Ap0x Page 48 <strong>of</strong> 165