Jump to content
Tuts 4 You

[keygenme]by:70 crackme 01


by:70

Recommended Posts

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 :D

Link to comment
Share on other sites

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 :D

Make a Keygen =)

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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, B) ;

c:=d;

delete(c,1, B) ;

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 :lol:

Link to comment
Share on other sites

  • 1 month later...

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 by jakeman
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...