Program ArjShell ;

uses crt ;

var user,ID : string ;

    i : integer ;

    key : longint ;



begin

  clrscr ;

  writeln('ArjShell 1.xx KeyGenerator by flag eRRatum') ;

  write('Enter your UserName : ') ;

  readln(user) ;

  if length(user) < 1 then

    begin

    writeln('Not Entered anything is not a wise action !') ;

    exit

    end ;



  for i:=1 to length(user) do

    key:=key + (i*ord(user[i])) ;



  key:=abs(key*$1BAAFFE) ;



  if key >= $77359400 then key:=key-$77359400 ;

  if key >= $3B9ACA00 then key:=key-$3B9ACA00 ;

        key:=key XOR $221D1758 ;

  if key >= $77359400 then key:=key-$77359400 ;

  if key>=$3B9ACA00 then key:=key-$3B9ACA00 ;



  str(key,ID) ;



  write('This is Your User-ID : ') ; textcolor(WHITE) ;

  if length(ID) < 9 then

    for i:=1 to (9-length(ID)) do

        write('0') ;

  writeln(ID) ;

  

end.