Perl – password encryption

#!/usr/bin/perl
print “### Password encryption utility ###\n”;
print “\n”;
print “What password would you like to encrypt?\n”;
$pass=; chomp ($pass);
print “Your encrypted password is..\n”;
$xx = (“xx”);
$enc=crypt ($pass, $xx);
print “$enc\n”;
print “\n”;

Leave a Reply

Your email address will not be published. Required fields are marked *