Program AceFTP ;
uses crt ;
var Username,magictable,general : string ;
    i,j : integer ;
    serial,k : longint ;
begin
  clrscr ;
  magictable:='FJ7ESTYULPVBNMCRY567AA8234452734' ;
  writeln('AceExpertFTP Key-Generator by flag eRRatum') ;
  write('Please enter username : ') ;
  readln(username) ;
  for i:=1 to length(username) do
  username[i]:=upcase(username[i]) ;
  for i:=1 to length(username) do
    begin
    j:=1 ;
    repeat
      if username[i]=magictable[j] then begin
      general:=general+username[i] ; j:=length(magictable) ; end else
      inc(j) ;
    until j=length(magictable) ;
    end ;
  username:=general ;
  j:=1 ;
  if length(username)<24 then
    for i:=1 to (24-length(username)) do
      begin
      username:=username+magictable[j] ;
      inc(j) ;
      end ;
  writeln(username) ; textcolor(lightred) ;
  writeln('Find another top CrackZ/KeygenZ/SerialZ in our site at http://all.at/ekh') ;

end.