Convert plain text to passwd crypt:
#!/usr/bin/perl print "Enter the password you would like to use: "; $pass1 = <STDIN>; if ($pass1) { my $salt = join('', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]); my $cryptpw = crypt($pass1, $salt); print "The encrypted password suitable for passwd is $cryptpwn"; }
Convert base64 encoded to plain text:
#!/usr/bin/perl use MIME::Base64; print "Enter the encoded data: "; $code = <STDIN>; if ($code) { my $decrypted = decode_base64($code); print "The decrypted data is:n"$decrypted"n"; }
Create 10 random passwords:
#!/usr/bin/perl sub randomPassword { my $password; my $_rand; my $password_length = $_[0]; if (!$password_length) { $password_length = 10; } my @chars = split(" ", "a b c d e f g h i j k l m n o A B C D E F G H I J K L M N O p q r s t u v w x y z P Q R S T U V W X Y Z 0 1 2 3 4 5 6 7 8 9"); srand; for (my $i=0; $i <= $password_length ;$i++) { $_rand = int(rand 62); $password .= $chars[$_rand]; } return $password; } for ($i=0; $i < 10; $i++){ print randomPassword(8) . "n"; }