Ho fatto una revisione del controllo della correttezza del codice IBAN già precedentemente pubblicato sul mio blog.
Il codice è risultato molto più essenziale rispetto al precedente che faceva uso di una funzione di divisione personalizzata per trovare il resto della divisione intera (modulo) tra il valore dell'IBAN, (dividendo) convertito in numerico e il divisore 97.
La classe C# CheckIban
/*
* Copyright Luciano Bastianello lbastianello at aim.com
* Data: 04/04/2008 7.36
* Questo software è liberamente utilizzabile.
* E' ceduto nello stato in cui si trova, non sono responsabile per
* malfunzionamenti o danni arrecati dal suo utilizzo.
* E' vietata la distribuzione del sorgente senza la presente intestazione
* da riprodurre in toto
*/
using System;
using System.Text;
namespace CheckIbanCs
{
/// <summary>
/// Determina il controllo della validità dell'IBAN per italia
/// e San Marino
/// </summary>
public sealed class CheckIban
{
// costanti
private const int MOD_NUM = 97;
private const string STATI = "IT,SM";
private const int L_IBAN = 27;
// membri privati
private static string mIBAN = string.Empty;
// rendiamo privato il costruttore per impedire
// l'istanziazione "privata" della classe
private CheckIban()
{
}
/// <summary>
/// Membro Esposto IBAN
/// </summary>
public static string IBAN
{
get
{
return mIBAN;
}
set
{
mIBAN = value;
}
}
/// <summary>
/// Validazione IBAN
/// </summary>
/// <param name="pIBAN">Codice IBAN da validare</param>
/// <returns>Testo</returns>
public static string ValidateIBAN(string pIBAN)
{
string retValue = string.Empty;
// trasformiamo in maiuscolo il codice depurato degli spazi
string codiceIBAN = pIBAN.Trim().ToUpper();
// se si ottiene una stringa vuota sono dolori! :)
if (codiceIBAN == string.Empty)
return "IBAN vuoto";
// Controllo lunghezza
if (codiceIBAN.Length != L_IBAN)
return string.Format("Verificare lunghezza IBAN dovrebbbe essere {0}",L_IBAN);
// test codice paese
if (!CheckPaese(codiceIBAN.Substring(0,2)))
return "Codice Stato diverso da [IT,SM]";
try
{
// trasformazione in stringa numerica
string codiceNumerico = CalcolaCodiceNumerico(codiceIBAN);
int i;
// applichiamo il modulo 97 su 6 caratteri alla volta
while (codiceNumerico.Length > 6)
{
i = int.Parse(codiceNumerico.Substring(0,6)) % MOD_NUM;
codiceNumerico = i.ToString() + codiceNumerico.Substring(6);
}
// la stringa restante con lunghezza <= 6 può essere
// convertita agevolmente
i = int.Parse(codiceNumerico) % MOD_NUM;
// se il valore modulo 97 non è uno il check digit
// dell'IBAN è errato
if (i != 1)
retValue = "Codice Errato";
else
retValue = "Codice Corretto";
}
catch (Exception ex)
{
retValue = ex.Message;
}
return retValue;
}
/// <summary>
/// Validazione IBAN
/// </summary>
/// <returns>Testo</returns>
public static string ValidateIBAN()
{
return ValidateIBAN(IBAN);
}
/// <summary>
/// Controllo del codice dello Stato
/// </summary>
/// <param name="codicePaese"></param>
/// <returns>Corretto/Errato</returns>
private static bool CheckPaese(string codicePaese)
{
return (STATI.IndexOf(codicePaese) != -1);
}
/// <summary>
/// Generazione stringa numerica a partire dal codice IBAN
/// Secondo le norme vengono spostati in fondo i primi 4
/// caratteri dell'IBAN
/// </summary>
/// <param name="codiceIBAN"></param>
/// <returns></returns>
private static string CalcolaCodiceNumerico(string codiceIBAN)
{
StringBuilder sb = new StringBuilder();
const string lettere = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
// per ogni carattere contenuto nella stringa riformattata per il calcolo
// troviamo la posizione relativa nella stringa lettere e
// aggiungiamo il valore ottenuto sull'oggetto stringbuilder
foreach (char c in codiceIBAN.Substring(4) + codiceIBAN.Substring(0,4))
{
int x = lettere.IndexOf(c);
if (x == -1)
throw (new Exception("Caratteri non validi nella stringa"));
sb.Append(x);
}
return sb.ToString();
}
}
}
La classe CheckIban VB.NET
' Copyright Luciano Bastianello lbastianello at aim.com
' Data: 04/04/2008 7.36
' Questo software è liberamente utilizzabile.
' E' ceduto nello stato in cui si trova, non sono responsabile per
' malfunzionamenti o danni arrecati dal suo utilizzo.
' E' vietata la distribuzione del sorgente senza la presente intestazione
' da riprodurre in toto
Imports System.Text
''' <summary>
''' Determina il controllo della validità dell'IBAN per italia
''' e San Marino
''' </summary>
Public NotInheritable Class CheckIban
' costanti
Private Const MOD_NUM As Integer = 97
Private Const STATI As String = "IT,SM"
Private Const L_IBAN As Integer = 27
' membri privati
Private Shared mIBAN As String = String.Empty
' rendiamo privato il costruttore per impedire
' l'istanziazione "privata" della classe
Private Sub New()
End Sub
''' <summary>
''' Membro Esposto IBAN
''' </summary>
Public Shared Property IBAN() As String
Get
Return mIBAN
End Get
Set
mIBAN = value
End Set
End Property
''' <summary>
''' Validazione IBAN
''' </summary>
''' <param name="pIBAN">Codice IBAN da validare</param>
''' <returns>Testo</returns>
Public Shared Function ValidateIBAN(ByVal pIBAN As String) As String
Dim retValue As String = String.Empty
' trasformiamo in maiuscolo il codice depurato degli spazi
Dim codiceIBAN As String = pIBAN.Trim().ToUpper()
' se si ottiene una stringa vuota sono dolori! :)
If codiceIBAN = String.Empty Then
Return "IBAN vuoto"
End If
' Controllo lungehzza
If codiceIBAN.Length <> L_IBAN Then
Return String.Format("Verificare lunghezza IBAN dovrebbbe essere {0}", L_IBAN)
End If
' test codice paese
If Not CheckPaese(codiceIBAN.Substring(0, 2)) Then
Return "Codice Stato diverso da [IT,SM]"
End If
Try
' trasformazione in stringa numerica
Dim codiceNumerico As String = CalcolaCodiceNumerico(codiceIBAN)
Dim i As Integer
' applichiamo il modulo 97 su 6 caratteri alla volta
While codiceNumerico.Length > 6
i = Integer.Parse(codiceNumerico.Substring(0, 6)) Mod MOD_NUM
codiceNumerico = i.ToString() + codiceNumerico.Substring(6)
End While
' la stringa restante con lunghezza <= 6 può essere
' convertita agevolmente
i = Integer.Parse(codiceNumerico) Mod MOD_NUM
' se il valore modulo 97 non è uno il check digit
' dell'IBAN è errato
If i <> 1 Then
retValue = "Codice Errato"
Else
retValue = "Codice Corretto"
End If
Catch ex As Exception
retValue = ex.Message
End Try
Return retValue
End Function
''' <summary>
''' Validazione IBAN
''' </summary>
''' <returns>Testo</returns>
Public Shared Function ValidateIBAN() As String
Return ValidateIBAN(IBAN)
End Function
''' <summary>
''' Controllo del codice dello Stato
''' </summary>
''' <param name="codicePaese"></param>
''' <returns>Corretto/Errato</returns>
Private Shared Function CheckPaese(ByVal codicePaese As String) As Boolean
Return (STATI.IndexOf(codicePaese) <> -1)
End Function
''' <summary>
''' Generazione stringa numerica a partire dal codice IBAN
''' Secondo le norme vengono spostati in fondo i primi 4
''' caratteri dell'IBAN
''' </summary>
''' <param name="codiceIBAN"></param>
''' <returns></returns>
Private Shared Function CalcolaCodiceNumerico(ByVal codiceIBAN As String) As String
Dim sb As New StringBuilder()
Const lettere As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
' per ogni carattere contenuto nella stringa riformattata per il calcolo
' troviamo la posizione relativa nella stringa lettere e
' aggiungiamo il valore ottenuto sull'oggetto stringbuilder
For Each c As Char In codiceIBAN.Substring(4) + codiceIBAN.Substring(0, 4)
Dim x As Integer = lettere.IndexOf(c)
If x = -1 Then
Throw (New Exception("Caratteri non validi nella stringa"))
End If
sb.Append(x)
Next
Return sb.ToString()
End Function
End Class
1 commento:
imparato molto
Posta un commento