var debug = 0;

function isEmail(mail)
{
valido = 1;
mail.toLowerCase();

////// tamanho min e max ///////
p_len = mail.length;
if((p_len<7)||(p_len>80)){valido = 0;}
////// tamanho min e max ///////

////// testa caracteres ////////
if(valido)
{
 n_mail = "";
 modif = 0;
 tolerancia = 0;
 for(j=0;j<p_len;j++)
 {
  c = mail.substr(j,1);
  if( (c=='a')||(c=='b')||(c=='c')||(c=='d')||(c=='e')||(c=='f')||(c=='g')||(c=='h')||(c=='i')||(c=='j')||
  (c=='k')||(c=='l')||(c=='m')||(c=='n')||(c=='o')||(c=='p')||(c=='q')||(c=='r')||(c=='s')||(c=='t')||(c=='u')||
  (c=='v')||(c=='w')||(c=='x')||(c=='y')||(c=='z')||(c=='.')||(c=='-')||(c=='_')||(c=='@')||(c=='0')||(c=='1')||
  (c=='2')||(c=='3')||(c=='4')||(c=='5')||(c=='6')||(c=='7')||(c=='8')||(c=='9') ){n_mail += c;}
  else{modif++;}
 }
 if(modif > tolerancia){valido=0;}
 mail = n_mail;
 if(debug) window.alert("n_mail:"+n_mail+"\nmodif"+modif+"\nvalido:"+valido);
}
////// testa caracteres ////////

////// um @ na pos valida ////// minimo:aaa@ab.de
if(valido)
{
 s_ch='@';
 pos = mail.indexOf(s_ch,0);
 f_ch = mail.substr(pos,1);
 pos2 = mail.lastIndexOf(s_ch,p_len);
 if((pos<3)||(pos!=pos2)||(pos2>p_len-6)){valido=0;}
 if(debug) {window.alert("mail:"+mail+"\nprocurei:"+s_ch+"\nachei:"+f_ch+"\npos:"+pos+"\npos2:"+pos2+"\nvalido:"+valido);}
}
////// um @ na pos valida ////// minimo:aaa@ab.de

////// no minimo 1 e maximo 4 .s //
if(valido)
{
 s_ch='.';
 pos1 = mail.indexOf(s_ch,0);
 pos = pos1;
 k=0;
 while((pos1>0)&&(pos>0)&&(k<100)){
 pos = mail.indexOf(s_ch,pos+1);
 k++;
 }
 len = mail.length - 3;
 pos2 = mail.lastIndexOf(s_ch,len);
 if((pos1<1)||(pos2<0)||(pos2>len)||(k<=0)||(k>5)){valido = 0;}
 if(debug) window.alert("mail:"+mail+"\npos1:"+pos1+" pos2:"+pos2+" k:"+k+"\nvalido:"+valido);
}
////// no minimo 1 e maximo 5 .s //

return valido;
}