mirror of https://github.com/CGAL/cgal
- Remove crypt_passwd (obsoleted by SVN move).
This commit is contained in:
parent
932d3d1b3d
commit
1fe35d30e1
|
|
@ -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";
|
||||
Loading…
Reference in New Issue