Program keygen ;
uses crt ;
var
 name : string ;
 temp1, temp2, temp3, i : longint ;

begin
 clrscr ;
 Writeln('BiSHoP VB Crackme #5 KeyGen by ManKind') ;
 Writeln('========================================') ;
 Write('Name: ') ;
 Readln(name) ;
 if length(name) > 0 then
  begin
   for i := 1 to length(name) do
    begin
     temp1 := Ord(name[i]) ;
     temp1 := temp1 * temp1 ;
     temp2 := temp2 + temp1 ;
    end ;
   temp3 := (temp2 * temp2) + temp2 ;
   Write('Serial: ') ;
   Writeln(temp3) ;
  end ;

 if length(name) < 1 then
  begin
   Writeln('Invalid name!') ;
  end ;

 readln ;

end.
