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


function Generate_Serial_by_IMPosTOR(User_Name: string): string;
var a,b,c,d,f : string;
    i,j       : integer;
begin
 result := 'Error : 01';

  a :='ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890- ~!@#$%^&*()_+{}|:"<>?`\][;/.,''=\';
  b :='NOPQRSTUVWXYZABCDEFGHIJKLM1234567890- ~!@#$%^&*()_+{}|:"<>?`\][;/.,''=\';
  c :='EUDORA3';
  User_Name := c + Uppercase(User_Name);

  for i:=1 to length(User_Name) do begin
   j := pos(User_Name[i],a);
   d := d + copy(b,j,1);
  end;

  f := LowerCase(StrMD5(d));
 result := f;
end;