- Remove crypt_passwd (obsoleted by SVN move).

This commit is contained in:
Sylvain Pion 2006-03-06 18:44:42 +00:00
parent 932d3d1b3d
commit 1fe35d30e1
1 changed files with 0 additions and 14 deletions

View File

@ -1,14 +0,0 @@
#!/usr/bin/env perl
#
# Perl script that computes an encrypted password.
# Taken from the book "Open Source development with CVS" by Karl Fogel.
# It is used for the CVS server.
# Sylvain Pion, 2000.
srand (time());
my $randletter = "(int (rand(26)) + (int (rand(1) + .5) % 2 ? 65 : 97))";
my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
my $plaintext = shift;
my $crypttext = crypt ($plaintext, $salt);
print "${crypttext}\n";