Cpr validator

Det løser ikke dit problem, ud over at du kan slette linien, men man skal generelt ikke længere køre med checksum-test: http://cpr.dk/cpr/site.aspx?p=23&t=ForsideVisartikel&Articleid=4347

Skyldes den fejlende kode ikke at du ikke har dim'et din Check?

Function CPROK(Streng)
    Dim Nummer, Sum
    Dim Check(9)
    Nummer = Trim(Replace(Streng, "-", ""))

    If Len(Nummer) <> 10 Or Not IsNumeric(CStr(Nummer)) Then Exit Function

    Check = Array(4, 3, 2, 7, 6, 5, 4, 3, 2, 1)
    Sum = 0
    For i = 0 To 9
        Sum = Sum + CInt(Mid(Nummer, i, 1)) * Check(i)
    Next

    If Sum Mod 11 = 0 Then
        CPROK = True
    Else
        CPROK = False
    End If
End Function

Udover det er jeg 100 % enig i det problematiske ved at tjekke med modulus 11 mere...

Jo desværre. Det er hvad opgaven lyder. Nogen gode forslag ?

Det skal siges jeg er meget grøn på dette område. jeg startede på det i mandags

Det er fordi du starter din indeksering i strengen Nummer ved 0 og i VBScrpt er det 1 som er første tegn i en streng...

DJ_Jens85>> Er fejlmeddelelsen hemmelig? :)

Så du kan eksempelvis gøre således:

    For i = 0 To 9
        Sum = Sum + CInt(Mid(Nummer, i+1, 1)) * Check(i)
    Next

eller

    For i = 1 To 10
        Sum = Sum + CInt(Mid(Nummer, i, 1)) * Check(i-1)
    Next

Desuden skal dette check nok også rettes fra:

  If CInt(Mid(Nummer, 9, 1)) Mod 2 = 0 Then

til:

  If CInt(Mid(Nummer, 10, 1)) Mod 2 = 0 Then

w13>> Her :)

Siden kan ikke vises
Der er opstået et problem med den side, du forsøger at se, og siden kan ikke vises.

HTTP 500,100 - Intern fejl på serveren - ASP-fejl -
Internet Information Services

Tekniske oplysninger (for supportteknikere)

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A0005)
Procedurekaldet eller argumentet er ugyldigt: 'Mid'
/cpr.asp, line 9

Noget helt andet er hvad du skal bruge det til...

Du kan ALDRIG kræve at en person skal oplyse fuldt person nummer (de sidste 4 cifre). Det er vist kun banker og kommunen/staten der må det (mener ikke engang politiet har krav på det)

Hjælper Softspots løsning dig?

softspot>> Jeg har prøvet at tilrette dem men jeg for også fejl ved det ?

Prøvede du også hans:

    For i = 1 To 10
        Sum = Sum + CInt(Mid(Nummer, i, 1)) * Check(i-1)
    Next

Og er det samme fejl?

Fennec>> Det er en skoleopgave. Det skal ikke bruges til andet. Bare rolig =)

Jeg er bare blank derfor jeg spørger jer

w13>> Skriver den bare Ugyldigt.

Brug hellere denne:

    For i = 0 To 9
        Sum = Sum + CInt(Mid(Nummer, i+1, 1)) * Check(i)
    Next

Og så skal Check stadig Dim'es.

Nielle>> Nu kommer den bare frem med "Ugyldigt"

Rettede du begge steder (jf. 25/10-2007 13:50:16)?

Okay vi starter lige forfra.

Hvis jeg nu f.eks godt kunne tænke mig at den skal Fra dagsdato kunne Udregne alle de gyldige cpr-numre som der kunne laves idag, hvordan skal den så se ud ?

Softspot>> Ja det gjorde jeg =)

Hvordan ser din kode ud lige nu?

Den opgave du kaster op i luften 25/10-2007 14:07:24, er lidt anderledes end den du spørger om, så mon ikke vi bare skal løse spørgsmålet her...? ;-)

Jeg ved godt at den er lidt anderledes, Men er det for besværligt ?
Kunne godt tænke mig den ændring nemlig, Hvis du selfølgelig vil hjelpe mig ?

Jamen efter din rådgivning ser min kode således ud

<%
Function CPROK(Streng)
  Dim Nummer, Sum
  Nummer = Trim(Replace(Streng, "-", ""))
  If Len(Nummer) <> 10 Or Not IsNumeric(CStr(Nummer)) Then Exit Function
  Check = Array(4, 3, 2, 7, 6, 5, 4, 3, 2, 1)
  Sum = 0
  For i = 0 To 9
      Sum = Sum + CInt(Mid(Nummer, i, 1)) * Check(i-1)
  Next
  If Sum Mod 11 = 0 Then CPROK = True
