Hello,

This is my first KGM on this board. I hope you guys will enjoy it!

--- Information ---

Protection: MD5

Difficuly: Easy

Valid Solution: Keygen only!

Just in case something goes wrong with the attachment: DECiPHER -> KeyGenMe #1

I wish you guys all the best with it!

DECiPHER KGM #1.rar

DECiPHER.KGM1.Keygen.zip

assume we enter a name with 4 char

then where would point this:

00454F68                   |.  BB 05000000        MOV EBX,5
00454F6D                   |>  8B45 F4            /MOV EAX,[LOCAL.3]                                   ;  kernel32.7C839AD8
00454F70                   |.  0FB67418 FF        |MOVZX ESI,BYTE PTR DS:[EAX+EBX-1]

(LOCAL.3 = pointer to the name)

in the other loops is same.

if this is a feature, then take my apologize

if it is not a feature, then you should rethink on your

keygenme.

reguards

assume we enter a name with 4 char

then where would point this:

00454F68                   |.  BB 05000000        MOV EBX,5
00454F6D                   |>  8B45 F4            /MOV EAX,[LOCAL.3]                                   ;  kernel32.7C839AD8
00454F70                   |.  0FB67418 FF        |MOVZX ESI,BYTE PTR DS:[EAX+EBX-1]

(LOCAL.3 = pointer to the name)

in the other loops is same.

if this is a feature, then take my apologize

if it is not a feature, then you should rethink on your

keygenme.

reguards

It's a features yes.

@Saduff,

Good work, as always!

Edited June 10, 201114 yr by xDECiPHERx

@sama:

It always points to null byte.

That's why I ZeroMemory in my keygen.

@DECiPHER:

All loops always run once, so no need for loops at all.

The [keygenme] tag has been added to your topic title.

Please remember to follow and adhere to the topic title format - thankyou!

[This is an automated reply]

@saduff

sure there is almost always a way.

@xDECiPHERx

here my keygen src:

var
  i:Integer;
  Name: array of Byte;
  buffer:string;begin
   if (Length(Edit1.Text)< 4) or (Length(Edit1.Text)>10) then
      Edit2.Text := 'Namelength must be > 3 and < 10'
   else
     begin
       SetLength(Name,11);
       for i := 0 to Length(Edit1.Text)-1 do
         Name[i]:= Ord(Edit1.text[i+1]);       buffer := 'UnderGround' + IntToHex(Name[4]+ $60,4)+IntToHex((Name[6] shl 3)*3,4)+ '-';
       buffer := buffer + IntToHex(Name[3]* $70,4)+ IntToHex(Name[5]* $2012,4)+'-' ;
       buffer := buffer + IntToHex(Name[5]+ $450,4)+ GetCurrentUserName;       Edit2.Text := StrMD5(buffer);
     end;
end;

DKGM#1.rar

They all work great guys!