Posted December 13, 200816 yr Rules: Make a Keygen =) Download Link http://www.zshare.net/download/526756605e173d41/ crackme.rar Key.rar Edited December 13, 200816 yr by by:70
December 13, 200816 yr 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
December 13, 200816 yr 0052B8FC |. E8 938EEDFF |CALL crackme.00404794 0052B901 |. 75 0A |JNZ SHORT crackme.0052B90D edx=serial
December 13, 200816 yr Author 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 =)
December 13, 200816 yr 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
December 13, 200816 yr Author Rules:Make a Keygen =) Download Linkhttp://www.zshare.net/download/526756605e173d41/key source codeKey.rar Edited December 13, 200816 yr by by:70
December 13, 200816 yr ibelvanbasten eyaLv23ZnJMCJ Just found serial but i cant make a keygen , give me tuts to make it
December 14, 200816 yr 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 vara: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
January 31, 200916 yr I am not good at making keygens =(, I suck, if any1 can teach me; PM me pleaseFounding serialUser: jakeSerial: MhetAnother working serialUser: IAmTheNoobestCrackerInTheWorldOfAllTimesSerial: OI1tHo0ZzyJJKUIFWuDeE7E3dULV05EEMt6NbWuRTook 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.0052B90D0052B903 |. B8 F0B95200 |MOV EAX,crackme.0052B9F0 ; ASCII "Serial is OK"0052B90F |.^0F85 4AFFFFFF \JNZ crackme.0052B85FBP 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, 200916 yr by jakeman
Create an account or sign in to comment