diff options
Diffstat (limited to 'scripts/cvs-pass.pl')
-rw-r--r-- | scripts/cvs-pass.pl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/scripts/cvs-pass.pl b/scripts/cvs-pass.pl new file mode 100644 index 000000000..17f366b71 --- /dev/null +++ b/scripts/cvs-pass.pl @@ -0,0 +1,9 @@ +#!/usr/bin/perl + +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"; |