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