Jump to content
Tuts 4 You

[KeyGen ME ] keyGen ME 5


GioTiN

Recommended Posts

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

Link to comment
Share on other sites

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 by sama
Link to comment
Share on other sites

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 by rxzcums
Link to comment
Share on other sites

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. :thanks: for the fun GioTiN.

[puts on Oliver voice]

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

[/Oliver voice]

MultiKeygen.zip

Link to comment
Share on other sites

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