16 lines
510 B
Raku
16 lines
510 B
Raku
#!/usr/bin/perl
|
|
#
|
|
# cvspass.pl <newpassword> - creates an encrypted password string for cvs
|
|
#
|
|
# 2003 M. Spiekermann (adapted from examples found in the internet)
|
|
|
|
# Grab password from command line
|
|
my $newpasswd = shift;
|
|
|
|
# Generate encrypted password
|
|
srand (time());
|
|
my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 : 97))";
|
|
my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
|
|
my $crypttext = crypt ($newpasswd, $salt);
|
|
printf("<%s>,<%s>\n", $newpasswd, $crypttext)
|