nicht angemeldet
Für die Vergabe von Passwörtern soll dieses kleine Script dienen:
##############
#!/usr/bin/perl
sub zufall {
my $laenge = shift;
my @zeichen = qw(A B C D E F G H I J K M N o p q r s t u v w x y z a b c d e f g h j k l m n P Q R S T U V W X Y Z 0 2 3 4 5 6 7 8 9);
my $erg = 'URA-';
for (1..$laenge) {
$erg .= $zeichen[int(rand $#zeichen)];
}
return $erg;
}
$password = zufall(7);
print "Content-Type: text/html\n\n" ;
print "<html><head><title>P A S S W O R T</title></head><body>\n";
print "Passwort: $password"\n;
print "</body></html>
##############
Mein Problem: Bei meiner privaten Site (bei puretec) läufts bestens, bei der Site die ich beruflich betreue (bei PSI-Net) wird das Passwort nur einmal ermittelt und dann nie wieder geändert. Das macht bei Passwörtern aber wenig Sinn.
Eine Varänderung des Ganzen konnte ich nur bei 'srand' feststellen, etwa so:
srand(); # srand(time);
for($i = 0;$i < 5;$i++) {
print .rand(150)."<br>\n"
}
Habe ich was falsch gemacht, was sollte ich am Script ändern.
Danke, Christian