#!/usr/bin/perl
# einen passworthash erstellen /js
# Benutzung : cvscrypt.pl cvsbenutzer passwort systembenutzer

open(FILE,"</my/cvsdirectory/cvs_repos/CVSROOT/passwd") || die "Datei existiert nicht\nEnde\n";
srand (time());
my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 : 97))";
my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
my $cvsuser = shift;
my $plaintext = shift;
my $user = shift;
my $crypttext = crypt ($plaintext, $salt);
#my $user = shift;
@Zeilen = ("");
while (<FILE>)
{
push(@Zeilen,$_);
}
close(FILE);
for(@Zeilen)
{
if ($_ =~ /${cvsuser}/)
{
print "\n${_}\n\nFehler!\n\ncvsbenutzer \"${cvsuser}\" existiert schon\n\n "; exit; } }
print "${cvsuser}:${crypttext}:${user}\n";