[PHP] מדריך לאימות דואר אלקטרוני (יותר מביטוי רגולרי פשוט)

[Daniel]

פונקצייה שגם באמת בודקת יותר דברים, מצאתי ברשת,

PHP קוד:

    function checkEmail($email, $chFail = false)
    {
        $msgs = Array();
        $msgs[] = 'Received email address: ' . $email;
        // check for email pattern (adapted and improved from http://karmak.org/archive/2003/02/validemail.html)
        // incorrectly allows IP addresses with block numbers > 256, but those will fail to create sockets anyway
        // unicode norwegian chars cannot be used: C caron, D stroke, ENG, N acute, S caron, T stroke, Z caron (PHP unicode limitation)
        if (!preg_match("/^(([^<>()[\]\\\\.,;:\s@\"]+(\.[^<>()[\]\\\\.,;:\s@\"]+)*)|(\"([^\"\\\\\r]|(\\\\[\w\W]))*\"))@((\[([0-9]{1,3}\.){3}[0-9]{1,3}\])|(([a-z\-0-9????????????????]+\.)+[a-z]{2,}))$/i", $email)) {
            $msgs[] = 'Email address was not recognised as a valid email pattern';
            return $chFail ? Array(false, $msgs) : false;
        }
        $msgs[] = 'Email address was recognised as a valid email pattern';
        // get the mx host name
        if (preg_match("/@\[[\d.]*\]$/", $email)) {
            $mxHost[0] = preg_replace("/[\w\W]*@\[([\d.]+)\]$/", "$1", $email);
            $msgs[] = 'Email address contained IP address ' . $mxHost[0] . ' - no need for MX lookup';
        } else {
            // get all mx servers - if no MX records, assume domain is MX (SMTP RFC)
            $domain = preg_replace("/^[\w\W]*@([^@]*)$/i", "$1", $email);
            if (!getmxrr($domain, $mxHost, $weightings)) {
                $mxHost[0] = $domain;
                $msgs[] = 'Failed to obtain MX records, defaulting to ' . $domain . ' as specified by SMTP protocol';
            } else {
                array_multisort($weightings, $mxHost);
                $cnt = '';
                $co = 0;
                foreach($mxHost as $ch) {
                    $cnt .= ($cnt ? ', ' : '') . $ch . ' (' . $weightings[$co] . ')';
                    $co++;
                }
                $msgs[] = 'Obtained the following MX records for ' . $domain . ': ' . $cnt;
            }
        }
        // check each server until you are given permission to connect, then check only that one server
        foreach($mxHost as $currentHost) {
            $msgs[] = 'Checking MX server: ' . $currentHost;
            if ($connection = fsockopen($currentHost, 25)) {
                $msgs[] = 'Created socket (' . $connection . ') to ' . $currentHost;
                if (preg_match("/^2\d\d/", $cn = fgets($connection, 1024))) {
                    $msgs[] = $currentHost . ' sent SMTP connection header - no futher MX servers will be checked: ' . $cn;
                    while (preg_match("/^2\d\d-/", $cn)) {
                        $cn = fgets($connection, 1024);
                        $msgs[] = $currentHost . ' sent extra connection header: ' . $cn;
                    } //throw away any extra rubbish
                    if (!$_SERVER) {
                        global $HTTP_SERVER_VARS;
                        $_SERVER = $HTTP_SERVER_VARS;
                    }
                    // attempt to send an email from the user to themselves (not <> as some misconfigured servers reject it)
                    $localHostIP = gethostbyname(preg_replace("/^.*@|:.*$/", '', $_SERVER['HTTP_HOST']));
                    $localHostName = gethostbyaddr($localHostIP);
                    fputs($connection, 'HELO ' . ($localHostName?$localHostName:('[' . $localHostIP . ']')) . "\r\n");
                    if ($success = preg_match("/^2\d\d/", $hl = fgets($connection, 1024))) {
                        $msgs[] = $currentHost . ' sent HELO response: ' . $hl;
                        fputs($connection, "MAIL FROM: <$email>\r\n");
                        if ($success = preg_match("/^2\d\d/", $from = fgets($connection, 1024))) {
                            $msgs[] = $currentHost . ' sent MAIL FROM response: ' . $from;
                            fputs($connection, "RCPT TO: <$email>\r\n");
                            if ($success = preg_match("/^2\d\d/", $to = fgets($connection, 1024))) {
                                $msgs[] = $currentHost . ' sent RCPT TO response: ' . $to;
                            } else {
                                $msgs[] = $currentHost . ' rejected recipient: ' . $to;
                            }
                        } else {
                            $msgs[] = $currentHost . ' rejected MAIL FROM: ' . $from;
                        }
                    } else {
                        $msgs[] = $currentHost . ' rejected HELO: ' . $hl;
                    }
                    fputs($connection, "QUIT\r\n");
                    fgets($connection, 1024);
                    fclose($connection);
                    // see if the transaction was permitted (i.e. does that email address exist)
                    $msgs[] = $success ? ('Email address was accepted by ' . $currentHost) : ('Email address was rejected by ' . $currentHost);
                    return $chFail ? Array($success, $msgs) : $success;
                } elseif (preg_match("/^550/", $cn)) {
                    $msgs[] = 'Mail domain denies connections from this host - no futher MX servers will be checked: ' . $cn;
                    return $chFail ? Array(false, $msgs) : false;
                } else {
                    $msgs[] = $currentHost . ' did not send SMTP connection header: ' . $cn;
                }
            } else {
                $msgs[] = 'Failed to create socket to ' . $currentHost;
            }
        }
        $msgs[] = 'Could not establish SMTP session with any MX servers';
        return $chFail ? Array(false, $msgs) : false;
    }