Discussion :

[lemirandais]

Bonjour

Je viens de retrouver un code sur un de mes vieux projets et je suis en train de reprendre un code qui me semble intéressante. Ce dernier permet de vérifier si l'adresse mail est une vrai ou une fausse, c'est à dire, dans un premier temps vérifier la existence du nom de domaine et ensuite de verifier si la partie avant l'@ existe. Voici la fonction complète:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
 
<?php 
// On déclare d'abord les fonctions:
 
// Si la fonction getmxrr n'existe pas (serveur windows),
// On la créé à l'aide de la commande DOS <nslookup>
if(!function_exists('getmxrr'))
{
	echo "inexistant";
	function getmxrr($hostname,&$mxhosts)
	{
		if(!is_array($mxhosts))
			$mxhosts = array();
		if( !empty( $hostname ) )
		{
			@exec( "nslookup -type=MX $hostname", $output, $ret );
			while( list( $k, $line ) = each( $output ) )
			{
				// On recherche la présence de d'entrées MX:
				if( ereg( "^{$hostname}\tMX preference = ([0-9]+), mail exchanger = (.*)$", $line, $parts ) )
				{
					$mxhosts[ $parts[1] ] = $parts[2];
				}
			}
			if( count( $mxhosts ) )
			{
				// S'il y a plusieurs enregistrements MX, on les classe par ordre de priorité
				reset( $mxhosts );
				ksort( $mxhosts );
				$i = 0;
				while( list( $pref, $host ) = each( $mxhosts ) )
				{	
					$mxhosts2[$i] = $host;
					$i++;
				}
				$mxhosts = $mxhosts2;
				return true;
			}else{
			 	return false;
			}
		}
	}
}
 
function mailCheck($Email)
{
	// L'adresse email doit être correctement formattée
	if(!eregi("^[[:alpha:]]{1}[[:alnum:]]*((\.|_|-)[[:alnum:]]+)*@[[:alpha:]]{1}[[:alnum:]]*((\.|-)[[:alnum:]]+)*(\.[[:alpha:]]{2,})$", $Email))
	{
		exit('L\'adresse '.$Email.' est mal formatée');
	}
	// On récupère le domaine
	list($popo,$domain ) = split('@',$Email); 
	// On cherche des enregistrements MX dans les DNS
	if (getmxrr($domain, $MXHost))
	{
		$ConnectAddress = $MXHost[0];
		//$ConnectAddress = $domain;
	}
	else
	{
		$ConnectAddress = $domain;
	}
	// On créé la connexion sur le port smtp (25)
	$Connect = fsockopen($ConnectAddress,25,&$errno,&$errstr);
	if($Connect)
	{
		if(ereg("^220", $Out = fgets($Connect, 1024)))
		{
			fputs ($Connect, "HELO {$_SERVER['HTTP_HOST']}\r\n");
			$Out = fgets ( $Connect, 1024 );
			fputs ($Connect, "MAIL FROM: <{$Email}>\r\n");
			$From = fgets ( $Connect, 1024 );
			fputs ($Connect, "RCPT TO: <{$Email}>\r\n");
			$To = fgets ($Connect, 1024);
			fputs ($Connect, "QUIT\r\n");
			fclose($Connect);
			// Si le code renvoyé par la commande RCPT TO est 250 ou 251 (cf: RFC)
			// Alors l'adresse existe
			if (!ereg ("^250", $To) && !ereg ( "^251", $To ))
			{
				echo "Adresse rejetée par le serveur";
			}
			else
			{
				echo "Adresse acceptée par le serveur";
			}
		}else{
			echo "Le serveur n'a pas répondu";
		}
	}else{
		// Connexion au serveur de messagerie impossible
		// vous pouvez afficher le message d'erreur en décommentant la ligne suivante:
		echo $errno."-".$errstr;
		//return false;
 
	}
}
 
// Définissez ici l'adresse à vérifier
$mail = 'test@leknoppix.fr';
 
 
mailCheck($mail);
?>

En essayant de trouver le problème de cette fonction, en faisant un debug ligne par ligne, j'ai trouvé la zone de la fonction provoquant le problème:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
<?php
if(ereg("^220", $Out = fgets($Connect, 1024)))
		{
			fputs ($Connect, "HELO {$_SERVER['HTTP_HOST']}\r\n");
			$Out = fgets ( $Connect, 1024 );
			fputs ($Connect, "MAIL FROM: <{$Email}>\r\n");
			$From = fgets ( $Connect, 1024 );
			fputs ($Connect, "RCPT TO: <{$Email}>\r\n");
			$To = fgets ($Connect, 1024);
			fputs ($Connect, "QUIT\r\n");
			fclose($Connect);
			// Si le code renvoyé par la commande RCPT TO est 250 ou 251 (cf: RFC)
			// Alors l'adresse existe
			if (!ereg ("^250", $To) && !ereg ( "^251", $To ))
			{
				echo "Adresse rejetée par le serveur";
			}
			else
			{
				echo "Adresse acceptée par le serveur";
			}
		}else{
			echo "Le serveur n'a pas répondu";
		}
?>

Si quelqu'un peut trouver et m'indiquer l'emplacement de mon erreur, je le remercierai énormément.

[Doksuri]

quel est ton erreur ? il ne se passe rien ? tu as un message d'erreur ?
ca aidera de savoir ce qu'il t'arrive =)

[lemirandais]

En fait, lorsque je teste une adresse, meme si elle n'existe pas, il me marque qu'elle existe. Par exemple, l'adresse test(at)developpez.net n'existe pas mais quand je teste mon code, il me dit qu'elle existe.

[Invité]

Bonjour, tu peux aussi lire cette discussion :
http://www.developpez.net/forums/d71...dresse-e-mail/

mais je ne vois pas très bien comment on peut "tester" si une adresse mail "existe", sauf en envoyant un mail à l'intéressé, avec un lien "retour" pour "confirmation".

J'ai moi-même plusieurs anciennes adresses mail encore "valides", mais que je ne consulte plus ...

[lemirandais]

Merci pour cette réponse, je vais lire le lien.

En gros mon idée en d'envoyer un message au serveur et lui demander si l'adresse mail existe ou pas.
En faisant des recherches sur internet, j'ai trouvé ceci http://x1fr.free.fr/dotclear/2004/12...e-adresse-mail .

Théoriquement, je pense que c'est faisable. NON?

[Invité]

Théoriquement, peut-etre.
Mais en pratique : cf mon message précédent.