PA-Nummer: So gehts! - Hintenrum zum Porno-Passwort

Ich mich mal schlau gemacht, und ein paar Zeilen
in Perl geschrieben: Dieses CGI-Skript berechnet
nach Angabe eines gewünschten Geburts- und Ablauf-
datums eine mögliche PA-Nummer. Zumindest Ueber18.de
scheint diese Nummer zu akzeptieren.
MfG,
Monique
#!/usr/bin/perl
use strict; my $args;
sub randnum { my $ziff = “”;
while(length($ziff) < $_[0]) {
$ziff .= int(rand(10)); }
return $ziff; } sub checknum {
my $i = 0; my @mod = (7, 3, 1);
my $sum; my $ppz = $_[0];
while($ppz) { $ppz =~ m/(.)(.*)/;
my $ziffer = $1;$ppz = $2;
$sum = ($ziffer * $mod[$i % 3]);
}$sum =~ m/(.*)(.)/;return $2;
}print “Content-Type: text/html\n\n”;
my @pairs = split(/

Mai 31st, 2008 - Posted in Allgemein | |

Leave a reply

You must be logged in to post a comment.