mirror of
https://github.com/lm-sensors/lm-sensors.git
synced 2026-10-16 10:49:31 +00:00
Philip Edelbrock
5a686e9751
git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@652 7894878c-1315-0410-8ee3-d5d059ff63e0
27 lines
760 B
Perl
Executable File
27 lines
760 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# Use this Perl script to generate a password
|
|
# for you to use for CVS access. Then, send
|
|
# the output to phil@netroedge.com so Phil
|
|
# can add you to the CVS writers group
|
|
# (pending approval, of course).
|
|
|
|
$salt1=int(65 + rand(115 - 65));
|
|
$salt2=int(65 + rand(115 - 65));
|
|
if ($salt1 > 90) { $salt1+=7; }
|
|
if ($salt2 > 90) { $salt2+=7; }
|
|
$salt= pack("cc",$salt1, $salt2);
|
|
system "stty -echo";
|
|
print "Password: ";
|
|
chop($word = <STDIN>);
|
|
print "\n\n";
|
|
print "Please enter it again.\n";
|
|
print "Password: ";
|
|
chop($word2 = <STDIN>);
|
|
print "\n";
|
|
system "stty echo";
|
|
if ($word ne $word2) { print "Passwords do not match, action aborted!\n"; exit; }
|
|
$passwd=crypt($word, $salt);
|
|
print "Here is your encrypted password: $passwd\n";
|
|
|