Jump to content
Tuts 4 You

[keygenme] diablo2oo2's Crackme #09


diablo2oo2

Recommended Posts

diablo2oo2's Crackme #09

------------------------

name: d2k2.crkme.09.exe

size: 6 kb

code: masm32

date: 02.12.2008

About:

After long time i decided to make

a new keygenme...

Rules:

1) No patching

2) Find serial for your name

3) Make a Keygen =)

_d2k2_crkme09.zip

Edited by diablo2oo2
Link to comment

用户名:crack

转换uvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrst

用户名:123456

转换

OpqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmn

用户名:doabl0

转换

opqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmn

-----------------------------

申明:

常量1:0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ

变量:

文本型:用户名

输入的注册码

变量文本

变量文本01

转换

整数型:用户名长度

输入的注册码长度

转换长度

变量整数

用户名长度=取文本长度(用户名)

输入的注册码长度=取文本长度(输入的注册码)

//用户名和注册都不为空

变量整数=左移(用户名长度,2)

如果 变量整数>61

变量整数=30

变量文本=取文本右边(常量01,取文本长度(常量01)-变量整数)

//注意点1

变量文本01=取文本左边(常量01,变量整数)

转换=变量文本+变量文本01

//注意点2

转换长度=取文本长度(转换)

//取的"转换"的长度

procedure TForm1.Button2Click(Sender: TObject);

var

a:string;

b:integer;

c:string;

e,f:string;

z:integer; //得到rol的数值

r,rr:string;//用于ROL

x:integer;

xx:Shortint;

len:integer; //取的C的长度

yhm:integer; //取的用户名长度

for1:integer;//for 操作

al,dl,axor,aadd:integer; //用与FOR 变量操作

st1,st2,st3:Shortint;

bll:Shortint;

aebx:integer;

baoebx,baoedx:integer;

qude,suan:string;

//第三步

cd,xh,xz:integer;

sd,cc,ccc:string;

//第四步

yhma,yhmb:string;

ccd,crack:integer;

//????

zhs,drg,zjie:integer;

dig,zhz:string;

//最后的算法

go:integer;

go1:string;

//注册码

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

edit2.Text:=c;

edit3.Text:=c;

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

len:=length

Edited by by:70
Link to comment

Algorithm only understand some of the 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ

We are here 3 o'clock so sleep late tomorrow to continue the study of algorithms

:no:

Edited by by:70
Link to comment

is this could be a keygen @by:70?

Private Sub Command1_Click()
Const a As String = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim b As Integerb = Len(Text1.Text)'shl b,2
End SubPrivate Sub Form_Load()End Sub

this looks pretty cool :lol::P

Link to comment
is this could be a keygen @by:70?
Private Sub Command1_Click()
Const a As String = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim b As Integerb = Len(Text1.Text)'shl b,2
End Sub
Just write the next part of the code to read the code tomorrow
Private Sub Form_Load()End Sub

this looks pretty cool :lol::P

Link to comment
anybody recognized the used krypto technique?

Looks like some kind of Poly Alphabetic Cipher, as for which one I have no idea...tho I could be wrong...

Doc

Keygen.rar

Correct! I used the "Vigen

Edited by diablo2oo2
Link to comment
  • 2 weeks later...
  • 2 weeks later...

Hi diablo2oo2,

I know it's a bit late, but here's my keygen. Interesting to see that this is used in some commercial software also!

I've placed the entire generation into a single routine, it seems to work ok... ;)

HR,

Ghandi

Keygen.rar

Link to comment

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...