Jump to content
Tuts 4 You

Keygen Src [Delphi]


Recommended Posts

hear is 2 new keygen source code .

Author  : IMPosTOR \ Under SEH Team
Feedback: impostor_76171@yahoo.comPage : www.webkade.ir
Homepage: www.impostor.blogfa.com
function Generate_Serial_by_IMPosTOR: string;
var i1,i2,i3,i4,j : integer;
A1,B1,C1,D1,E1 : integer;
A2,B2,C2,D2,E2 : integer;
A3,B3,C3,D3,E3,A3_1,A3_2,A3_3,A3_T : integer;
A4,B4,C4,D4,E4 : integer;
User_Name,Part1,Part2,Part3,Part4,S1,S2,S3,S4,Final_Serial : string;
result := 'Error : contact impostor_76171@yahoo.com';
User_Name := LowerCase(Email); for i1 := 1 to length(User_Name) do begin
S1 := inttostr(ord(User_Name[i1]));
A1 := i1*21;


Link to comment
  • 3 weeks later...

I think he means to say that the algos are simple and has nothing new or tricky in it. I too feel its quite simple. But yeah its good enough for starters. Nice, keep posting some new algos, will help starters.

Edited by oricode
Link to comment
  • 2 months later...

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