How To Make Keygens E- Book !!!

Automated PDF to Text preview page 4 to 6:

:0040A340 685EF54000 :0040A345 8D95B0FEFFFF :0040A34B 52

push 0040F55E lea edx, dword ptr [ebp+FFFFFEB0] push edx

* Reference To: USER32.wsprintfA, Ord:0000h | :0040A34C E8E5320000 Call 0040D636 -------> This one, does HEX2STR (Takes the value from EDX, and turns it to an hex string). :0040A351 83C40C add esp, 0000000C :0040A354 8D8DB0FEFFFF lea ecx, dword ptr [ebp+FFFFFEB0] -----> type 'd ecx' THIS is the reg number! That's enough for us, the rest of the code, is just for comparing the correct reg code with ours. :0040A35A 51 push ecx * Reference To: USER32.CharLowerA, Ord:0000h | :0040A35B E8B8320000 Call 0040D618 :0040A360 8D85B0FEFFFF lea eax, dword ptr [ebp+FFFFFEB0] :0040A366 50 push eax :0040A367 FF750C push [ebp+0C] * Reference To: cw3220mt._strcmp, Ord:0000h | :0040A36A E875300000 Call 0040D3E4 :0040A36F 83C408 add esp, 00000008 :0040A372 85C0 test eax, eax :0040A374 7405 je 0040A37B :0040A376 83C8FF or eax, FFFFFFFF :0040A379 EB02 jmp 0040A37D * Referenced by a (U)nconditional or (C)onditional Jump at Address: |:0040A374(C) | :0040A37B 33C0 xor eax, eax * Referenced by a (U)nconditional |:0040A314(U), :0040A37
9(U) | :0040A37D 5F :0040A37E 5E :0040A37F 5B :0040A380 8BE5 :0040A382 5D :0040A383 C3 or (C)onditional Jump at Addresses:

pop pop pop mov pop ret

edi esi ebx esp, ebp ebp

Making the actual Keygen ~~~~~~~~~~~~~~~~~~~~~~~~ Now, after I've explained how does the program calculate the registration code, you can either write your own keymaker, without looking at my code, or look at my code (in Turbo Pascal - sorry for all you C lovers ;-) Next time). That's it, here's the source of my keygen:

------------------- Cut here --------------------------------------------Program W3FilerKeygen; var

Key,SerialNum,EB,ED,digit:Longint; I,x:Byte; Name,KeyHex:String; begin Writeln(' W3Filer32 V1.1.3 Keymaker'); writeln('Cracked by ^pain^ ''97 / Rebels!'); Write('Your Name:'); { Read the name } readln(Name); Write('Serial Number:'); readln(SerialNum); {Yes, we need the serial number for the calculation!} Key:=0; x:=0; For I:=1 to length(Name) do begin Name[I]:=upcase(Name[i]); If Name[I]<>' ' then begin eb:=ord(Name[I]) shl 3; {EB = Name[I] Shl 03h} Ed:=ord(Name[I]); {ED = Name[I]} ed:=ed*(x); {ED=ED*Offset} inc(x); eb:=eb+ed; {Add ED to EB} Key:=Key+EB; {Add EB to KEY} end; end; Key:=Key+(SerialNum shr 3); { Add SerialNum shr 03h to Key} { From here, this is just HEX2STRING --> I`m quite sure it's Self explaintory, else - go and learn number bases again! ;-)} KeyHex:=''; repeat digit:=Key mod 16; key:=key div 16; If digit<10 then KeyHex:=Chr(Digit+ord('0'))+KeyHex; If digit>10 then KeyHex:=Chr(Digit-10+ord('a'))+KeyHex; until key=0; writeln('Your Key:',KeyHex); writeln(' Enjoy!'); end. --------------------
- Cut here ------------------------------------------This tutorial was written by ^pain^ / [mEXELiTE '97], Hope you enjoyed reading it, I`m always trying to improve my writing skills =). Hmm, I'd like to greet the following: (No special order) Blast Soft,Teraphy,J0b,Qapla,+ORC,Fravia,Charley,GhostRdr,Odin,kOUGER Niabi,Acpizer,Klagosong,Mystic Rioter,rANDOM,riDDLER (Come back man! we NEED ya),yoshi,JosephCo,Leddy,Krazy_N,Vizion,Gunnar_,Volcanic, Fant0m,Caruso,|PSA|,razzi,ThePharao,|KAIRN| + Everyone in #cracking & in #cracking4newbies, And ofcourse - everyone else I forgot. ;) ------------ Signing off - ^pain^ --------------------------------------