Kontrola e-mailové adresy

Školení, která pořádám

Často po uživateli chceme, aby zadal svou e-mailovou adresu. Tuto adresu lze kontrolovat podle různých kritérií. Pro účely tohoto článku bude za e-mailovou adresu považován řetězec uživatel@doména, který obvykle chceme po uživateli zadat, a ne mnohem komplexnější řetězec, který lze zadat do hlaviček From, To a dalších.

Syntaktická kontrola

V první řadě tu máme syntaktickou kontrolu. Na webu najdete spoustu pokusů, jak tuto kontrolu provádět, já jsem se podílel např. na této, dodatečně jsem v ní ale stejně našel chybu. Proto uvádím řešení, o kterém si aktuálně myslím, že je správné:

<?php
/** Kontrola e-mailové adresy
* @param string e-mailová adresa
* @return bool syntaktická správnost adresy
* @copyright Jakub Vrána, https://php.vrana.cz/
*/
function check_email($email) {
    $atom = '[-a-z0-9!#$%&\'*+/=?^_`{|}~]'; // znaky tvořící uživatelské jméno
    $domain = '[a-z0-9]([-a-z0-9]{0,61}[a-z0-9])'; // jedna komponenta domény
    return eregi("^$atom+(\\.$atom+)*@($domain?\\.)+$domain\$", $email);
}
?>

Ověření, zda adresa přijímá zprávy

Dále je možné kontrolovat, zda uvedená doména přijímá e-maily, což zjistí třeba funkce checkdnsrr. Podle RFC 2821 sice doména může poštu přijímat i bez MX záznamu, ale nebývá to zvykem.

Dále je možné server oťukat a zjistit, zda e-mail přijme. To je asi nejdůkladnější automatické řešení (opraveno):

<?php
/** Odeslání příkazů SMTP serveru
* @param resource otevřený socket k SMTP serveru
* @param array příkazy k odeslání
* @return bool false v případě, že některý příkaz nevrátí 250
*/
function smtp_commands($fp, $commands) {
    foreach ($commands as $command) {
        fwrite($fp, "$command\r\n");
        $s = fgets($fp);
        if (substr($s, 0, 3) != '250') {
            return false;
        }
        while ($s[3] == '-') {
            $s = fgets($fp);
        }
    }
    return true;
}

/** Ověření funkčnosti e-mailu
* @param string adresa příjemce
* @param string adresa odesílatele
* @return bool na adresu lze doručit zpráva, null pokud nejde ověřit
* @copyright Jakub Vrána, https://php.vrana.cz/
*/
function try_email($email, $from) {
    if (!function_exists('getmxrr')) {
        return null;
    }
    $domain = preg_replace('~.*@~', '', $email);
    getmxrr($domain, $mxs);
    if (!in_array($domain, $mxs)) {
        $mxs[] = $domain;
    }
    $commands = array(
        "HELO " . preg_replace('~.*@~', '', $from),
        "MAIL FROM: <$from>",
        "RCPT TO: <$email>",
    );
    $return = null;
    foreach ($mxs as $mx) {
        $fp = @fsockopen($mx, 25);
        if ($fp) {
            $s = fgets($fp);
            while ($s[3] == '-') {
                $s = fgets($fp);
            }
            if (substr($s, 0, 3) == '220') {
                $return = smtp_commands($fp, $commands);
            }
            fwrite($fp, "QUIT\r\n");
            fgets($fp);
            fclose($fp);
            if (isset($return)) {
                return $return;
            }
        }
    }
    return false;
}
?>

Toto řešení ale pochopitelně nebude fungovat u serverů aplikujících greylisting.

Ověření, zda má uživatel adresu pod kontrolou

Pokud zároveň chceme ověřit, že má uživatel adresu pod kontrolou, musíme mu poslat zprávu:

<?php
/** Vygenerování náhodného řetězce
* @param int délka vráceného řetězce
* @param int použité znaky: <=10 číslice, <=36 +malá písmena, <=62 +velká písmena
* @return string náhodný řetězec
* @copyright Jakub Vrána, https://php.vrana.cz/
*/
function rand_chars($count = 8, $chars = 36) {
    $return = "";
    for ($i=0; $i < $count; $i++) {
        $rand = rand(0, $chars - 1);
        $return .= chr($rand + ($rand < 10 ? ord('0') : ($rand < 36 ? ord('a') - 10 : ord('A') - 36)));
    }
    return $return;
}

$rand_chars = rand_chars();
if (mysql_query("INSERT INTO emaily (email, rand_chars) VALUES ('" . mysql_real_escape_string($_POST["email"]) . "', '" . md5($rand_chars) . "')")) {
    $zprava = "Pokud máte zájem o služby serveru $_SERVER[SERVER_NAME], tak prosím navštivte tento odkaz:
http://$_SERVER[SERVER_NAME]/email_overit.php?id=" . mysql_insert_id() . "&rand_chars=$rand_chars
Pokud o služby serveru zájem nemáte, tak tuto zprávu prosím ignorujte.";
    $hlavicky = "MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit";
    mail($_POST["email"], "Overeni adresy", $zprava, $hlavicky);
}

