Ecco un esempio scritto in Delphi, utilizzando alcune VCL (che trovate nella unit allegata bankclass.pas) per calcolare i codici BBAN e IBAN di alcuni paesi della comunita europea (Italia compresa).
La libreria si compone di una classe generica (TCustomBBAN) dalla quale vengono ereditate alcune classi specializzate (TAustrianBBAN, TBelgianBBAN, TGreekBBAN, TItalianBBAN, TSanMarinoBBAN) per il calcolo del codice BBAN e della classe TIBAN per il calcolo del codice IBAN.

Download BankClass.zip

Per estendere le classi potete fare riferimento alla documentazione sul sito ufficiale ECBS (European Committee for Banking Standards) in particolare al file TR201v3.12.pdf

Per calcolare il BBAN Italiano concatenare ABI + CAB + C/C e calcolarne il check digit (CIN) secondo quanto segue:

ABI (5 caratteri Numerici, se l’ABI e’ inferiore a 5 caratteri riempire di 0 (zero) a sinistra)
CAB (5 caratteri Numerici, se il CAB e’ inferiore a 5 caratteri riempire di 0 (zero) a sinistra)
CONTO CORRENTE (12 caratteri Alfanumerici, se il C/C e’ inferiore ai 12 caratteri riempire di 0 (zero) a sinistra).

es. 05428 11101 000000123456

Partendo da sinistra, assegnare una valore numerico per ciascun carattere nelle posizioni (pari e dispari) secondo le le tabelle sotto illustrate (il primo carattere a sinistra viene considerato “dispari”)

Trasformazione delle posizioni Dispari

A / 0 = 1 K = 2 U = 16
B / 1 = 0 L = 4 V = 10
C / 2 = 5 M = 18 W = 22
D / 3 = 7 N = 20 X = 25
E / 4 = 9 O = 11 Y = 24
F / 5 = 13 P = 3 Z = 23
G / 6 = 15 Q = 6
H / 7 = 17 R = 8
I / 8 = 19 S = 12
J / 9 = 21 T = 14

Trasformazione delle posizioni Pari

A / 0 = 0 K = 10 U = 20
B / 1 = 1 L = 11 V = 21
C / 2 = 2 M = 12 W = 22
D / 3 = 3 N = 13 X = 23
E / 4 = 4 O = 14 Y = 24
F / 5 = 5 P = 15 Z = 25
G / 6 = 6 Q = 16
H / 7 = 7 R = 17
I / 8 = 8 S = 18
J / 9 = 9 T = 19

La somma dei singoli valori deve essere divisa per 26 e il resto convertito in un carattere alfabetico secondo la seguente tabella:

0 = A 9 = J 18 = S
1 = B 10 = K 19 = T
2 = C 11 = L 20 = U
3 = D 12 = M 21 = V
4 = E 13 = N 22 = W
5 = F 14 = O 23 = X
6 = G 15 = P 24 = Y
7 = H 16 = Q 25 = Z
8 = I 17 = R

Aggiungere il carattere ottenuto davanti alla stringa iniziale (Composta da ABI + CAB + C/C) es. X0542811101000000123456