//coded by IMPosTOR
//impostor@de-compiler.me
//www.de-compiler.me

var Save_Key   : string;

procedure MakeRegKey(Key: string);
var Folder : string;
    fName  : string;
    F      : TextFile;
begin
 Key := nl + 
       '[License]' + nl +
       'LicenseInformation=' + Key ;

 fName :='PicPick.ini';
 //DeleteFile(Pchar(fName));
 Assignfile(F,fName);
 if not FileExists(fName) then begin
  Rewrite(F);
  Closefile(F);
 end else begin
  Assignfile(F,fName);
  {$I-}
  Append(F);
  {$I+}
  Write(F,Key+#13#10);
 end;
 Closefile(F);
end;

function Generate_Serial_by_IMPosTOR(user_name: string): string;
var m                    : integer;
    license              : string;
    part1,part2,part3    : string;
    a,b,c,d,e,f,g,h,j,k,l      : integer;
    p1,p2,p3,p4,p5,p6,p7,p8 ,Lic : string;

    i : integer;
begin

 result := '';

 a := $2C58;
 b := $58B0;

 license := random_serial(3,6) +
            random_serial(4,6) +
            random_serial(4,6) +
            random_serial(4,6) ;

 lic := license + user_name;

 for i := 1 to length(lic) do begin
  m := ord(lic[i]);
  c := a;
  d := (c shr $8) xor m;
  part1 := part1 + sbinttohex(d,2,0);

  e := d + a;
  f := (e * $2176) and $FFFF;
  a := (f + $3031) and $FFFF;
 end;

 for i := 1 to length(lic) do begin
  m := ord(lic[i]);
  c := b;
  d := (c shr $8) xor m;
  part2 := part2 + sbinttohex(d,2,0);

  e := d + b;
  f := (e * $2176) and $FFFF;
  b := (f + $3031) and $FFFF;
 end;

 Save_Key := part1 + 'O' + part2;

 insert('-', license, 04);
 insert('-', license, 09);
 insert('-', license, 14);

 result := license;
 //result := part1 + 'o' + part2;

end;