Jump to content
Tuts 4 You

[Delphi] KeYGeN Src

IMPosTOR

By IMPosTOR
in Programming and Coding

Recommended Posts

IMPosTOR

IMPosTOR

Posted
Posted (edited)

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 by IMPosTOR
yohukm

yohukm

Posted
Posted

Thanks For Source IMPosTOR

playboyjin

playboyjin

Posted
Posted

Thanks for your source ^_^

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
Go to topic listing
×
×
  • Create New...