IBAN überprüfen

[Sharky]

Zitat von HeikoAdams:

...

Delphi-Quellcode:

    nControl := StrToInt(Copy(aIBAN, 3, 2));
...
    sIBAN := sBLZ + sKTO + sLand2 + IntToStr(nControl);
end;

Hai Heiko,

warum wandelst Du das "Copy-Ergebniss" in eine Zahl nur um sie dann später wieder ein einen String zu wandeln?

[HeikoAdams]

Zitat von Sharky:

Hai Heiko,
warum wandelst Du das "Copy-Ergebniss" in eine Zahl nur um sie dann später wieder ein einen String zu wandeln?

Das war noch ein Überbleibsel aus einer früheren Version des Codes, das ich übersehen hatte. Habs geändert

[ms61]

Hallo,
bin auf der Suche nach einer schnellen IBAN-Validierung (für Massenverarbeitung) auf diesen Thread gestoßen. Da die bisherige Lösung nicht auf Schnelligkeit getrimmt war, habe ich dann doch selbst etwas programmiert. Für alle, die es interessiert:

Code:

// Prüfung einer IBAN auf formale Korrektheit (ohne Prüfung der Gültigkeit des Länderkürzels)
// Autor: Dr. Michael Schramm, Bordesholm
function checkIban(const sIban: String): boolean;
var k,i,n,len: integer; c: char;
    buff: array[0..67] of char;
begin
  result:= false;
  n:= length(sIban);
  if (n < 5) or (n > 34) then exit;
  len:= 0; k:= 5;
  repeat // IBAN als Ziffernfolge in geänderter Reihenfolge in buff schreiben
    c:= sIban[k];
    if (c >= '0') and (c <= '9') then begin
      buff[len]:= c; inc(len)
    end
    else if (c >= 'A') and (c <= 'Z') then begin
      i:= ord(c)-55;
      buff[len]:= char(i div 10 + 48); inc(len);
      buff[len]:= char(i mod 10 + 48); inc(len)
    end
    else exit;
    inc(k);
    if k > n then k:= 1
  until k = 5;
  i:= 0; // aktueller Rest für Modulo-Berechnung
  for k:= 0 to len-1 do begin // modulo 97 berechnen
    i:= (i * 10 + ord(buff[k]) - 48) mod 97;
  end;
  result:= (i = 1)
end;

Die Funktion erwartet die IBAN in kurzer Form, so wie sie z. B. in SEPA-XML-Dateien auftritt. Falls die IBAN Leerzeichen enthält, müssen diese vor der Prüfung entfernt werden.

Grüße
Michael

[HeikoAdams]

Ich habe Deinen Code in meine Klasse übernommen.

[Amateurprofi]

@ms61:
Hier eine um 15-20 % schnellere Version:

Delphi-Quellcode:

FUNCTION IsIBAN(const s:string):boolean;
var len,cs:integer;
FUNCTION GetCheckSum(first,last:integer):boolean;
var i:integer; c:integer;
begin
   for i:=first to last do begin
      c:=Ord(s[i])-48;
      case c of
         0..9     :  cs:=(cs*10+c) mod 97;
         17..42   :  cs:=(((cs*10+(c-7) Div 10) mod 97)*10+(c-7) Mod 10) Mod 97;
         else Exit(False);
      end;
   end;
   result:=true;
end;
begin
   len:=Length(s);
   if (len<5) or (len>34) then Exit(false);
   cs:=0;
   if not GetCheckSum(5,len) then Exit(false);
   if not GetCheckSum(1,4) then Exit(false);
   result:=cs=1;
end;

Noch deutlich schneller geht es, wenn man eine Tabelle benutzt um die "teuren" Mod-Operationen zu vermeiden.
Nachteil : Die Tabelle muß entweder als Konstante hinterlegt oder bei Programmstart einmalig gefüllt werden,
was für die Massenverarbeitung aber sicherlich kein Hindernis ist.

Zum Beispiel so :

Delphi-Quellcode:

var
   m97tab:array[0..96,0..9] of byte;

PROCEDURE FillM97Tab;
var i,j:Integer;
begin
   for i:=0 to 96 do
      for j:=0 to 9 do
         m97tab[i,j]:=(i*10+j) Mod 97;
end;

FUNCTION IsIBAN2(const s:string):boolean;
var len:integer; cs:byte;
FUNCTION GetCheckSum(first,last:integer):boolean;
var i:integer; c:integer;
begin
   for i:=first to last do begin
      c:=Ord(s[i])-48;
      case c of
         0..9     :  cs:=m97tab[cs,c];
         17..42   :  cs:=m97tab[m97tab[cs,(c-7) Div 10],(c-7) Mod 10];
         else Exit(False);
      end;
   end;
   result:=true;
end;
begin
   len:=Length(s);
   if (len<5) or (len>34) then Exit(false);
   cs:=0;
   if not GetCheckSum(5,len) then Exit(false);
   if not GetCheckSum(1,4) then Exit(false);
   result:=cs=1;
end;

Gemessene Zeiten für 1 Mio Durchläufe:
CheckIban : 249 ms
IsIBAN : 203 ms
IsIBAN2 : 94 ms

[HeikoAdams]

So, nachdem hier einiges an Feedback aufgeschlagen ist, das ich dankenderweise übernommen habe, anbei mal eine aktuelle Version der TIBan Klasse.

[ms61]

Oh, hier hat sich ja einiges getan (ich war zwei Tage weg). Inzwischen (eine Nacht darüber schlafen...) war mir schon aufgegangen, dass die Zwischenspeicherung in einem Array nicht erforderlich ist und eine einzige Programmschleife zur Verarbeitung genügt. Auch die DIV- und MOD-Operationen zur Basis 10 braucht man gar nicht - man kann ja zwei Ziffern auf einmal verarbeiten. Die Lösung schaut dann so aus:

Delphi-Quellcode:

function checkIban(const sIban: String): boolean;
var k,n,rest: integer; c: char;
begin
  result:= false;
  n:= length(sIban);
  if (n < 5) or (n > 34) then exit;
  rest:= 0; k:= 5;
  repeat // Zeichen der IBAN in geänderter Reihenfolge per Modulo-97 prüfen
    c:= sIban[k];
    case c of
      '0'..'9': // Ziffer als solche berücksichtigen
        rest:= (rest * 10 + ord(c) - 48) mod 97;
      'A'..'Z': // 'A' wie '10, 'B' wie '11' usw.
        rest:= (rest * 100 + ord(c) - 55) mod 97
      else exit
    end;
    inc(k);
    if k > n then k:= 1
  until k = 5;
  result:= (rest = 1)
end;

Die Modulo-97-Reste nur einmal zu berechnen und in einer Tabelle zu speichern, ist eine gute Idee, Amateurprofi! Für meine Zwecke lohnt das aber nicht wirklich. Massenverabeitung heißt in meinem Fall, dass es um einige 10.000 Datensätze geht, und jede Verarbeitung unter einer Sekunde ist gut - den Bereich haben wir ja locker erreicht...

Viele Grüße
Michael