summaryrefslogtreecommitdiffstats
path: root/rescue/genpasswd
blob: b7fe1f660b89f790bef62ce8cdff24d5901e374f (plain)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl

system "stty -echo";
print STDERR "Give a password for ssh access: ";
chomp($word = <STDIN>);
print STDERR "\n";
system "stty echo";

print crypt($word, join('', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]));
print "\n";