DACCII.it

function CalculateIBAN($ABI, $CAB, $AccountNumber)
{
    // Inizializzazioni variabili
    $aa         = 'A0B1C2D3E4F5G6H7I8J9K#L#M#N#O#P#Q#R#S#T#U#V#W#X#Y#Z#-#.# #';
    $bb         = 'B1A0K#P#L#C2Q#D3R#E4V#O#S#F5T#G6U#H7M#I8N#J9W#Z#Y#X# #-#.#';
    $tabella    = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
    $iban2      = '';
    $dd         = 0;
    $divisore   = 97;
    $div1       = '';
    $bban       = $ABI . $CAB . $AccountNumber;
 
    // Calcola il CIN del BBAN
    $dd = 0;
    for($index = 1; $index < 22; $index += 2)
    {
        $dd = $dd + ((int)(strpos($aa, $bban{$index}) / 2));
    }
    for($index = 0; $index < 22; $index += 2)
    {
        $dd = $dd + ((int)(strpos($bb, $bban{$index}) / 2));
    }
    $dd = $dd - (((int)($dd / 26)) * 26);
 
    $cin = $aa{$dd * 2};
 
    // Calcola il codice di controllo dell'IBAN
    $bban1 = $cin . $bban . 'IT' . '00';
 
    for($iban1 = 0; $iban1 < strlen($bban1); $iban1++)
    {
        $iban2 .= strpos($tabella, $bban1{$iban1});
    }
 
    for ($ciclo1 = 0; $ciclo1 < strlen($iban2); $ciclo1++)
    {
        $div1 = $div1 . $iban2{$ciclo1};
 
        if ($div1 < $divisore)
        {
            continue;
        }
        else 
        {
            $div1 = $div1 % $divisore;
        }
    }
 
    $iban2 = 98 - $div1;
    $iban2 = '0' . $iban2;
    $iban2 = $iban2{strlen($iban2) - 2} . $iban2{strlen($iban2) - 1};
 
    // Restituisce l'IBAN
    return "IT" . $iban2 . $cin . $bban;
}