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

function Generate_Serial_by_IMPosTOR : string;
var a,b,c,d,e,f      : integer;
begin

 result := '';

 repeat
  a := sHexToInt(Random_Serial(4,0));
  b := (a mod $A) + 1;
  c := sHexToInt(Random_Serial(4,0));
 until c mod b = 3;

 repeat
  d := sHexToInt(Random_Serial(4,0));
 until d mod b = 1;

 repeat
  e := sHexToInt(Random_Serial(4,0));
  f := e mod 2;
 until (e mod b = 3) and (f = 1);

 result := 'C1H0L9-' +
           sbinttohex(a,4,0) + '-' + sbinttohex(c,4,0) + '-' +
           sbinttohex(d,4,0) + '-' + sbinttohex(e,4,0) +
           '-W6Y1L3';

end;