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

function Generate_Serial_by_IMPosTOR(User_Name): string;
var m         : integer;
    c1,c2,c3  : integer;

    p1,p2,p4, p3,p5,p6         : boolean;
    a1,a1_,a2_,a3_,a4_,a5_,a6_ : string;
    
    part1,part2,part3,part4,part5,part6,final_p : string;
begin
 result := 'Error : 01';

 p1 := false;
 p2 := false;
 p3 := false;
 p4 := false;
 p5 := false;
 p6 := false;

 repeat
  Part1 := Random_Serial(1,0); //Random char = CDEFGHIJK
  c3 := 0;
  m  := (ord(Part1[1]));
  c1 := (m - $11);
  c3 := c3 + 1;
  c2 := c1 - c3;
  a1 := sbIntToHex(c2,2,0);
  a1_:= Hextostr(a1);

  if IsNumber(a1_) then        //Filter : 1..9
   p1 := true
  else
   p1 := false;
   
 until (p1 = true);

 repeat
  Part2 :=  Random_Serial(1,0);
  c3 := 1;
  m  := (ord(Part2[1]));
  c1 := (m - $11);
  c3 := c3 + 1;
  c2 := c1 - c3;
  a1 := sbIntToHex(c2,2,0);
  a2_:= Hextostr(a1);

  if IsNumber(a2_) then
   p2 := true
  else
   p2 := false;

 until (p2 = true);


 repeat
  Part3 :=  Random_Serial(1,0);
  c3 := 2;
  m  := (ord(Part3[1]));
  c1 := (m - $11);
  c3 := c3 + 1;
  c2 := c1 - c3;
  a1 := sbIntToHex(c2,2,0);
  a3_:= Hextostr(a1);

  if IsNumber(a3_) then
   p3 := true
  else
   p3 := false;

 until (p3 = true);

 repeat
  Part4 :=  Random_Serial(1,0);
  c3 := 3;
  m  := (ord(Part4[1]));
  c1 := (m - $11);
  c3 := c3 + 1;
  c2 := c1 - c3;
  a1 := sbIntToHex(c2,2,0);
  a4_:= Hextostr(a1);

  if IsNumber(a4_) then
   p4 := true
  else
   p4 := false;

 until (p4 = true);

 repeat
  Part5 :=  Random_Serial(1,0);
  c3 := 4;
  m  := (ord(Part5[1]));
  c1 := (m - $11);
  c3 := c3 + 1;
  c2 := c1 - c3;
  a1 := sbIntToHex(c2,2,0);
  a5_:= Hextostr(a1);

  if IsNumber(a5_) then
   p5 := true
  else
   p5 := false;

 until (p5 = true);

 repeat
  Part6 :=  Random_Serial(1,0);
  c3 := 4;
  m  := (ord(Part6[1]));
  c1 := (m - $11);
  c3 := c3 + 1;
  c2 := c1 - c3;
  a1 := sbIntToHex(c2,2,0);
  a6_ := Hextostr(a1);

  if IsNumber(a6_) then
   p6 := true
  else
   p6 := false;

 until (p6 = true);

 final_p := random_serial(1,4) + 'Z3' + random_serial(3,4) + '-' +
            random_serial(6,4) + '-' + random_serial(6,4)  + '-' +
            random_serial(6,4) + '-' + random_serial(6,4)  + '-' +
            Part1 + Part2 + Part3 + Part4 + Part5 + Part6 ;

 result := final_p ;

end;