Help for this page

Select Code to Download


  1. or download this
     

#!/usr/bin/perl -w
...
hjCQi34Qt4uGE

C:\perl>
  2. or download this
    
#!/usr/bin/perl -w
...
chomp( my $guess = <STDIN> );
print "Imposter!" if( crypt($guess, $password) ne $password);