moduluskontrol af et cpr. nr.

hej,
hvis du mangler proceduren til at tjekke et CPR-nummer, vil jeg anbefale dig at kigge i bogen "EDB & informationsteknologi" af Christian F. Petersen (DK nr. 19.61). Deri står der, hvilke kriterier der skal opfyldes, for at et nummer er gyldigt.

syntaks: checkcpr('CPRnummer') or die "falsk CPR nummer!!";
sub checkcpr {
local ($cpr) = @_;
@tal = split(//,$cpr);
$checksum = ($tal[0] * 4) + ($tal[1] * 3) + ($tal[2] *2) + ($tal[3] * 7) + ($tal[4] * 6) + ($tal[5] * 5) + ($tal[6] * 4) + ($tal[7] *3) + ($tal[8] * 2) + ($tal[9] * 1);
if (int($checksum/11) eq ($checksum/11)) { return 1;}
else { return 0;}
}

jeg kan også en der kan generere falske CPR-numre ;)

I vore dage vil jeg nu også anbefale et kig på http://www.cpr.dk

hej,
erik, der står jo ikke noget perlmodulus derinde ;). spøg til side, det var oxo derinde jeg fandt info om modulusberegning af CPR og kontrolciffer..

Var der ikke noget med at kontrolcifferet blev opgivet pr. 1/1-2000?