
	function verifEmail(mail) {

	  var ret = true;
	  var car = "";
	  var carAfter = "";
	  var carBefore = "";
	  var nbrcar = mail.length;
	  var nbrarobase = 0;
	  var nbrpoint = 0;
	  var goodcar = "@0123456789.-_abcdefghijklmnopqrstuvwxyz";

	  for(cnt=0;cnt<nbrcar;cnt++) {
		var car = mail.substr(cnt,1);
		if(goodcar.indexOf(car) >= 0) {
		  carAfter = "";
		  carBefore = "";

		  /* Début de l'analyse du @ */
		  //Si le caractère est @
		  if(car == "@") {

			//Si le @ n'est pas le premier
			if((cnt-1) >= 0) {

			  //Récupération du caractère placé avant le @
			  carBefore = mail.substr((cnt-1),1);
			}

			//Si le @ n'est pas le dernier
			if((cnt+1)<nbrcar) {

			  //Récupération du caractère placé après le @
			 carAfter = mail.substr((cnt+1),1);
			}

			//Si toutes les condition de @ sont respectées
			//conditions:
			//    - cnt>0                 : n'est pas placé en première position
			//    - nbrarobase==0   : est unique
			//    - cnt<(nbrcar-4)     : se trouve à une position max de 5 avant la fin
			//      (sachant que les domaines les plus petit sont : a.fr par ex.)
			//    - !(carBefore==".") : qu'il n'y est pas de . avant le @
			//    - !(carAfter==".")   : qu'il n'y est pas de . après le @
			//    - !(carBefore=="-") : qu'il n'y est pas de - avant le @
			//    - !(carAfter=="-")   : qu'il n'y est pas de - après le @
			//    - !(carBefore=="_") : qu'il n'y est pas de _ avant le @
			//    - !(carAfter=="_")   : qu'il n'y est pas de _ après le @
			if(cnt>0 && nbrarobase==0 && cnt<(nbrcar-4) && !(carBefore==".") && !(carAfter==".") && !(carBefore=="-") && !(carAfter=="-") && !(carBefore=="_") && !(carAfter=="_")) {

			  //On incrémente le @
			  nbrarobase++;
			} else {

			 //Affectation Faux à la var de retour
			 ret = false;
			 //On sort de la boucle 
			 break;
			}
		  }
		  /* Fin de l'analyse du @ */

		  /* Début de l'analyse du . */
		  //Si le caractère est .
		  if(car == ".") {

			//Si le . n'est pas le premier
			if((cnt-1) >= 0) {

			  //Récupération du caractère placé avant le .
			  carBefore = mail.substr((cnt-1),1);
			}

			//Si le . n'est pas le dernier
			if((cnt+1)<nbrcar) {

			  //Récupération du caractère placé après le .
			 carAfter = mail.substr((cnt+1),1);
			}

			//Si toutes les condition de @ sont respectées
			//conditions:
			//    - cnt>0                 : n'est pas placé en première position
			//    - cnt<(nbrcar-2)     : se trouve à une position max de 3 avant la fin
			//      (sachant que les domaines les plus petit sont : a.fr par ex.)
			//    - !(carBefore==".") : qu'il n'y est pas de . avant le .
			//    - !(carAfter==".")   : qu'il n'y est pas de . après le .
			if(cnt>0 && cnt<(nbrcar-2) && !(carBefore==".") && !(carAfter==".")) {

			  //On incrémente le .
			  nbrpoint++;
			} else {

			  //Affectation Faux à la var de retour 
			  ret = false;
			  //On sort de la boucle 
			  break;
			}
		  }
		  /* Fin de l'analyse du . */

		} else {

		  //Affectation Faux à la var de retour 
		  ret = false;
		  //On sort de la boucle 
		  break;
		}
		/*** Fin de l'analyse du caractère courant ***/
	  }
	  /*** Fin de boucle de l'analyse ***/

	  /*** Début de l'analyse du nombre de @ et de . ***/
	  //Si il n'y a aucun @ et aucun .
      //Si le 1er et le dernier caractère est .
      //Si le 1er et le dernier caractère est -
      //Si le 1er et le dernier caractère est _
	  if(nbrarobase == 0 || nbrpoint == 0 || mail.substr(0,1) == "." || mail.substr(0,1) == "-" || mail.substr(0,1) == "_" || mail.substr((nbrcar-1),1) == "." || mail.substr((nbrcar-1),1) == "-" || mail.substr((nbrcar-1),1) == "_") {

		//Affectation Faux à la var de retour 
		ret = false;
	  }
	  /*** Fin de l'analyse du nombre de . et de @ ***/

	  //Renvoi de la valeur de la var de retour
	  return ret;
	}
