PersoGen

[Interceptor]

Hi Leute,

ich möchte euch heute meinen Personalausweisnummern-Generator (kurz "PersoGen") vorstellen.
Dieser ist in der Lage, gültige Personalausweisnummern zu erzeugen & zu verifizieren.

Und weil das ganze ohne Sourcecode ja langweilig wäre, pack ich ihn gleich mit dazu
Der Algorithmus hierzu ist im Web frei verfügbar unter der Adresse (http://www.aspheute.com/artikel/20020507.htm)

Viel Spaß beim Code-studieren,
Interceptor

[Ultimator]

Auf die Gefahr hin, dass ich mich unbeliebt mach: Ich hab anscheinend eine ungültige ID auf meinem Perso

Hab die ID genau so abgetippt, wie sie auf meinem Ausweis draufsteht, aber er sagt mir, dass die ID ungültig ist

[ibp]

Zitat von Ultimator:

Auf die Gefahr hin, dass ich mich unbeliebt mach: Ich hab anscheinend eine ungültige ID auf meinem Perso

d.h. du bist illegal!
... ich hab die grünen schon informiert!

[PierreB]

Zitat von Ultimator:

Auf die Gefahr hin, dass ich mich unbeliebt mach: Ich hab anscheinend eine ungültige ID auf meinem Perso

Da hier scheinbar keiner deine Nummer kennt und es bei allen anderen geht, schreib doch einfach mal deine Nummer hier in den Thread.

[Matze]

Zitat von Ultimator:

Hab die ID genau so abgetippt, wie sie auf meinem Ausweis draufsteht, aber er sagt mir, dass die ID ungültig ist

Meine auch, falls es die ist, die auf der Vorderseite (die mit dem Foto) ganz unten steht, also die komplette Zeile.

[n0b0dy]

bei mir ebenfalls ungültig...

[shmia]

Dein Exception-Handling ist unsauber/fehlerhaft!

Delphi-Quellcode:

function IsValidID(ID: string): boolean;
begin
  try
    Row1 := .....
    .....  // ***
    if not
        ((Ps1 = StrToInt(ID[10])) and
        (Ps2 = StrToInt(ID[20])) and
        (Ps3 = StrToInt(ID[28])) and
        (Ps4 = StrToInt(ID[36]))) then
      result := false
    else
      result := true;
  except
    exit
  end;
end;

Wenn nun an der Stelle, die mit *** gekennzeichnet wurde eine Exception auftritt ??
Du wirst niemals erfahren, was schiefgelaufen ist und ausserdem ein undefiniertes Result erhalten.
Korrektes Exception-Handling sieht so aus:

Delphi-Quellcode:

function IsValidID(ID: string): boolean;
begin
  try
    Row1 := .....
    .....  // ***
    if not
        ((Ps1 = StrToInt(ID[10])) and
        (Ps2 = StrToInt(ID[20])) and
        (Ps3 = StrToInt(ID[28])) and
        (Ps4 = StrToInt(ID[36]))) then
      result := false
    else
      result := true;
  except
  on E:Exception do
  begin
     E.Message := 'Fehler in IsValidID('+ID+')'#13#10+
        E.Message;
     raise;
  end;
  end;
end;

Der Aufrufer, bekommt eine recht genaue Beschreibung, was schiefgelaufen ist.
Die Exception wird nur abgefangen und erneut ausgelöst.