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


function Generate_Serial_by_IMPosTOR(User_Name: string): string;
var i,A,A1,A2,B,C,D,j  : integer;
    S1,R1,ST,SF        : string;
begin
  result := 'Error : 01';

  User_Name := Uppercase(User_Name);
  A1 := 0;
  for i := 1 to length(User_Name) do begin
   S1 := inttostr(ord(User_Name[i]));
   A1 := A1 + 2;
   A2 := strtoint(S1) + A1;
   A  := A2 + (-48);
   B  := A - 10;
   if B > 10 then begin
    C := B + (-7);
    D := C - 26;
    if (D < 0) then begin
     R1 := sbinttohex(A2,2,1);
     ST := ST + HexToStr(R1);
    end;
   end else begin
    R1 := sbinttohex(A2,2,1);
    ST := ST + HexToStr(R1);
   end;
  end;

  for j := 1 to Length(ST) do begin
   if (ST[j] in ['a'..'z','A'..'Z','0'..'9']) then SF := SF + ST[j];
  end;

  result :=  (SF);
end;