[ Delphi ] Keygen Src

[IMPosTOR]

Hello

here is some keygen src [Delphi]

dont miss it

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

[Departure]

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