Text 656, 71 rader
Skriven 2000-12-13 23:05:00 av Michael Cronsten (2:205/412)
    Kommentar till text 652 av Björn Felten (2:203/208)
Ärende: Dagens osanning
=======================
 BF>MC> 9981212-1237 
 BF>MC> 
 BF>MC> Ovanstående kvinna 
 BF> 
 BF>    Ovanstående personnummer tillhör faktiskt en man. Eller, rättare 
 BF> sagt, en tvåårig pojke. Troligen född i närheten av Stockholm. 
 
Jo, upptäckte det när jag läste igenom det, jag är ju själv faktiskt en 3:a
och man. Sen vart nog kontrollsiffran fel i mitt exempel oxå. 
 
 BF>MC> Kontrollsiffran räknas ut genom att man skriver växelvis 
 BF>MC> 2 och 1 under det tiosiffriga personnumret, och 
 BF>MC> multiplicerar med siffran ovanför. 
 BF> 
 BF>    Kontrollsiffran, som går under lite olika benämningar, brukar i 
 BF> Sverige kallas IBM modulus 10 (vill jag minnas), men går i den 
 BF> anglosaxiska världen mest under benämningen Luhn Check Digit (vilket 
 BF> man kan söka på på DAN om man vill veta mer), uppfanns av en 
 BF> programmerare (med ett svenskklingande namn, som jag inte minns just 
 BF> nu) på IBM på 50-talet. 
 
Aha, är det så gammalt. 
 
 BF>    Samma kontrollsiffra användes i många andra ADB-sammanhang, såsom 
 BF> post- och bankgironummer samt kreditkortsdito. I dessa fall blir det 
 BF> komplicerat att applicera den där modellen med att skriva omväxlande 
 BF> ettor och tvåor under varannan siffra, eftersom man ofta gör fel på 
 BF> vilken av de två siffrorna man skall börja med, ety numren alla är av 
 BF> olika längd. 
 
Har för mig att man alltid börjar med en 2:a, det funkade iaf så på
postgironummer. 
 
Här kommer en fungerande kod i SuperBASIC: 
 
100 CLS: PRINT 'Personnummerkollarprogget v1.00 av Michael Cronsten'\\ 
110 : 
120 REPeat r 
130  PRINT \'Personnummer:';: INPUT p$ 
140  IF p$='': EXIT r: ELSE pnr p$ 
150 END REPeat r 
160 : 
170 DEFine PROCedure pnr(i$) 
180  LOCal i,ggr%,tot%,tmp$(4) 
190  IF LEN(i$)=11: i$=i$(1 TO 6)&i$(8 TO 11) 
200  IF LEN(i$)<>10 THEN 
210   PRINT 'Fel format! (Ex: 600627-8235 eller 6006278235)': RETurn 
220  END IF 
230  ggr%=2: tot%=0 
240  FOR i=1 TO 9 
250   IF NOT i$(i) INSTR '0123456789': PRINT 'Ej siffror!': RETurn 
260   tmp$=ggr% * i$(i) 
270   tot%=tot%-tmp$(LEN(tmp$))-(tmp$>=10): tot%=tot%+10*(tot%<0) 
280   ggr%=ABS(ggr%-3) 
290  END FOR i 
300  IF tot%=i$(10): PRINT 'Korrekt checksiffra!': RETurn 
310  PRINT 'Checksiffran fel! (Ska vara ';tot%;')' 
320 END DEFine pnr 
 
Det är skrivet 1993 och kan användas för att kolla att personnummer är
korrekta. Hade även skrivit ett i OPL men det lyckas jag inte hitta. Nu har
jag tom. letat fram min andragenerationshanddator Psion LZ64 och när
batteriet i brandvarnaren var för svagt fick jag ta det ur digitalvoltmetern,
men bland filerna på mina tre datapakar hittar jag inget
personnummeruträkningsprogram. Så tyvärr. Det var iaf skrivet för över 10 år
sen. 
 
Mvh  Mi Cro   
  
---
 * Origin: Jamten-TCL   +46-63-133330 (2:205/412)