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

function Generate_Serial_by_IMPosTOR(user_name: string): string;
const co : integer = $19;
      pl : integer = $41;

var m                        : integer;
    part1,part2,part3,part4  : string;
    a,b,c,d,e,f,g,h,i,j,k,l  : integer;
    p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12  : string;
begin
 result := '';

 part1 := random_serial(1,4);                              //1
 m := ord(part1[1]);

 a := ((m + m) mod co) + pl;                               //2
 p1 := hextostr(sbinttohex(a,2,0));

 b := ((m * a) mod co) + pl;                               //3
 p2 := hextostr(sbinttohex(b,2,0));

 c := (((b + b) + (b + b)) mod co) + pl;                   //4
 p3 := hextostr(sbinttohex(c,2,0));

 d := (((b * c) * 2) mod co) + pl;                         //5
 p4 := hextostr(sbinttohex(d,2,0));

 part2 := random_serial(1,4);                              //6
 m := ord(part2[1]);

 e := (((d * m) + $0F) mod co) + pl;                       //7
 p5 := hextostr(sbinttohex(e,2,0));

 f := (((e + e) + d) mod co) + pl;                         //8
 p6 := hextostr(sbinttohex(f,2,0));

 part3 := random_serial(1,4);                              //9
 m := ord(part3[1]);

 g := ((m shl 4) mod co) + pl;                             //10
 p7 := hextostr(sbinttohex(g,2,0));

 h := (((e * f) + d + 5) mod co) + pl;                     //11
 p8 := hextostr(sbinttohex(h,2,0));

 i := (((h * g) * m ) mod co) + pl;                        //12
 p9 := hextostr(sbinttohex(i,2,0));

 part4 := random_serial(1,4);                              //13
 m := ord(part4[1]);

 j := ((((m * 2) + m ) + h) mod co) + pl;                  //14
 p10 := hextostr(sbinttohex(j,2,0));

 k := (((m * j) + i) mod co) + pl;                         //15      
 p11 := hextostr(sbinttohex(k,2,0));

 l := (((m * j) - k) mod co) + pl;                         //16
 p12 := hextostr(sbinttohex(l,2,0));

 result := part1 + p1 + p2 + p3 + '-' +
           part2 + p4 + p5 + p6 + '-' +
           part3 + p7 + p8 + p9 + '-' +
           part4 + p10 + p11 + p12 + '-' +
           random_serial(4,4) + '-' +
           random_serial(4,4) + '-' +
           random_serial(4,4) + '-' +
           random_serial(4,4) ;

end;