cryptpasswd

#!/usr/bin/env perl 

srand(time()); 
 
$randletter = "(int (rand (26)) + (int(rand(1) + .5)% 2?65:97))"; 
 
$salt = sprintf("%c%c",eval$randletter,eval$randletter); 
 
$plaintext =shift; 
 
$crypttext = crypt ($plaintext,$salt);
 
print "${crypttext}\n";