function darformato_RUT(chrcadena)
{
   //se completa de ceros a la izquierda a la cadena que contiene al RUT completo
   if (chrcadena.length <10) 
   {  ii=10-chrcadena.length;
      for (i= 1;i<=ii;i++)
      { chrcadena="0"+chrcadena; }
   }
   return (chrcadena)
}
  
function modulo11(chrcadena)
{
  digitoverificador="";
  digitos= new Array(12);
  acum=0;
  modulo=0;
  valido=-1;
  chrcadena=darformato_RUT(chrcadena);
  if (chrcadena.substring(9,9+1) =="k" || chrcadena.substring(9,9+1) =="K")
  { digitoverificador="K"; }
  else
  { digitoverificador=chrcadena.substring(9,9+1); }
  for (acum=0;acum<10;acum++)
  { digitos[acum]=chrcadena.substring(acum,acum+1); }
  acum=0;
  acum=digitos[0]*4+digitos[1]*3+digitos[2]*2+digitos[3]*7+digitos[4]*6+digitos[5]*5+digitos[6]*4+digitos[7]*3+digitos[8]*2;
  digi=0;
  modulo = 11 - (acum % 11);
  if (modulo==10)
    digi="K";
  else 
    if (modulo==11)
      digi="0";
    else
      digi=modulo;
      if (digi==digitoverificador)
        valido=0;
  return(valido);
}

function trim(cadena)
{ cadenaE="";
  for (i=0;i<cadena.length;i++)
  {  letra=cadena.substring(i,i+1);
     if (letra!=' ') { cadenaE=cadenaE + letra; }
  } 
  return(cadenaE);
}