How to make Keygens?

May 13, 2008 by Ashik in Hacking Tutorials, Hardcore Hacking, Keygens, Software | Tags: Coding, Cracking, Hacking, Hardcore, Keygens

OK,
so now we know,
That it SHR’s EAX by 03 (SAR is
almost identical to SHR).
:0040A33D 03D0 add edx, eax ———> 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 (U)nconditional or (C)onditional Jump at Address:
|:0040A374(C)
|
:0040A37B 33C0 xor eax, eax
* Referenced by a (U)nconditional or (C)onditional Jump at Addresses:
|:0040A314(U), :0040A379(U)
|
:0040A37D 5F pop edi
:0040A37E 5E pop esi
:0040A37F 5B pop ebx
:0040A380 8BE5 mov esp, ebp
:0040A382 5D pop ebp
:0040A383 C3 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 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.