How to make key generators
(Reversing some 'mathematical' routines)

by ^pain^

(11 November 1997, snatched and slightly edited by fravia+)

Courtesy of fravia's page of reverse engineering

Well, another 'snatched' essay... strangely enough ^pain^ never sent it to me (even if he greetz me at the bottom).
You all know that I am 'against' key generators: it beats me why should we offer to the zombies software for free: the task of all crackers should be to TEACH people whose brain has not yet been totally atrophied by tv-drool watching or by Web-pushing how to MODIFY their software (or the software of somebody else :-), spotting silly protection scheme (especially if commercial) and uselessly overbloated applications, showing how ridicules they REALLY are, behind all the hypo and the advertising fanfare... our mission, in my opinion, is therefore NOT AT ALL to advantage idiots and slaves of the Micro$oft enemy, who would not understand what the cuckoo a byte represents even if it would jump out of the code and bite them a leg off...
This said, at times, (like in this essay by ^pain^) the creation of a key generator can teach us a lot about 'mathematical manipulation' code snippets. And this may be indeed important. Therefore I have decided to snatch and publish this essay nevertheless!

How to make key generators? -===========================-
Introduction ------------ I take no responsibility for the usage of this information. This tutorial, is for educational knowledge ONLY. Hi there, in this tutorial, I intend to teach you how to make a pretty simple keygen, of a program called W3Filer 32 V1.1.3. W3Filer is a pretty good web downloader... I guess some of you might already have bought this good program. I`ll assume you know: A.How to use debugger (in this case, SoftIce). B.How to crack, generally (finding protection routines, patching them,etc...). C.How to use Disassembler (This knowledge can help). D.Assembly. E.How to code in Turbo Pascal (tm). Tools you`ll need: A.SoftIce 3.00/01 or newer. B.WD32Asm. (Not a must). C.The program W3Filer V1.13, which can be found on the web. D.Turbo Pascal (ANY version). Well, enough blah blah, let's go cracking... Run W3Filer 32. A nag screen pops, and , demands registration (Hmm, this sux ;-) Now, We notice this program has some kind of hardcoded serial number (Mine is 873977046), Let's keep the hardcoded serial in mind, I bet we`ll meet it again while we're on the debugger. Well, now, let's put your name and a dummy reg code... set a BP on GetDlgItemTextA, and, press OK. We pop inside GetDlgItemTextA, Lets find the registration routine... I`ll save you the work, the registration routine is this: :00404DB2 8D95A8FAFFFF lea edx, dword ptr [ebp+FFFFFAA8] :00404DB8 52 push edx ; Your user name here. :00404DB9 E80B550000 call 0040A2C9 ; Registration routine. :00404DBE 83C408 add esp, 00000008 ; stack recorrection :00404DC1 85C0 test eax, eax ; Boolean identifier, 0 if :00404DC3 7D17 jge 00404DDC ; registration failed, 1 if OK Well, Let's enter the CALL 40A2C9, and see what's inside it: (Please read my comments in the code). * Referenced by a CALL at Addresses:00404DB9, :00407F76 | :0040A2C9 55 push ebp :0040A2CA 8BEC mov ebp, esp :0040A2CC 81C4B0FEFFFF add esp, FFFFFEB0 :0040A2D2 53 push ebx :0040A2D3 56 push esi :0040A2D4 57 push edi :0040A2D5 8B5508 mov edx, dword ptr [ebp+08] :0040A2D8 8DB500FFFFFF lea esi, dword ptr [ebp+FFFFFF00] :0040A2DE 33C0 xor eax, eax :0040A2E0 EB16 jmp 0040A2F8 * Referenced by a Jump at Address:0040A2FB(C) | :0040A2E2 0FBE0A movsx ecx, byte ptr [edx] ;Here Starts the interesting part. :0040A2E5 83F920 cmp ecx, 00000020 ;ECX is the the current char in the user name, Hmm, 20h=' '... :0040A2E8 740D je 0040A2F7 ;Let's see, :0040A2EA 8A0A mov cl, byte ptr [edx] ;Generally, all this loop does, is copying ;the user name from [EDX], to [ESI], WITHOUT the spaces! ;(Keep this in mind! ). :0040A2EC 880C06 mov byte ptr [esi+eax], cl :0040A2EF 42 inc edx :0040A2F0 40 inc eax :0040A2F1 C6040600 mov byte ptr [esi+eax], 00 :0040A2F5 EB01 jmp 0040A2F8 * Referenced by a Jump at Address:0040A2E8(C) | :0040A2F7 42 inc edx * Referenced by a Jump at Addresses:0040A2E0(U), :0040A2F5(U) | :0040A2F8 803A00 cmp byte ptr [edx], 00 :0040A2FB 75E5 jne 0040A2E2 --> This is the loop , we got what it does, ;Let's continue tracing the code... :0040A2FD 56 push esi ;The user name is pushed, in order to ;Upcase it's chars. * Reference To: USER32.CharUpperA, Ord:0000h | :0040A2FE E80F330000 Call User!CharUpper ; After this, our name is in upper case. :0040A303 56 push esi ; Our name in upper case here. * Reference To: cw3220mt._strlen, Ord:0000h | :0040A304 E86F300000 Call 0040D378 ;This is the length of our name. :0040A309 59 pop ecx :0040A30A 8BC8 mov ecx, eax ;ECX=Length. :0040A30C 83F904 cmp ecx, 00000004 ;Length>=4 (MUST). :0040A30F 7D05 jge 0040A316 ;Let's go to this address... :0040A311 83C8FF or eax, FFFFFFFF :0040A314 EB67 jmp 0040A37D * Referenced by a Jump at Address:0040A30F(C) | :0040A316 33D2 xor edx, edx :0040A318 33C0 xor eax, eax :0040A31A 3BC8 cmp ecx, eax :0040A31C 7E17 jle 0040A335 ; (Not important, just another useless checking). ========================================================================= ========= FROM HERE AND ON, THE IMPORTANT CODE, PAY ATTENTION =========== ========================================================================= One thing before we continue, EDX = 00000000h as we enter to the next instructions. * Referenced by a Jump at Address:0040A333(C) | :0040A31E 0FBE1C06 movsx ebx, byte ptr [esi+eax] ; EBX Hmm, it adds the result from the loop, the serial number shr'd by 03h :0040A33F 52 push edx --> Let's continue. (At this point, I can tell you , the reg number, is in EDX - only that the reg number is in HEX --> That's how you enter it). * Possible StringData Ref from Data Obj ->"%lx" | :0040A340 685EF54000 push 0040F55E :0040A345 8D95B0FEFFFF lea edx, dword ptr [ebp+FFFFFEB0] :0040A34B 52 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 Jump at Address:0040A374(C) | :0040A37B 33C0 xor eax, eax ;return with ax=0 * Referenced by a Jump at Addresses:0040A314(U), :0040A379(U) | ... popping off :0040A383 C3 ret ;pop off and ret 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 Turbo Pascal source of my keygenerator:
------------------- 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 --&gt; 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^ -------------------------------
(c) ^pain^ 1997. All rights reversed
You are deep inside fravia's page of reverse engineering, choose your way out:

redhomepage redlinks redanonymity +ORC redstudents' essays redacademy database
redtools redcocktails redantismut CGI-scripts redsearch_forms redmail_fravia
redIs reverse engineering legal?