Program Talisman ;
uses crt ;
var username : string ;
    serial : longint ;
    i : integer ;
begin
  clrscr ;
  writeln('Talisman version 1.0.x Key Generator by flag eRRatum -[eKH]') ;
  writeln('Homepage at http://all.at/ekh') ;
  write('Please Enter your username : ') ; readln(username) ;
  for i:=1 to length(username) do serial:=serial+ord(username[i]) ;
  serial:=serial * $309 ;
  writeln('Your Registration Code is : ',serial) ;
  textcolor(lightred) ;
  writeln('Visit our page for more cracks !!!') ;
end.