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


function Generate_Serial(User_Name: string): string;
var r,r1,r2,r3,m,n,r_g,r_g1,r_g2,r_g3,r_g4,r_g5,r_g6 : string;
    Part1,Part2,Final_Serial : string;
    r_g_,r_g1_,r_g2_,r_g3_,r_g4_,r_g5_ : string;
    i,j,k,l: integer;
begin
  result := 'Error : 01';

  m := 'LITELOVESHISWIFENICY';
  n := Uppercase(User_Name);

  //if length(n) > 20 then begin
  // result := 'Error : Email must >= 20 !';
  // exit;
  //end;


  if length(n) < 20 then
   n := n + copy(m,0,length(m)-length(n));

  for i := 1 to 20 do begin //20 = max email char
   r := inttostr(ord(n[i]));

   if strtoint(r) >= 64then begin
    if strtoint(r) <= 73 then begin
     r1 := inttostr(121 - ord(n[i]));
     r2 := sbinttohex(strtoint(r1),2,1);
     r3 := HexToStr(r2);
    end else begin
     if strtoint(r) >= 74 then begin
      if strtoint(r) <= 90 then begin
       r1 := inttostr(ord(n[i])-5);
       r2 := sbinttohex(strtoint(r1),2,1);
       r3 := HexToStr(r2);
      end else begin
       r3:='S';
      end;
     end else begin
      //r3:='?';
     end;
    end;

   end else begin
    if strtoint(r) >= 46  then begin
     if strtoint(r) >= 48 then begin
      if strtoint(r) <= 57 then begin
       r1 := inttostr(ord(n[i])+33);
       r2 := sbinttohex(strtoint(r1),2,1);
       r3 := HexToStr(r2);
      end else begin
       r3:='S';
      end;
     end else begin
      r3:='R';
     end;
    end else begin
     r3:='S';
    end;
   end;
   Part1 := Part1 + r3;
  end;

  r_g  := copy(part1,0,3);
  for l:= length(r_g) downto 1 do r_g_ := r_g_+ r_g[l] ;

  r_g1 := copy(part1,4,3);
  for l:= length(r_g1) downto 1 do r_g1_ := r_g1_+ r_g1[l] ;

  r_g2 := copy(part1,7,3);
  for l:= length(r_g2) downto 1 do r_g2_ := r_g2_+ r_g2[l] ;

  r_g3 := copy(part1,10,3);
  for l:= length(r_g3) downto 1 do r_g3_ := r_g3_+ r_g3[l] ;

  r_g4 := copy(part1,13,3);
  for l:= length(r_g4) downto 1 do r_g4_ := r_g4_+ r_g4[l] ;

  r_g5 := copy(part1,16,3);
  for l:= length(r_g5) downto 1 do r_g5_ := r_g5_+ r_g5[l] ;

  r_g6 := copy(part1,19,3);

  Part2 := (r_g_) + (r_g1_) + (r_g2_) + (r_g3_) + (r_g4_) + (r_g5_) + (r_g6) ;

  for l := 11 to length (Part2) do Final_Serial := Final_Serial + Part2[l];

  Result := Final_Serial;
end;