[Delphi] KeYGeN Src

[IMPosTOR]

hear is 1 new simple keygen source code .

Author  : IMPosTOR \ Under SEH Team
Feedback: impostor_76171@yahoo.com
level	: 1\10Page	: www.webkade.ir
Homepage: www.impostor.blogfa.com

function Generate_Serial_by_IMPosTOR: string;
var i,A,A1,A2,B,C,D,j	 : integer;
	User_Name,S1,R1,ST,SF : string;
begin
  result := 'Error : contact impostor_76171@yahoo.com';  User_Name := Uppercase(Email);
  A1 := 0;
  for i := 1 to length(User_Name) do begin
   S1 := inttostr(ord(User_Name[i]));
   A1 := A1 + 2;
   A2 := strtoint(S1) + A1;
   A  := A2 + (-48);
.
.
.

KeYGeN_Src_By_IMPosTOR.zip

Edited August 4, 2008 by IMPosTOR

[yohukm]

Thanks For Source IMPosTOR

[playboyjin]

Thanks for your source