diff options
Diffstat (limited to 'rescue/genpasswd')
-rwxr-xr-x | rescue/genpasswd | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/rescue/genpasswd b/rescue/genpasswd deleted file mode 100755 index 2f129673d..000000000 --- a/rescue/genpasswd +++ /dev/null @@ -1,13 +0,0 @@ -#!/usr/bin/perl - -use strict; - -system "stty -echo"; -print STDERR "Give a password for ssh access: "; -chomp(my $word = <STDIN>); -print STDERR "\n"; -system "stty echo"; - -my @salt = ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]; -print crypt($word, join('', @salt)); -print "\n"; |