<!--

var table=new Array();

//---------------------------------------------------

table[0]="unboq  kxetxys  kjml  xrzt  kdmf  mwmfxr  xddp  xddlua";
table[1]="ajvzb  ajvzbcs  ajvzbcsgyv  xndlefs  kxx  kxxyq  kxxymer";
table[2]="kxxymfgt  anh  acbtzt  xm";

//---------------------------------------------------

var ligne=new Array(16);

ligne[00]="****************";
ligne[01]="****************";
ligne[02]="****************";
ligne[03]="****************";
ligne[04]="*abcdefghijklmno";
ligne[05]="pqrstuvwxyz*****";
ligne[06]="*abcdefghijklmno";
ligne[07]="pqrstuvwxyz*****";
ligne[08]="****************";
ligne[09]="****************";
ligne[10]="*****y**********";
ligne[11]="******q*********";
ligne[12]="aaaaaa*ceeeeiiii";
ligne[13]="*nooooo*ouuuuy**";
ligne[14]="aaaaaa*ceeeeiiii";
ligne[15]="*nooooo*ouuuuy*y";

function isminus(c)
 { if ('a'<=c && c<='z') return true;
   return false;
   }

function ismajus(c)
 { if ('A'<=c && c<='Z') return true;
   return false;
   }

function islettre(c)
 { if (isminus(c)) return true;
   if (ismajus(c)) return true;
   return false;
   }

function iscarval(c)
 { if (islettre(c)) return true;
   if (c=='.') return true;
   if (c=='-') return true;
   return false;
   }

function quelettre(h)
 { var n;
   n=h.length;
   while (n--!=0)
    if (!islettre(h.charAt(n))) return false;
   return true;
   }

function quecarval(h)
 { var n;
   n=h.length;
   while (n--!=0)
    if (!iscarval(h.charAt(n))) return false;
   return true;
   }

function isadresse(h)
 { var p,q,r
   r=h.length;
   p=h.indexOf('@');
   if (p==-1) return false;
   if (p+1==r) return false;
   q=h.indexOf('.',p+1);
   if (q==-1) return false;

   if (p<3) return false;
   if (q-(p+1)<3) return false;
   if (r-(q+1)<2) return false;

   if (!quecarval(h.substring(0,p))) return false;
   if (!quelettre(h.substring(p+1,q))) return false;
   if (!quelettre(h.substring(q+1,r))) return false;

   // if (h.charAt(0)=='-') return false;

   return true;
   }

function numcar(x)
 { var r,c;
   if (x<0 || x>=256) x=0;
   r=x%16;
   x=(x-r)/16;
   c=ligne[x].charAt(r);
   if (c!='*') return c;
   return (String.fromCharCode(16*x+r)).charAt(0);
   }

function carnum(c)
 { x=(""+c).charCodeAt(0);
   if (x<0 || x>=256) return 0;
   return x;
   }

function lettrenum(c)
 { var x;
   x=ligne[4].indexOf(c);
   if (x!=-1) return x-1;
   x=ligne[5].indexOf(c);
   return x+15;
   }

function numlettre(x)
 { return numcar(x+65);
   }

function dmot(x,h)
 { var c;
   while (true)
    { if (x==h.length) break;
      c=h.charAt(x);
      c=numcar(carnum(c));
      if ('a'<=c && c<='z') break;
      x++;
      }
   return x;
   }

function fmot(x,h)
 { var c;
   while (true)
    { if (x==h.length) break;
      c=h.charAt(x);
      c=numcar(carnum(c));
      if (c<'a' || c>'z') break;
      x++;
      }
   return x;
   }

function simplif(h)
 { var r,n;
   r="";
   n=h.length;
   while (n--!=0)
    r=numcar(carnum(h.charAt(n)))+r;
   return r;
   }

function complic(m)
 { var n,r,c,x,s;
   r="";
   n=m.length;
   s=0;
   while (true)
    { if (n==0) break;
      n--;
      c=m.charAt(n);
      x=lettrenum(c);
      x=(x+8+n)%26;
      c=numlettre(x);
      r=c+r;
      }
   return r;
   }

function iseq(a,b)
 { var n;
   n=a.length;
   if (b.length!=n) return false;
   while (n--!=0)
    if (a.charAt(n)!=b.charAt(n)) return false;
   return true;
   }

function isinch(m,h)
 { var d,f,n;
   f=0;
   while (true)
    { d=dmot(f,h);
      f=fmot(d,h);
      if (d==f) break;
      n=h.substring(d,f);
      if (iseq(n,m)) return true;
      }
   return false;
   }

function isintable(m)
 { var n;
   n=table.length;
   while (n--!=0)
    if (isinch(m,table[n])) return true;
   return false;
   }

function isnalt(h)
 { var d,f,m;
   f=0;
   while (true)
    { d=dmot(f,h);
      f=fmot(d,h);
      if (d==f) break;
      m=h.substring(d,f);
      m=simplif(m);
      m=complic(m);
      if (isintable(m)) return false;
      }
   return true;
   }

function confad(a)
 { return window.confirm("l'adresse "+a+" est elle correcte?");
   }

function doubleverf(a,t)
 { if (!isnalt(t))
    { window.alert("ce message n'est pas parti");
      return false;
      }
   if (!isadresse(a))
    { window.alert("l'adresse saisie ne semble pas valide");
      return false;
      }
   if (!confad(a)) return false;
   return true;
   }

function verifier()
 { var a,t;
   a=document.filtrage.courriel.value;
   t=document.filtrage.textacc.value;
   if (doubleverf(a,t))
    document.filtrage.submit();
   }

//function verifier()
//  { var a,t;
//    a=document.filtrage.courriel.value;
//    t=document.filtrage.textacc.value;
//    if (!doubleverf(a,t)) return;
//    document.filtrage.action="form3mail.php3";
//    document.filtrage.submit();
//    }

function evalform()
 { var a,t;
   a=document.mgrs.email.value;
   t=document.mgrs.textel.value;
   if (doubleverf(a,t))
    document.mgrs.submit();
   }

// -->