End Function

If CPROK("250342-1247") Then
  Response.Write "Gyldigt CPR"

  If CInt(Mid(Nummer, 10, 1)) Mod 2 = 0 Then
  Response.Write "... og du er en <span style=""color: red"">kvinde</span>"
Else
  Response.Write "... og du er en <span style=""color: blue"">mand</span>"
End If

Else
  Response.Write "Ugyldigt!"
End If
%>

Du har glemt at rette løkkens grænseværdier. De skal rettes fra 0 og 9 til 1 og 10, altså:

  For i = 1 To 10
      Sum = Sum + CInt(Mid(Nummer, i, 1)) * Check(i-1)
  Next

Samme Meddelse "Ugyldig"

Og således ser det ud

<%
Function CPROK(Streng)
  Dim Nummer, Sum
  Nummer = Trim(Replace(Streng, "-", ""))
  If Len(Nummer) <> 10 Or Not IsNumeric(CStr(Nummer)) Then Exit Function
  Check = Array(4, 3, 2, 7, 6, 5, 4, 3, 2, 1)
  Sum = 0
  For i = 1 To 10
      Sum = Sum + CInt(Mid(Nummer, i, 1)) * Check(i-1)
  Next
  If Sum Mod 11 = 0 Then CPROK = True
End Function

If CPROK("250342-1247") Then
  Response.Write "Gyldigt CPR"

  If CInt(Mid(Nummer, 10, 1)) Mod 2 = 0 Then
  Response.Write "... og du er en <span style=""color: red"">kvinde</span>"
Else
  Response.Write "... og du er en <span style=""color: blue"">mand</span>"
End If

Else
  Response.Write "Ugyldigt!"
End If
%>

Jeg tror der er et eller andet helt galt med mit script.

Og du er sikker på at det CPR-nr du kontrollerer er gyldigt? ;-)

Desuden skal du sørge for at returnere et veldefineret resultat fra din funktion, inden du afslutter den. Der er mindst 2 veje igennem din funktion som ikke returnerer noget. Det kan godt være VBScript tillader dette, men der er andre sprog hvor dette ikke er tilladt, så tillæg dig nogle gode vaner fra starten :-)

Du kan f.eks. starte med at sætte CPROK = false, inden du begynder at manipulere parameteren Streng.

Jeg ved godt alt det her lyder meget forvirret, men jeg er blevet kastet ind i det her og har kun haft det i 3 ½ dag. alt dette er nyt for mig. Var der en mulighed for du kunne hjælpe mig lidt. f.eks hvis du selv kunne tjekke det ?

Prøv at checke dit eget CPRnr med den funktion - det burde jo være gyldigt ;-)

Hvis den stadig melder "ugyldig", så er der nok noget i vejen med kontrol-tallene...

Melder fejl i linie 17

If CInt(Mid(Nummer, 10, 1)) Mod 2 = 0 Then

Ja, det er fordi Nummer ikke er defineret i det scope hvor du refererer til den. Prøv lige denne version af kode i stedet (det hele skal udskiftes):

<%
Function CPROK(Streng)
  Dim Nummer, Sum, Check, i

  CPROK = false
  Nummer = Trim(Replace(Streng, "-", ""))

  If Len(Nummer) <> 10 Or Not IsNumeric(Nummer) Then Exit Function

  Check = Array(4, 3, 2, 7, 6, 5, 4, 3, 2, 1)

  Sum = 0
  For i = 1 To 10
      Sum = Sum + CInt(Mid(Nummer, i, 1)) * Check(i-1)
  Next

  If Sum Mod 11 = 0 Then CPROK = True
End Function

cprnr = "250342-1247"

If CPROK(cprnr) Then
  Response.Write "Gyldigt CPR"

  If CInt(Mid(cprnr, 10, 1)) Mod 2 = 0 Then
    Response.Write "... og du er en <span style=""color: red"">kvinde</span>"
  Else
    Response.Write "... og du er en <span style=""color: blue"">mand</span>"
  End If

Else
  Response.Write "Ugyldigt!"
End If
%>

Det fungere nu. Det var cpr-numret den var galt med. og jeg kan se ud fra beregningen at den er helt gal :P Den siger jeg er en kvinde... Men det er nu en lettere sag at ordne. Men for at vende tilbage til mit andet spørgsmål med Hvis jeg ønsker at udskrive alle de gyldige cpr-numre for pågældende dag ? var det noget du ville hjælpe mig med ?

