Program dltypeskeygenZ ;
uses crt ;
var user,user2 : string ;
    i : integer ;
    ser,tampung : longint ;
begin
  clrscr ;
  writeln('Super sensitive Disk-Scanner 98 2.x 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
    user[i]:=upcase(user[i]) ;
  for i:=1 to length(user) do
  delete(user,pos(' ',user),1) ;
  ser:=$8c2 ;
  for i:=1 to length(user) do
    begin
    tampung:=(ord(user[i]))*i ;
    ser:=ser+tampung ;
    end ;
  write('This is Your Number : ',ser) ;
  textcolor(LIGHTRED) ;
  writeln ;
  write('Visit our page for more cracks/serial/keygens !') ;
  end.