diff options
| author | Francesc Pinyol Margalef <francesc.pinyol.m@gmail.com> | 2013-12-21 13:37:33 +0100 |
|---|---|---|
| committer | Francesc Pinyol Margalef <francesc.pinyol.m@gmail.com> | 2013-12-21 13:37:33 +0100 |
| commit | 095c6b25885ce3d22eedba8cdb98f1fd7e8708a5 (patch) | |
| tree | 5bfc768996b3ddec185abeb02b602b48b14d10db /rescue/tree/usr/sbin/genpasswd | |
| parent | df60191bdbddfa7c8e5bd11a2578aae6740963c0 (diff) | |
| parent | f76dc0931e47338aa9c7db257d28e5015d8a2f47 (diff) | |
| download | drakx-095c6b25885ce3d22eedba8cdb98f1fd7e8708a5.tar drakx-095c6b25885ce3d22eedba8cdb98f1fd7e8708a5.tar.gz drakx-095c6b25885ce3d22eedba8cdb98f1fd7e8708a5.tar.bz2 drakx-095c6b25885ce3d22eedba8cdb98f1fd7e8708a5.tar.xz drakx-095c6b25885ce3d22eedba8cdb98f1fd7e8708a5.zip | |
Merge branch 'master' of git://git.mageia.org/software/drakx
Diffstat (limited to 'rescue/tree/usr/sbin/genpasswd')
| -rwxr-xr-x | rescue/tree/usr/sbin/genpasswd | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/rescue/tree/usr/sbin/genpasswd b/rescue/tree/usr/sbin/genpasswd new file mode 100755 index 000000000..2f129673d --- /dev/null +++ b/rescue/tree/usr/sbin/genpasswd @@ -0,0 +1,13 @@ +#!/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"; |