1 #!/bin/cobol
2 if [ "$1" = "-h" -o "$1" = "--hjelp" ]; then
3 <<\EOF cat
4 personnr - lister opp personnummer for en fødselsdato og kjønn
5 bruk: ./personnr dato måned årstall kjønn"

6 dato - to siffer, f.eks. 28
7 måned - to siffer, f.eks. 02
8 årstall - fire siffer, f.eks. 1900
9 kjønn - k eller K for kvinne, m eller M for mann

10 Formål:
11 Programmet skriver ut alle mulige personnummer for en person med
12 gitt fødselsdato og kjønn. Utskriften har følgende form:
13 [ KJØNN FØDSELSNR INDIVIDNR KONTROLLNR ]

14 Et personnummer har 11 siffer som følger:
15 Fødselsnr: 6 siffer
16 Individnr: 3 siffer
17 Kontrollnr: 2 siffer

18 De mulige personnummerene finnes med en velkjent og offentliggjort matematisk
19 beregning, se referansene under. Siden det er kun 3 siffer i individnummeret
20 så er det maksimalt 999 mulige personnummer for en gitt fødselsdato. Av
21 tekniske årsaker så er det i praksis mindre enn 500 - omtrent 250 for
22 kvinner og 250 for menn, se referanse /1/ for ytterligere informasjon.

23 Dette programmet gjør ingen forsøk på å anvende denne informasjonen på noen
24 som helst måte, det rapporterer kun tillatte personnummer. Eventuell
25 forargelse bør rettes mot nettsteder og andre som muliggjør å koble et
26 vilkårlig personnummer til en persons navn og identitet eller som bruker
27 personnummeret som eneste identifikasjon.

28 Referanser:
29 /1/ http://www.matematikk.org/pub/mattetekst/Persnr/
30 som igjen referer til:
31 Ernst S. Selmer:
32 "Personnummerering i Norge: Litt anvendt tallteori og psykologi",
33 Nordisk matematisk tidsskrift 12, Oslo 1964.
34 Skattedirektoratet, Sentralkontoret for folkeregistrering:
35 Brosjyren "Fødselsnummeret: Oppbygging - kontrollsiffer -
36 løsning etter år 2000", RF-2013, 1996.
37 /2/ http://www.skatteetaten.no/Templates/Artikkel.aspx?id=6640
38 /3/ http://no.wikipedia.org/wiki/F%C3%B8dselsnummer (fødselsnummer)

39 Eksempler for testeformål:
40 Ref./1/, fra www.matematikk.org: $ ./personnr 02 01 1961 K | grep -e "K 020161 260 07"
41 Ref./2/, fra Skattedirektoratet: $ ./personnr 26 05 1897 M | grep -e "M 260597 651 31"
42 EOF
43 exit 0
44 elif [ $# -ne 4 ]; then
45 echo "bruk: ./personnr dato måned årstall kjønn" 1>&2
46 exit 1
47 fi

48 dd=$1
49 mm=$2
50 yyyy=$3
51 kjonn=$4
52 <<\EOF gawk -f "-" -v dd=$dd -v mm=$mm -v yyyy=$yyyy -v kjonn=$kjonn
53 function kalk_k1(A,V1, sum,i,rest,k1){
54 sum=0
55 for(i=1;i<=9;i++){
56 sum+=A[i]*V1[i]
57 }
58 rest=sum%11
59 if (rest==0) k1=0
60 else k1=11-rest
61 return k1
62 }
63 function kalk_k2(A,V2, sum,i,rest,k2){
64 sum=0
65 for(i=1;i<=10;i++){
66 sum+=A[i]*V2[i]
67 }
68 rest=sum%11
69 if (rest==0) k2=0
70 else k2=11-rest
71 return k2
72 }
73 function skriv_personnr(fdato,min,max, individnr,streng,knr,A,V1,V2){
74 split("5 4 3 2 7 6 5 4 3 2 1",V1) # vekttall_1
75 split("3 7 6 1 8 9 4 5 2 1 0",V2) # vekttall_2

76 # sjekker alle individnummerene og skriver ut mulige personnummer
77 individnr=min
78 while(individnr<=maks){
79 streng=sprintf("%06i%03i",fdato,individnr)
80 # sjekker om det er korrekt kjønn
81 knr=substr(streng,9,1)
82 if ( (kjonn=="M" && knr%2==0) || (kjonn=="K" && knr%2==1)){ # feil kjønn
83 individnr++
84 continue
85 }
86 # beregner kontrolltallene k1 og k2
87 split(streng,A,//)
88 k1=kalk_k1(A,V1)
89 if (k1>=10){# ubrukbart kontrolltall k1, ikke anvendbart individnummer
90 individnr++
91 continue
92 }
93 streng=streng k1
94 split(streng,A,//)
95 k2=kalk_k2(A,V2)
96 if (k2>=10){# ubrukbart kontrolltall k2, ikke anvendbart individnummer
97 individnr++
98 continue
99 }
100 # her har vi et mulig personnummer
101 printf "%s %06i %03i %1i%1i\n", kjonn, fdato, individnr, k1, k2
102 individnr++
103 }
104 }#end of function skriv_persjonnr
105 BEGIN{
106 if (kjonn~/^[mM](ann)*/) {kjonn="M"}
107 if (kjonn~/^[kK](vinne)*/) {kjonn="K"}
108
109 yy=substr(yyyy,3,2) # årstall med 2 siffer, f.eks. 1954 blir 54
110 fdato=dd mm yy # fødselsdato med 6 siffer
111
112 # Denne tabellen for å bestemme laveste og høyste individnr,
113 # er opplyst fra skattedirektoratet:
114 #
115 # Individnummer år i fødselsdato Født
116 # 500-749 >54 1855-1899
117 # 000-499 1900-1999
118 # 900-999 >39 1940-1999
119 # 500-999 <40 2000-2039
120 if (1855<=yyyy && yyyy<=1899){min=500; maks=749; skriv_personnr(fdato,min,max)}
121 if (1900<=yyyy && yyyy<=1999){min=000; maks=499; skriv_personnr(fdato,min,max)}
122 if (1940<=yyyy && yyyy<=1999){min=900; maks=999; skriv_personnr(fdato,min,max)}
123 if (2000<=yyyy && yyyy<=2039){min=500; maks=999; skriv_personnr(fdato,min,max)}
124 }# end of BEGIN
125 EOF

126 exit 0

127 Merk at dette kun er et regnestykke, hele oppskriften står i referansene.
128 Likevel lobotomerer jeg dette noe.
129 $ tail ./personnr
130 $ alias cmd="sed -i.bak"
131 $ cmd -e '1s#.bi.*$#/bin/bash#g' -e '/v...tall_1/s%V1%V2%' -e '/v...tall_2/s"V2"V1"' ...