// email_overit.php:
mysql_query("UPDATE emaily SET overeno = 1 WHERE id = " . intval($_GET["id"]) . " AND rand_chars = '" . md5($_GET["rand_chars"]) . "'");
?>

Závěr

Záleží jen na vás, jak moc důkladně chcete kontrolu e-mailové adresy provádět. Nejčastěji se používají krajní varianty – buď pouhá syntaktická kontrola, nebo ověření, zda má uživatel adresu pod kontrolou.

Jakub Vrána, Řešení problému, 5.5.2006, diskuse: 84 (nové: 0)

Diskuse

Rick:

To vsechno je kontrola jedne adresy? Wow, jak vam mohli dat ridicak...

19.5.2006 03:35:22

zjoova:

A jak vypada vase kratsi a elegantnejsi reseni?
Priznavam ze jsem zatim vsude videl jen podobne obludy.

29.5.2006 18:49:14

Jakub:

Dělám PHP docela dlouho a jako špatné řešení se mi to nezdá. Jestli jsou tady takoví chytráci (takové mám nejraději) tak nám prosím předvěďte lepší kód. Rád se na něj podívám. TOhle přesně znám. Velká huba, žádné činy...

10.6.2006 18:52:13

Joshua :

14.12.2010 12:33:52

Zdendys:

Programuji PHP taky již nějaký rok a bohužel se při dokonalé kontrole nevyhnete ledajakým zákoutím a proto se script neůměrně zvětšuje.

Nepruďte a navrhněte kratši dokonalé řešení a budeme vá vzívat do programátorského nebe :-)

14.6.2006 01:40:23

j.hlava:

Vzývat zásadně s y.

3.12.2008 12:55:57

Jirka K.:

a neúměrně s "ú" :-)

(reakce na) 9.8.2012 11:38:50

Fanda:

Naopak, oceňuji energii vloženou do tohoto skriptu a hlavně vůli podělit se. Díky moc za skript (proti kódu nemám námitek i když nepoužívám tak důkladnou kontrolu). Ještě jednou díky. A chytráci, až dozrají do téhle úrovně programování, potom pochopí...

15.6.2006 00:16:10

dustcart:

Me se to naopak velmi libi. Nahodou na slozitost problemu je to velmi kratke a elegantni reseni, takze to vetsinou kritizuji jen blbecci, kteri tomu nerozumi.

2.11.2006 11:10:41

Martin:

V druhej verzii mi try_email($email, $from) vracia 1 aj pri nezmyselnej adrese. Moze to byt nastavenim serveru alebo ...?

3.11.2006 13:26:46

Dave:

v overeni mailu je potreba jeste dodat kontrolu pripony. pokud by tam nekdo napsal adresat@domena.xxxxxxxxxx, tak to projde. dal bych tam overeni tak na max 4-5 mist. to by mohlo stacit.

18.11.2006 12:57:51

Shuster:

<?php
if (!eregi('^[a-z0-9_]{1}[a-z0-9\-_]*(\.[a-z0-9\-_]+)*@[a-z0-9]{1}[a-z0-9\-_]*(\.[a-z0-9\-_]+)*\.[a-z]{2,4}$', $email))
{
echo "nespravny format adresy";
}

?>

Kontrola e-mailové adresy

Školení, která pořádám

Syntaktická kontrola

Ověření, zda adresa přijímá zprávy

Ověření, zda má uživatel adresu pod kontrolou

Závěr

Diskuse

Rick:

zjoova:

Jakub:

Joshua :

Zdendys:

j.hlava:

Jirka K.:

Fanda:

dustcart:

Martin:

Dave:

Shuster:

Jakub Vrána :

Kepi:

wutter:

Jakub Vrána :

wutter:

Karel:

Michal:

princezna Masturbína:

Jakub Hejda:

francesco3:

Jakub Vrána :

wutter:

Jakub Vrána :

Web Designer:

Jakub Vrána :

Jakub Vrána :

Web Designer:

Jakub Vrána :

Vojtech R:

gogulux:

b022d:

Jan Suchánek:

Ofi:

Jakub Vrána :

Ofi:

Jakub Vrána :

Prdlořeznictví Krkovička, n. p.:

Prdlořeznictví Krkovička, n. p.:

Jakub Vrána :

Jakub Vrána :

Michal:

Jakub Vrána :

Miloš Němec:

Wlezley:

majo:

Viktor:

Jakub Vrána :

Jakub Laušman:

Petr Konůpek:

IvoSn:

Jaroslav Kavan:

Honza:

Michal Bláha:

jirka:

Karel:

Martin:

Harold:

Neviem:

Jakub Vrána :

Mirek:

Michal Špaček:

Jan Tojnar:

Martin Lonský:

Jakub Vrána :

Martin Lonský:

František Musil:

Tomáš Benda:

Jakub Vrána :

Martin Lonský:

Milsa (msx):

Michal Jirát: