Program dltypeskeygenZ ;
uses crt ;
var username : string ;
    serial : longint ;
begin
  clrscr ;
  writeln('DLTypes v1.7.0 Key Generator by flag eRRatum -[eKH]') ;
  writeln('Homepage at http://all.at/ekh') ;
  write('Please Enter your username : ') ; readln(username) ;
  serial:=length(username) ;  serial:=serial * 7899 ;
  serial:=serial * $33D ;
  writeln('Your Registration Code is : ',serial) ;
  textcolor(lightred) ;
  writeln('Visit our page for more cracks !!!') ;
end.