Ověřování identifikačního čísla

užitečná funkcionalita, někde ovšem katastrofa

Je vhodné, pokud aplikace umí ověřit platnost různých identifikátorů, jako je například IČ (dříve IČO). Problém je, pokud ověřovací algoritmus funguje nesprávně.

Ověřování identifikačního čísla ekonomického subjektu (IČ nebo IČO) lze rozdělit do několika kroků . Můžeme si vše ukázat na příkladu IČ: 45535981

první až sedmou číslici vynásobíme čísly 8, 7, 6, 5, 4, 3, 2 a součiny sečteme:
soucet = 4*8 + 5*7 + 5*6 + 3*5 + 5*4 + 9*3 + 8*2 = 175
spočítáme zbytek po dělení jedenácti: zbytek = soucet % 11
pro poslední osmou číslici c musí platit:
- je-li zbytek 0 nebo 10, pak c = 1
- je-li zbytek 1, pak c = 0
- v ostatních případech je c = 11 - zbytek

Výsledný algoritmus v jazyku @Formula může vypadat například takto:

ico:=ic;
@If(@Length(ico)=0;@Return(@Success);@Success);
@If((@Length(ico)>0&@Length(ico)!=8);@Return(@Failure("IČ je 8-místné číslo"));@Success);
@For(i:=0;
i<=7;
i:=i+1;
a:=a+ @Middle(ico;i;1) + ",");
 
a:=@LeftBack(a;1);
ico := @TextToNumber(@Explode(a;","));
 
a := 0;
@For(i:=1;
i<=7;
i:=i+1;
a := a + (ico[i]*(9-i)));
 
a := @Modulo(a;11);
result:=@If(a=0|a=10;ico[8]=1;a=1;ico[8]=0;ico[8]=11-a);
 
@If(result;@Success;@Failure("Nesprávné číslo"))
 

Ověřovat IČ můžeme ovšem také pomocí jazyka LotusScript či dalších:

Function IsIcValid ( IC As String) As Boolean
 IsIcValid = False
 If (Len(IC) <> 8 Or Isnumeric(IC) = False ) Then
  IsIcValid = False
  Exit Function
 End If
 soucet = 0
 For i = 1 To 7
  soucet = soucet + (Cint(Mid(IC,i,1))*(9-i))
 Next
 zbytek = soucet Mod 11
 If (zbytek = 0 Or zbytek = 10) And Cint(Right(IC,1)) = 1 Then
  IsIcValid = True
  Exit Function
 Elseif ((zbytek = 1) And Cint(Right(IC,1))=0) Then
  IsIcValid = True
  Exit Function
 Elseif (Cint(Right(IC,1)) = 11-zbytek ) Then
  IsIcValid = True
  Exit Function
 End If
End Function