crypt.pl

This was a simply utility function that I had to help with using the “crypt” function — mainly when trying to handjam passwords into a database for testing.

#!/usr/bin/perl
 
print "Enter a string to encrypt with DES:n";
chomp(my $string = <STDIN>); #Take the input from the user and remove the n
 
print "Enter two random alphanumerics to be used as a salt:n";
chomp(my $salt = <STDIN>);
 
my $encrypted_string = crypt($string,$salt); #take the string and the salt and put through crypt()
 
print qq~
"$string" encrypted using the perl crypt() function and salt "$salt" returns:
$encrypted_string
~;
  1. No comments yet.
(will not be published)