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";
table[3]="mbcluqsbek";

//---------------------------------------------------

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 (c<'a') return false;
   if (c>'z') return false;
   return true;
   }

function ismajus(c)
 { if (c<'A') return false;
   if (c>'Z') return false;
   return true;
   }

function isdeci(c)
 { if (c<'0') return false;
   if (c>'9') return false;
   return true;
   }

function islettre(c)
 { if (isminus(c)) return true;
   if (ismajus(c)) return true;
   return false;
   }

function isalphanu(c)
 { if (islettre(c)) return true;
   if (isdeci(c)) return true;
   return false;
   }

function iscarval(c)
 { if (isalphanu(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 extractadr(x,h)
 { var p,d,f;
   p=h.indexOf('@',x);
   if (p==-1) return "";
   d=p;
   while (true)
    { if (d==0) break;
      if (!iscarval(h.charAt(d-1))) break;
      d--;
      }
   f=p+1;
   while (true)
    { if (f>=h.length) break;
      if (!iscarval(h.charAt(f))) break;
      f++;
      }
   h=h.substring(d,f);
   return h;
   }

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;
   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 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 (m==n) 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;
      }
   a=extractadr(0,a);
   if (!isadresse(a))
    { window.alert("l'adresse saisie ne semble pas valide");
      return false;
      }
   if (!confad(a)) return false;
   return true;
   }



// ---------- ---------- ---------- ---------- ----------

function relativedate(seconde)
 { var date;
   date=new Date();
   date.setTime(date.getTime()+1000*seconde);
   return date;
   }

function passblanc(i,h)
 { while (true)
    { if (i>=h.length) break;
      if (h.charAt(i)!=' ') break;
      i++;
      }
   return i;
   }

function writecookie(nom,val)
 { var h;
   var ex;
   var pth;
   var delai;
   delai=86400; // en secondes
   if (val.length==0) delai=-1;
   ex=relativedate(delai).toGMTString();
   pth="path=/";
   h=nom+"="+val+"; ";
   h+="expires="+ex+"; ";
   h+=pth;
   document.cookie=h;
   }

function readcookie(nom)
 { var h;
   var i,j;
   h=document.cookie;
   i=0;
   while (true)
    { i=passblanc(i,h);
      if (i>=h.length) return "";
      j=h.indexOf("=",i);
      if (j==-1) return "";
      if (i==j) return "";
      if (h.substring(i,j)==nom) break;
      i=h.indexOf(";",j);
      if (i==-1) return "";
      i++;
      }
   i=j+1;
   j=h.indexOf(";",i);
   if (j==-1) j=h.length;
   return h.substring(i,j);
   }

function datemessage()
 { var h;
   h=new Date();
   h=h.getTime();
   h/=60000;
   h=Math.floor(h);
   h=""+h;
   writecookie("datemessage",h);
   }

function lienpdf()
 { var x;
   x=readcookie("datemessage");
   if (x=="") window.location="formtelech.html";
   else window.location="telech.html";
   }

// ---------- ---------- ---------- ---------- ----------

// verification de index ( out )
function verifier()
 { var a,t;
   a=document.filtrage.courriel.value;
   t=document.filtrage.textacc.value;
   if (!doubleverf(a,t)) return;
   datemessage();
   document.filtrage.action="net/form2mail.php3";
   document.filtrage.submit();
   }

// verification de index ( in )
function verifier1()
 { var a,t;
   a=document.filtrage.courriel.value;
   t=document.filtrage.textacc.value;
   if (!doubleverf(a,t)) return;
   datemessage();
   document.filtrage.action="form2mail.php3";
   document.filtrage.submit();
   }

// verification de formtelech ( dans net )
function verifier2()
 { var a,t;
   a=document.mgrs.email.value;
   t=document.mgrs.textel.value;
   if (!doubleverf(a,t)) return;
   datemessage();
   document.mgrs.action="form3mail.php3";
   document.mgrs.submit();
   }

function evalform()
 { var a,t;
   a=document.mgrs.email.value;
   t=document.mgrs.textel.value;
   if (!doubleverf(a,t)) return;
   datemessage();
   document.mgrs.submit();
   }