[keygenme] Little_brother's Keygenme #1 & #2

[Pimp.exe]

Simple keygen mes 1 & 2 I wrote recently. They are written in VB 6.0.

Write me a tut and make me a keygen

NOTE: I said it was EASY so if you are looking for a hard challenge, dont bother downloading.

Key4LilBro__1.zip

Key4lilbro__2.zip

[ragdog]

hi pimp.exe

for ittle_brother's Keygenme #1

name:ragdog

serial:little_301111001301-27_brother

00402F74 call ds:__vbaStrCmp

00402F7A mov edi, eax << set the breakpoint

read the serial at offset 00150C94

tools ida and winhex

greets

ragdog

[Pimp.exe]

Not bad, now make me a keygen

[Dysfunction]

Keygen 2

user: Dys

code: 420--{yy429yDy}--SMOKEoneFORlilBRO

now to figure out a keygen ;/

[Pimp.exe]

You will get it DYS, its really simple.

Hint: Try different usernames and notice differences in the sniffed serial.

[dezuzi]

Here is the keygen

It's very simple, the username just gets hussled around a bit depending on it's length.

the total length of the username is multiplied by itself and xored by 420, standard strings are attached to the beginning and end of the actual "key"

Key-gen is attached

Key_Gen.rar

Edited September 30, 2007 by dezuzi

[Pimp.exe]

Well done.

[IMPosTOR]

Delphi src [Keygen me 1]function IMPosTOR_keygen(User_Name: string): string;
var i1, i2, i3, i4: integer;
	s1, s2 ,st: string;
begin
  result := '';
  i1 := length(User_Name); i2 := i1 - 3;  for i1 := i1 downto i2 do begin
   s1 := inttostr(ord(User_Name[i1]));
   for i3 := length(s1) downto 1 do result := result + s1[i3];
  end;
  s2 := StringtoHex(User_Name[1]);
  for i4 := length(s2) downto 1 do St := St + (s2[i4]);
  result := 'little_'+result + '-' + St +'_brother';
end;

[Pimp.exe]

Very nice imposter.

[aztecx]

Name: aztecx

Serial: little_02199101611-16_brother

Not sure how to make a keygen though cus i'm not sure how the serial actually gets made.