Ellers skal du have tak for din hjælp :-)

Ja, det med kvinde/mand, det er givetvis fordi det næstsidste tal i dit CPRnr er et lige tal. Da cprnr indeholder en bindestreg er det jo det 11. tegn du skal kontrollere og ikke det 10.

Mht. til genereringen af cprnumre, så har jeg ikke lige tid til at sætte mig ind i hvordan det skal beregnes, så hvis du selv kan flikke et forslag sammen, hvor reglerne fremgår, så kan jeg muligvis hjælpe dig med at gøre den færdig (det er jo din opgave, ikke sandt? ;-)).

Selvfølgelig er det det :-)

Jeg har allerede lavet lidt af det hvis du vil se på det. har ikke den fjerneste idé om det er noget der fungere endnu..

<%
Dim check, A(9), Dato
Dato = "251007"
Check = Array (4, 3, 2, 7, 6, 5, 4, 3, 2)
A(0) = mid(Dato,1,1)
A(1) = mid(Dato,2,1)
A(2) = mid(Dato,3,1)
A(3) = mid(Dato,4,1)
A(4) = mid(Dato,5,1)
A(5) = mid(Dato,6,1)
A(6) = mid(Dato,7,1)
A(7) = mid(Dato,8,1)
    For x 0 to 999
        if x < 100 then
        a(8)="0"
       
        if x < 10 then
        a(9)="0"
       
   
        next
       
       
       
       
        %>

Jeg tror vist lige du skal have lov til at arbejde lidt mere med den der... ;-)

Tak for point :)

Det er jeg også ret sikker på jeg skal. Syntes bare det er meget svært, da jeg ikke har haft noget erffaring med det og så bliver kastet ud i sådan en opgave :)

Jamen det var så lidt, Det er dig jeg skal takke for den gode Tålmodighed, med dumme spørgsmål.

Ingen spørsgmål er dumme (første gang de bliver stillet :-)).

En simpel løsning (men ikke nødvendigvis den mest effektive) var at kalde din egen funktion CPROK med hver af det 9000 kombinationer af dags dato og de fire cifre og så bare udskrive dem der er valide. Men jeg er sikker på at det ikke er det der er menigen med opgaven, så det går nok ikke med mindre du også leverer den "rigtige" løsning... :-)

Response.Write("Valide CPR-numre:<br>")
idag = "251007"
for i = 1000 to 9999
  checkcprnr = idag & "-" & i
  if cprok(checkcprnr) then
    Response.Write(checkcprnr & "<br>)
  end if
next

9000?

erikjacobsen >> Er det tilladt at have cifre der starter med nul i de sidste 4?

Ja:

http://cpr.dk/cpr_artikler/Files/Fil1/4225.pdf

OK, men så 10000 da, men rutinen bliver nu ikke ret meget forskellig fra den med 9000 :-)

Men for en god orden skyld:

Response.Write("Valide CPR-numre:<br>")
idag = "251007"
for i = 0 to 9999
  checkcprnr = idag & "-" & right("0000" & i, 4)
  if cprok(checkcprnr) then
    Response.Write(checkcprnr & "<br>)
  end if
next

Og som linket i første kommentar siger, så kan vi vel egentlig bare slette

  if cprok(checkcprnr) then

og gøre 251007-0000 til 251007-9999 til lovlige cpr-numre. Ja, ok, det er en skoleopgave, men så må du fortælle dine lærere, at den netop er blevet for gammel ;)

Ja, men det er sq nok ikke så vigtigt om det er en rutine til CPRnr-check eller beregning af fibonachi - det er nok metodikken der er interessant ;-)

Muligvis, men den med at lave CPR validering ser man stadig gang på gang uanset at folk faktisk har været advaret af CPR registeret selv i en del år efterhånden.

Lærene har derfor et job med at gøre deres egne studerende klar over det...

Hej igen:-)

Jeg fik delvist lavet min opgave færdig og den kom til at se helt anderledes ud end dette resultat. jeg kan lige sende det til jer når jeg kommer på min bærbar. den er slet ikke færdig med den er accepteret :-)

Nielle>> Læren er godt klar over det. Det var bare en opgave vi skulle lave for at vise vi kunne skrive sproget. Ikke fordi det skulle være brugbart i den forstand bagefter.

Ikke særligt pædagogisk hvis læreren så ikke også fortæller det. :^)

Det kan man jo selv læse :P