Help for this page

Select Code to Download


  1. or download this
     

#!/usr/bin/perl 
...
my $salt = 'sa'l
print crypt($pw, $salt);
  2. or download this
     

if($mySavedPassword =~ s/^\$2a\$04\$/){ 
  # ... blowfish!
}