[keygenme]by:70 crackme 01

[by:70]

Rules:

Make a Keygen =)

Download Link

http://www.zshare.net/download/526756605e173d41/

crackme.rar

Key.rar

Edited December 13, 2008 by by:70

[Romulous]

nice crackme, but i found a serial at first try without even debugging the prog with just entering anything.. xD

(test --> a)

keygenning it looked quite harder than that after i viewed it debugger

[estelle]

0052B8FC |. E8 938EEDFF |CALL crackme.00404794

0052B901 |. 75 0A |JNZ SHORT crackme.0052B90D

edx=serial

[by:70]

nice crackme, but i found a serial at first try without even debugging the prog with just entering anything.. xD

(test --> a)

keygenning it looked quite harder than that after i viewed it debugger

Make a Keygen =)

[Romulous]

well, i'm not a keygenner. actually, i only patch the targets or phish serials..

the algo looks quite complicated for me, dunno if it is as i never analyzed a serial algorithm.

is self keygenning allowed ? xD

[by:70]

Rules:

Make a Keygen =)

Download Link

http://www.zshare.net/download/526756605e173d41/

key source code

Key.rar

Edited December 13, 2008 by by:70

[blaCke]

lol

[ibelvanbasten]

ibelvanbasten

eyaLv23ZnJMCJ

Just found serial but i cant make a keygen , give me tuts to make it

[by:70]

lol

[Romulous]

i don't understand the sence of this...

u give us key generation source code and want us to make a keygen?

everything todo would be

1.) creating a new pascal project

2.) inserting two textboxes and a button

3.) in button click event insertig

var

a:string;

b:integer;

c:string;

e,f:string;

z:integer;

r,rr:string;

x:integer;

xx:Shortint;

len:integer;

yhm:integer;

for1:integer;

al,dl,axor,aadd:integer;

st1,st2,st3:Shortint;

bll:Shortint;

aebx:integer;

baoebx,baoedx:integer;

qude,suan:string;

const

d='0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

begin

if edit1.Text='' then

edit2.Text:='Enter Your Name';

if edit1.Text='' then

exit;

if edit1.Text<>'' then

a:=edit1.Text;

b:= LENGTH(a);

b:=b shl 2 ;

if b>60 then

b:=30;

e:= COPY(d,1, ;

c:=d;

delete(c,1, ;

c:=c+e;

r:=copy(edit1.text,1,1);

if edit1.Text<>'' then

x:=ord(edit1.text[1]);

xx:=x;

asm

mov al,xx

rol al,3

mov z,eax

end;

if edit1.Text ='' then

edit2.Text:='Enter Your Name'

else

edit3.Text:=c;

label3.Caption:= 'LENGTH: ' +INTTOSTR(z);

len:=length©;

yhm:=length(edit1.Text );

for for1:=1 to yhm do

begin

al:=ord(edit1.text[for1]);

dl:=ord(edit1.text[for1+1]);

st1:=al;

st2:=dl;

ST3:=Z;

asm

mov baoebx,ebx

xor ebx,ebx

mov bl,62

mov al,st1

mov dl,st2

xor al,dl

mov dl,st3

add al,dl

add dl,al

mov bll,dl

cdq

div ebx

mov baoedx,edx

mov aebx,ebx

mov ebx, baoebx

end;

z:=bll;

qude:=copy(c,baoedx+1,1);

suan:=suan+qude;

if edit2.Text=suan then

showmessage('Serial is OK');

else

edit2.Text:=suan;

end;

lol? kinda joke

[by:70]

Reference

[jakeman]

I am not good at making keygens =(, I suck, if any1 can teach me; PM me please

Founding serial

User: jake

Serial: Mhet

Another working serial

User: IAmTheNoobestCrackerInTheWorldOfAllTimes

Serial: OI1tHo0ZzyJJKUIFWuDeE7E3dULV05EEMt6NbWuR

Took a little thing I figured out.

I messed around with:

0052B8F9 |. 8B55 CC |MOV EDX,DWORD PTR SS:[EBP-34]

0052B901 |. 75 0A |JNZ SHORT crackme.0052B90D

0052B903 |. B8 F0B95200 |MOV EAX,crackme.0052B9F0 ; ASCII "Serial is OK"

0052B90F |.^0F85 4AFFFFFF \JNZ crackme.0052B85F

BP them all and this is what I found:

0012F5B0 00E96BCC ASCII "0123456789abcdef"

0012F5B4 00E96764 ASCII "ghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdef"

0012F5B8 00E95ED0 ASCII "jake"

Then looked above and found a continuant address:

0012F570 00E94DB0 ASCII "jake"

0012F57C 00E96F88 ASCII "83"

0012F580 00E94D5C ASCII "LENGTH: 83"

0012F59C 00E91D70 ASCII "jake"

0012F5A0 00E94D88 ASCII "Mhet"

Then I figured out that it was Mhet and simply tried it and got:

Serial is OK

Edited January 31, 2009 by jakeman