<!--
var params=new Array(16);
var alpha="ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789-ABCDEFGHI";

function check(form,subdir) 
{
  flag=0;
  h0=makehash(form.member.value,7);
  //
  for (j=0;j<mem.length;j++) {
    splt(mem[j],",");
    if (h0==params[0]) {
      flag=1; 
      break;
    };
  };
  //
  if (flag==0) { 
    alert("Acceso Denegado. Reíngrese por favor."); 
    form.member.value="";
    form.pass.value="";
    form.member.focus();
    return null; 
  };
  //
  h1=makehash(form.pass.value,3);
  h2=makehash(form.pass.value,10)+" ";
  //
  if (h1!=params[1]) { 
    alert("Acceso Denegado. Reíngrese por favor."); 
    form.member.value="";
    form.pass.value="" ; 
    form.member.focus();
    return null; 
  };
  //
  var page="";
  var hp=0;
  var exp = new Date(); // Fecha para hacer expirar el cookie.
  //
  for (var i=0;i<params[2].length;i++) {
    letter=params[2].substring(i,i+1)
    ul=letter.toUpperCase();
    a=alpha.indexOf(ul,0);
    if (a>=0) {
      a-=(h2.substring(hp,hp+1)*1);
      hp++;
      if (hp==h2.length-1) hp=0;
      if (a<0) a+=38;
      page+=alpha.substring(a,a+1);
    } else { page+=letter; };
  };
  //
  text="\n";
  c=0;
  splt(page,";");
  choice=params[0];
  //
  while (params[c]) { 
    a=params[c].indexOf("(",0);
    b=params[c].indexOf(")",a);
    text+=params[c].substring(a+1,b)+" | "; 
    c++; 
  };
  //
  if (c>1) {
    text=text.substr(0,text.length-3);
    pick=prompt("Páginas a las que tiene acceso (ingrese una): "+text.toUpperCase(),"");
    choice=null; 
    if (pick!=null) {
      for (i=0;i<c;i++) {
        if (params[i].indexOf("("+pick.toUpperCase()+")",0)>0) {
          choice=params[i].substring(0,params[i].indexOf("(",0));
          break;
        };
      };        
    } else { form.member.value="";
             form.pass.value="";
             form.member.focus();
             return false; };    
  };  
  // Si por algún motivo no se encontró la página del usuario.
  if (choice==null) {
    alert("No ingresó ninguna página válida. Intente otra vez.");
    form.pass.value="";
    form.member.focus();
    return false;
  } else { 
           // Setea el tiempo de expiración de la cookie a 5 minutos desde 
           // el ingreso. (medido en milisegundos)
           exp.setTime(exp.getTime() + (5 * 60 * 1000));
           setCookie("coin", 1 , exp , "/", null, false);
           //window.location.href=(choice.toLowerCase());
           //Esta dos lineas estan en reemplado de la de arriba para poder
           //utilizar el evento onSubmit del form de validacion de usuarios.
           if (subdir==null) {
             subdir="";  
           };
           form.action=(subdir+choice.toLowerCase());
           form.submit();
           return true;
         };
  //
  return false;
  //
};
// --------------------------
function makehash(pw,mult) 
{
  pass=pw.toUpperCase();
  hash=0;
  for (i=0;i<pass.length;i++) {
    letter=pass.substring(i,i+1);
    c=alpha.indexOf(letter,0)+1;
    hash=hash*mult+c;
  };
  return(hash);
};
// --------------------------
function splt(str,delim) 
{
  p=0; 
  i=0; 
  val=str+delim;
  while (val.indexOf(delim,p+1)>0) {
    a=val.indexOf(delim,p);
    params[i]=val.substring(a,p);
    p=a+1; 
    i++;
  };
  params[i]=null;
};
//-->