hi to all people of here

i supply a new keygen me for test people's

Note : Just write a keygen

protection : BASE 64 table

download link :

attached to this topic

Bye

KeyGen_ME_5_Under_SEH_Team.zip

Next

Keygen.rar

g0od job Doc

hear is my src

function Generate_Serial_by_IMPosTOR: string;
var i1,i2,i3,LEN   : integer;
	A1,B1	: integer;
	A2,B2	: integer;
	A3,B3	: integer;
	User_Name,Part1,Part2,Part3,S1,S2,S3,Final_Serial : string;
begin
  result := 'Error : contact impostor_76171@yahoo.com';  User_Name:= Email;
  Base64Encode(User_Name,User_Name);
  LEN := length (User_Name);  B1:=0;
  for i1 := 1 to length(User_Name) do begin
   S1 := inttostr(ord(User_Name[i1]));
   A1 := strtoint(S1) + 354;
   B1 := A1 + B1;
  end;
   Part1 := inttostr(B1);  B2:=0;
  for i2 := 1 to length(User_Name) do begin
   S2 := inttostr(ord(User_Name[i2]));
   A2 := strtoint(S2) * 13765;
   B2 := B2 + A2;
  end;
   Part2 := inttostr(B2);  B3:=0;
  for i3 := 1 to length(User_Name) do begin
   S3 := inttostr(ord(User_Name[i3]));
   A3 := strtoint(S3) + 22;
   B3 := B3 + A3;
  end;
   Part3 := inttostr(B3 + 134 );  Final_Serial := Part1 + '-' + Part2 + '-' + Part3;
  Base64Encode(Final_Serial,result);end;

@DrPepUr

i also make asm src,i dont know about asm coding.

i make this :

function Generate_Serial_by_IMPosTOR: string;
var LEN   : integer;
	P1	: integer;
	P2	: integer;
	P3	: integer;
	User_Name,Final_Serial : string;
begin
  result := 'Error : contact impostor_76171@yahoo.com';  User_Name:= Email;
  Base64Encode(User_Name,User_Name);
  LEN := length (User_Name);   asm
	 PUSHAD
	 XOR EBX,EBX
	 MOV EDX,$1
	 MOV EAX,LEN
	@LOOP1:
	 MOV ECX,User_Name
	 MOVZX ECX,BYTE PTR DS:[ECX+EDX-$1]
	 ADD ECX,$162
	 ADD EBX,ECX
	 INC EDX
	 DEC EAX
	Jnz @LOOP1
	 MOV P1,EBX
	 POPAD
   end;   asm
	 PUSHAD
	 XOR ESI,ESI
	 MOV EDX,$1
	 MOV EAX,LEN
	@LOOP1:
	 MOV ECX,User_Name
	 MOVZX ECX,BYTE PTR DS:[ECX+EDX-$1]
	 IMUL ECX,ECX,$35C5
	 ADD ESI,ECX
	 INC EDX
	 DEC EAX
	JNZ @LOOP1
	 MOV P2,ESI
	 POPAD
   end;
   asm
	 PUSHAD
	 XOR EDI,EDI
	 MOV EDX,$1
	 MOV EAX,LEN
	@LOOP1:
	 MOV ECX,User_Name
	 MOVZX ECX,BYTE PTR DS:[ECX+EDX-$1]
	 ADD ECX,$16
	 ADD EDI,ECX
	 INC EDX
	 DEC EAX
	JNZ @LOOP1
	 ADD EDI,$86
	 MOV P3,EDI
	 POPAD
   end;  Final_Serial := inttostr(P1) + '-' + inttostr(P2) + '-' + inttostr(P3);  Base64Encode(Final_Serial,result);end;

can you tell me if asm src have bug?

i test both work fine

It is approx the same as #4 only few changes in the algo

@impostor

wait at least few days before posting your source

your are taking away the fun for other users !

Edited August 17, 200817 yr by sama

this keygen i make is not a real keygen..

it's a serial fisher, the usage:

1. put "get_sn.exe" to "KeyGen ME 5_Under SEH Team.exe"'s dir.

2.start "get_sn.exe", enter any serial and click "&Check it", u will get the correct serial for your name u typed .

( u also can click "&Check it" without enter anything )

BTW: the "get_sn.exe" can be killed by many anti-virus, so maybe u need to close anti-virus first..

in fact it's not a virus...

regards

rxzcums

get_sn.rar

Edited August 19, 200817 yr by rxzcums

Been a busy week with far too few hours spent number crunching.

Managed to avoid reading Imposter's code.

Here's my keygen - UnderSeH keygenmes #1 - #5, all in one. for the fun GioTiN.

[puts on Oliver voice]

Please sir....... Can I have some more?

[/Oliver voice]

MultiKeygen.zip

haha that's nice good job mate