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

function Generate_Serial_by_IMPosTOR(User_Name: string): string;
var i     : integer;
    M     : integer;
    part1 : string;
    a,b,c : integer;
    s_user_name : string;
begin

 result := 'Error : 01';


 if length(user_name) < 4 then begin
  result := 'Get more char !';
  exit;
 end;

 a := 0;
 c := 0;

 for i := 1 to length(user_name) do begin
  if user_name[i] in ['A'..'Z','a'..'z','0'..'9'] then
   s_user_name := s_user_name + user_name[i];
 end;
 s_user_name := uppercase(s_user_name);

 for i := 1 to length(s_user_name) do begin
  M := ord(s_user_name[i]);
  a := (a + M) and $800000FF;
 end;
  a := a  xor $F8;

 b := $F8 xor strtoint(random_serial(1,7));  //1,3,5

 part1 := random_serial(4,0) + sbinttohex(a,2,0) +  sbinttohex(b,2,0);

 for i := 1 to length(part1) do begin
  M := ord(part1[i]);
  c := (c + M) and $800000FF;
 end;

 result := part1 +  sbinttohex(c,2,0);

end;