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 December 3, 200816 yr by diablo2oo2

You can not access the web

Vovan

Ikdsm

用户名: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, ;

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

edit2.Text:=c;

edit3.Text:=c;

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

len:=length

Edited December 13, 200816 yr by by:70

name: norberto_

serial: fsu00AYC

anybody recognized the used krypto technique?

@by:70: i think most people (me included) here do not understand chinese :/

Algorithm only understand some of the 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ

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

Edited December 3, 200816 yr by by:70

@by:70: i think most people (me included) here do not understand chinese :/

i agreed with you, tottaly nothing to understad

No one can write it keygen

key.rar

Edited December 3, 200816 yr by by:70

No one can write it keygen

lol, your keygen not working at all

I Xianshui, get tomorrow 88

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

I Xianshui, get tomorrow 88

That's quite some age

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

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

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 December 4, 200816 yr by diablo2oo2

keygen

Keygen.rar

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