crypt.pl: crypt() Strings with Salt
Here is a short perl script to run a string through crypt() with a user defined two character salt. Enjoy!
#!/usr/bin/perl
#
($NAME=$0) =~ s#.*/##; # get basename from $0
$salt="00";
if (@ARGV==2) { $salt=pop(@ARGV); }
else
{
print "salt to use: ";
chomp($salt=<>);
}
if (@ARGV==1) { $string=pop(@ARGV); }
else
{
print "Input-String to crypt: ";
chomp($string=<>);
}
$out=crypt($string, $salt);
print "The crypt of [$string] with salt [$salt] is [$out]\n";