function chk_cin()
{
 cc=document.forms['input'].cabi.value + document.forms['input'].ccab.value;
 cc = cc + document.forms['input'].ccor.value;
 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# #-#.#";
 dd=0;
 iban2="";
 cifre="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";

 for (var k=1; k<22; k+=2)
     {
       dd = dd + Math.floor(aa.indexOf(cc.charAt(k))/2);
     }
 for (var k=0; k<22; k+=2)
     {
       dd=dd+Math.floor(bb.indexOf(cc.charAt(k))/2);
     }

 dd=dd-(Math.floor(dd/26)*26);

 cin = aa.charAt(dd*2);

 cc1 = cin+cc+"IT"+"00";
 for (var iban1=0;iban1<cc1.length;iban1++)
     {
       iban2+=cifre.indexOf(cc1.charAt(iban1));
     }
divisore=97;
div1=""
for (var ciclo1 = 0; ciclo1 < iban2.length; ciclo1++)
    {
      div1=div1+iban2.charAt(ciclo1);
      if (div1<divisore) continue;
      else 
         {
           div1=div1%divisore;
         }
    }

iban2=98 - div1;
iban2="0"+iban2;
iban2=iban2.charAt(iban2.length-2)+iban2.charAt(iban2.length-1);
iban = "IT"+iban2+cin+cc;
iban3 = iban.substr(0,4) + " " + iban.substr(4,4) + " ";
iban3 = iban3 + iban.substr(8,4) + " " + iban.substr(12,4) + " ";
iban3 = iban3 + iban.substr(16,4) + " " + iban.substr(20,4) + " ";
iban3 = iban3 + iban.substr(24,4) + " " + iban.substr(28,4) + " ";
iban3 = iban3 + iban.substr(31,3);
document.forms['genera'].dcin.value = "Codice CIN :";
document.forms['genera'].cin.value = cin;
document.forms['genera'].diban.value = "Codice IBAN :";
document.forms['genera'].iban.value = iban3;
}

function chk_cabi()
{
 document.forms[0].elements[0].value=document.forms[0].elements[0].value.toUpperCase();
 if (document.forms[0].elements[0].value.length!=5 )
    {
      alert("Attenzione! Il codice ABI è di 5 caratteri" );
    }
}

function chk_ccab()
{
  document.forms[0].elements[1].value=document.forms[0].elements[1].value.toUpperCase();
  if (document.forms[0].elements[1].value.length!=5 )
     {
      alert("Attenzione! Il codice CAB è di 5 caratteri" );
     }
}

function chk_all()
{
  chk_cabi();
  chk_ccab();
  document.forms[0].elements[2].value=document.forms[0].elements[2].value.toUpperCase();
  lunghezza=document.forms[0].elements[2].value.length;
  if (document.forms[0].elements[2].value.length<12 )
     {
       for(var i=1;i<(13-lunghezza);i++)
          {
            document.forms[0].elements[2].value="0"+document.forms[0].elements[2].value;
          }
     }
  if (document.forms[0].elements[2].value.length!=12 )
     {
       alert("Attenzione! Il numero di conto corrente deve essere di 12 caratteri" ); 
     }
  chk_cin();
}