Hier ein paar Codeschnipsel zum erzeugen von zufälligen Zahlenkombinationen, oder kombinationen aus Buchstaben und Zahlen.
1. Zufallszahlen:
$zahlen = rand 100000;
$zahlen =~ s/\.//g;
2. Zufallszahlen mit bestimmter Länge, hier 7 Zeichen:
$zahlen = rand 100000;
$zahlen =~ s/\.//g;
$zahlen = substr($zahlen, 0, 7);
3. Passworterzeugung mit bestimmter Länge, hier 7 Zeichen:
$seed = int(rand 100000);
$passwort = crypt($seed, zun);
$passwort =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$passwort =~ s/\.//g;
$passwort =~ s/\|//g;
$passwort = substr($passwort, 0, 7);
4. Zufällige Buchstaben & Zahlenkombinationen
#!/usr/bin/perl
$password = join '', ("1".."9","a".."z","A".."Z",0..9)[map {rand 36} 0..9];
$password = substr($password, 0, 8);
print "Content-type: text/html\n\n";
print "Ihr Passwort lautet: $password<br><br>";
5. Zufällige Buchstaben & Zahlenkombinationen mit Crypt verschlüsselt
#!/usr/bin/perl
$password = join '', ("1".."9","a".."z","A".."Z",0..9)[map {rand 36} 0..9];
$password = substr($password, 0, 8);
$salt = "aa";
$crypted = crypt $password, $salt;
print "Content-type: text/html\n\n";
print "Ihr Passwort lautet: $password<br><br>";
print "Passwort verschlüsselt, so wird es in der .HTACCESS gespeichert:<br><b>$crypted";
6. Passwortgenerierung mit der rand Funktion
#!/usr/bin/perl
#Fehlerausgabe an Browser
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
$passw = &pw;
print "<b>$passw</b>";
sub pw {
# Diese Zeile ist aus Layoutgründen umgebrochen
# das sollte alles in einer Zeile stehen wenn es eingesetzt wird!
@Zeichen = qw(A B C D E F G H J K L M N P Q R S T U V W Y Z
a b c d e f g h j k m n p q r s t u v w y z 0 1 2 3 4 5 6 7 8 9);
$z1 = rand(@Zeichen);
$z2 = rand(@Zeichen);
$z3 = rand(@Zeichen);
$z4 = rand(@Zeichen);
$z5 = rand(@Zeichen);
$z6 = rand(@Zeichen);
$z7 = rand(@Zeichen);
$z8 = rand(@Zeichen);
# Diese Zeile ist aus Layoutgründen umgebrochen
# das sollte alles in einer Zeile stehen wenn es eingesetzt wird!
$passwort = ("$Zeichen[$z1]" . "$Zeichen[$z2]" . "$Zeichen[$z3]" . "$Zeichen[$z4]" .
"$Zeichen[$z5]". "$Zeichen[$z6]". "$Zeichen[$z7]". "$Zeichen[$z8]");
return $passwort;
}
|
