Y para aquellos que les alla gustado y lo quisieran utilizar, les pido el favor que me avisen por mail, es solo para saber a quien le fue util
.Código HTML:
<html> <head> <title>Comprobar Ecorreo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <form action="comprobarmail.php" method="post"> <input name="correo" type="text"> <br> <input name="vista" type="submit" value="Comprobar"> </form>
Código PHP:
<?
if (($_POST['vista']=='Comprobar')):
$texto=$_POST['correo'];
//Compruebo que halla una @
if ((substr_count($texto,"@") == 1)){
//extraigo el nombre del mail
$elnombre=strtok($texto,'@');
//extraigo de posterior a @, y doy vuelta esa cadena
$postarroba = strrev(substr (strrchr ($texto, "@"), 1));
//extraigo lo que se halla despues del punto
$pos = substr (strrchr ($postarroba, "."), 1);
//para sacar el tipo de dominio
$dominio=(strrchr($_POST['correo'],"@"));
$postarrobaa = substr (strrchr ($dominio, "@"), 1);
$com = substr (stristr ($postarrobaa, "."), 1);
//se da vuelta la cadena y me da lo que se halla entre la @ y el primer punto.
$desparroba=strrev($pos);
$validar="$elnombre"."@"."$desparroba"."."."$com";
//hice una lista de caracteres no validos.
$nov="<".">"."["."]"."'\'"."\""."*"."$"." "."!"."?"."&"."#"."="."´"."+"."(".")"."'/'";
$novalidos=(similar_text($nov,$texto));
// le coloque '"' para que me validara los mail con nombre numericos.
if (('"'.$validar.'"'=='"'.$texto.'"') && (rtrim($com)) && ('"'.$texto.'"'==$novalidos)&&(rtrim($desparroba))){
echo "<strong>SU MAIL ES CORRECTO</strong><br>";
echo "<strong>Nombre del dominio: <em>".strrev($pos)."</em></strong><br/>";
echo "<strong>Tipo de dominio: <em>$com</em></strong><br/>";
echo "<strong>Nombre del Usuario del Email: <em>$elnombre</em></strong><br>";
echo "<strong>Direccion de Email: <em>$validar</em></strong><br/>";
}else{
echo "<strong>SU MAIL ES INCORRECTO</strong>";
}
}else{
echo "<strong>DEBE CONTENER UNA SOLA @</strong>";
}
endif;
?> Código HTML:
</body> </html>
