Jump to content
Tuts 4 You
Sign in to follow this  
IMPosTOR

[ Delphi ] Keygen Src

Rate this topic

Recommended Posts

IMPosTOR

Hello

here is some keygen src [Delphi]

dont miss it :rolleyes:

some of src using bruteforce to get serial number. like Poxxr IxO and AAA-LoXX or ...

Enjoy.


//coded by IMPosTOR
//impostor@de-compiler.me
//www.de-compiler.mefunction Generate_Serial_by_IMPosTOR : string;
var i,j : integer;
Magic : string;
M : integer;
c1,c2,c3 : integer;
part1,part2,part3,part4 : string;
begin
result := 'Error : 01'; Magic := '2YOPB3AQCVUXMNRS97WE0IZD4KLFGHJ8165T';
repeat
Part1 := Random_Serial(5,6);
c1 := 0;
c2 := 0;
c3 := 0;
for i := 1 to 5 do begin
M := (ord(Part1[i]));
for j := 1 to length(Magic) do begin
if M = (ord(Magic[j])) then begin
c1 := (c2 * 8) + c2;
c3 := (j - 1) + c2;
c2 := (c1 * 4) + c3;
break;
end;
end;
end;
until c2 mod $2B = 0;
.
.
.

if you have ida to change some src share it.

Delphi Keygen Source code.zip

  • Like 3

Share this post


Link to post
Share on other sites
Departure

Thanks for sharing, Its always interesting looking at different coding styles...

Share this post


Link to post
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
Sign in to follow this  

×
×
  • Create New...