Program dltypeskeygenZ ;
uses crt ;
var user : string ;
    i : integer ;
    ser,tampung : longint ;
begin
  clrscr ;
  writeln('Cache Compactor 4.xx Key Generator by flag eRRatum - [eKH]') ;
  writeln('Homepage at http://all.at/ekh') ;
  write('Please Enter your Name : ') ;
  readln(user) ;
  for i:=1 to length(user) do
    begin
    tampung:=ord(user[i]) ;
    ser:=8*ser+tampung ;
    end ;
  ser:=(ser+1)*$989680 ;
  str(ser,user) ;
  write('This is Your registration Code : 789209') ;
  for i:=1 to 8 do write(user[i]) ;
  textcolor(LIGHTRED) ;
  writeln ;
  write('Visit our page for more cracks/serial/keygens !') ;
  end.