Página 1 de 1
Validar dirección de e-mail
Publicado: 17 Feb 2009, 20:00
por Jonny
Hola
Recientemente, me he visto en la necesidad de validar una dirección de e-mail con autoit.
He buscado en el foro inglés pero no he encontrado nada...
Así, que pensando que sería algo más simple de lo que al parecer es, me puse a investigar en Google la forma de validar una dirección de e-mail, para plasmarlo luego en Autoit.
Sin mucho trabajo encontré esta página que me pareció el mejor ejemplo a seguir, puesto que habla de las reglas del RFC 2822 para las direcciones de correo electrónico:
http://www.linuxtotal.com.mx/index.php? ... _otros_002
La verdad, es que aunque según las explicaciones de esta página parece algo complejo, utilizando las expresiones regulares tal y como lo hacen en la página son 4 líneas. La cosa está en que yo nunca me entendí muy bien con las expresiones regulares en php (y menos en autoit), sinó que me limitaba a copiar y pegar en casos como este, cosa que no he podido hacer en este caso. Así pues, me he puesto manos a la obra y aunque con un código mucho más largo y seguramente más difícil de entender precisamente por lo largo que es, he conseguido (creo) el mismo resultado que la función que propone la página anterior.
En principio, la función que he escrito valida la dirección de e-mail que se le pasa tal y como indica que debe hacerse en la página que puse más arriba.
Yo he probado un poco su funcionamiento y parece ser correcto, pero quisiera que si alguien puede testearla un poco más a fondo y encuenra errores, se le ocurre como mejorar el código (lo suyo sería portar el de la función expuesta en la página anterior a autoit) etc, lo comentara, ya que me parece que esta función puede ser útil para muchas aplicaciones...
-Si la dirección de e-mail pasada a la función es válida esta devuelve 1, en caso contrario devuelve 0.
Ahí va el código:
Código: Seleccionar todo
Func MailValidation($XMail)
Local $Local_LegalCharacters="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!#$%&'*+-/=?^_`{|}~."
Local $Domain_LegalCharacters="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-"
Local $DomainType=0
$EmailCharacter=StringSplit($XMail, Chr(64))
If $EmailCharacter[0]<>2 Then
Return 0
EndIf
If (StringLen($EmailCharacter[1])<1 Or StringLen($EmailCharacter[1])>64) Then
Return 0
EndIf
$_EmailCharacter=StringSplit($EmailCharacter[1], "")
If $_EmailCharacter[1]==Chr(46) Then
Return 0
EndIf
If StringInStr($EmailCharacter[1], Chr(92))<>0 Then
Return 0
EndIf
For $I=1 To $_EmailCharacter[0] Step +1
If ($_EmailCharacter[$I]<>"""" And StringInStr($Local_LegalCharacters, $_EmailCharacter[$I])==0) Then
If (StringInStr($EmailCharacter[1], """")==0 Or StringInStr($EmailCharacter[1],"""", 0, -1)==0 Then
Return 0
ExitLoop
EndIf
EndIf
Next
$CheckExtremesSymbolsDomainBloq=StringSplit($EmailCharacter[2], "")
If (($CheckExtremesSymbolsDomainBloq[1]=="[" Or $CheckExtremesSymbolsDomainBloq[1]=="(") And ($CheckExtremesSymbolsDomainBloq[$CheckExtremesSymbolsDomainBloq[0]]=="]" Or $CheckExtremesSymbolsDomainBloq[$CheckExtremesSymbolsDomainBloq[0]]==")")) Then
$EmailCharacter[2]=StringTrimLeft($EmailCharacter[2], 1)
$EmailCharacter[2]=StringTrimRight($EmailCharacter[2], 1)
EndIf
$IpSplit=StringSplit($EmailCharacter[2], ".")
If $IpSplit[0]<>4 Then
$DomainType=1
Else
For $n=1 To 4
If IsNumber($IpSplit[$n]) Then
$DomainType=1
EndIf
If (Number($IpSplit[$n])<0 Or Number($IpSplit[$n])>255) Then
$DomainType=1
EndIf
Next
EndIf
If $DomainType==1 Then
If $EmailCharacter[2]>255 Then Return 0
$BloqDomainDiv=stringSplit($EmailCharacter[2], Chr(46))
If $BloqDomainDiv[0]<2 Then
Return 0
EndIf
For $I=1 To $BloqDomainDiv[0] Step +1
If (StringLen($BloqDomainDiv[$I])<1 Or StringLen($BloqDomainDiv[$I])>63) Then
Return 0
ExitLoop
EndIf
$_BloqDomainDiv=StringSplit($BloqDomainDiv[$I], "")
If ($_BloqDomainDiv[1]==Chr(45) Or $_BloqDomainDiv[$_BloqDomainDiv[0]]==Chr(45)) Then
Return 0
ExitLoop
EndIf
For $X=1 To $_BloqDomainDiv[0] Step +1
If StringInStr($Domain_LegalCharacters, $_BloqDomainDiv[$X])==0 Then
Return 0
ExitLoop
EndIf
Next
Next
Return 1
Else
Return 1
EndIf
EndFunc
Que la disfruteis!
Salu2!
Re: Validar dirección de e-mail
Publicado: 18 Feb 2009, 02:15
por emma93
Estuve una hora testeando con diferentes direcciones :P
La función anda perfectamente bien.
Un salu2, fekaa.-
Re: Validar dirección de e-mail
Publicado: 18 Feb 2009, 08:05
por Jonny
Hola
Muchas gracias por probarla!
¿Probaste con direcciones ilegales, como las que pone en la página en la que me basé por ejemplo?...
Espero que te sea de utilidad.
Salu2!
Re: Validar dirección de e-mail
Publicado: 21 Feb 2009, 15:15
por emma93
Eso es lo malo.
Probé siguiente dirección y me devolvió el valor 1. (Permitida)
[email protected]
Mientras que esa dirección de email nunca existiría.
Un salu2
Re: Validar dirección de e-mail
Publicado: 23 Feb 2009, 13:04
por Jonny
Hola
sí, he podido comprobar que alguna dirección se le escapa ... está claro, que nada como usar expresiones regulares para esto. Menos lío y más efectivo...
ahora falta saber usarlas, que yo no tengo ni papa!
a ver si alguien se anima...
Salu2!
Re: Validar dirección de e-mail
Publicado: 23 Feb 2009, 18:51
por timistar
par la direcion de correo
@sdfsgdfgfghdgh.com
no habria que ingresar todos ls nombres deserver de correo para que le compare ? o le enviaria una especia de ping al dsdsfdfs server a ver si existe o si tiene respuesta ?
como seria ?
Re: Validar dirección de e-mail
Publicado: 23 Feb 2009, 19:18
por Jonny
Hola
Pasándole esa dirección de correo, devolvería 0 (ilegal), puesto que solo tiene la parte de dominio, pero es necesaria la parte local de la dirección. Hecha un vistazo a la página que puse al principio del post, explica como debe estar formada una dirección de e-mail.
Por otro lado, esta función únicamente comprueba la sintaxis de la dirección, no que ésta exista o esté en uso, etc.
Un ping al servidor podría comprobar parte de la existencia de la dirección de correo, pero nunca podría verificarse por completo que la dirección especificada exista y esté en uso, excepto con el típico sistema de enviar un e-mail con un link de verificación o algo así.
Salu2!
Re: Validar dirección de e-mail
Publicado: 24 May 2009, 00:04
por Jonny
Hola
Viendo que la función que posteé no terminaba de ir del todo bien, pensé que podía ser mejor buscar un código php que validara la sintaxis de la dirección de correo (que en php se hace mucho eso) y convertir el código a autoit.
Así lo hice ayer, pero he de confesar que el condenao del código php me ha dado mucho trabajo...
En cualquier caso, no me resultó sencillo, teniendo en cuenta que no domino mucho el php y que en algunos casos creo que ni siquiera habían funciones equivalentes en autoit para las usadas en ese código php... Con un poco de ingenio e imaginación llegué a esto:
Código: Seleccionar todo
#Include <Array.au3>
#Include <File.au3>
#Include <String.au3>
MailValidation("[email protected]")
Func MailValidation($ArgMail)
Local $MailValide=0
$ArgMailDiv=StringSplit($ArgMail, ".")
If ((StringLen($ArgMail)>=6) And (StringInStr($ArgMail, "@", 0, 2)==0) And (StringLeft($ArgMail, 1)<>"@") And (StringRight($ArgMail, StringLen($ArgMail)))<>"@")) Then
If ((Not StringInStr($ArgMail, "'")) And (Not StringInStr($ArgMail, """"))) And (Not StringInStr($ArgMail, "\")) And (Not StringInStr($ArgMail, "$")) And (Not StringInStr($ArgMail, " "))) Then
If (StringInStr($ArgMail, ".", 0, 2)<>0) Then
$Term_Dom=$ArgMailDiv[$ArgMailDiv[0]]
If (StringLen($Term_Dom)>1 And StringLen($Term_Dom)<5 And (Not StringInStr($Term_Dom, "@"))) Then
$Before_Dom=StringLen($ArgMail, StringLen($ArgMail)-StringLen($Term_Dom)-1)
$Last_Character=StringRight($Before_Dom, StringLen($Before_Dom)-1)
If ($Last_Character<>"@" And $Last_Character<>".") Then
$MailValide=1
EndIf
EndIf
EndIf
EndIf
EndIf
If $MailValide==1 Then
Return 1
Else
Return 0
EndIf
EndFunc
Que no se si realmente estará bien trascrito....
Ahora, ahí va la función original en php, a verr si alguien puede ver si lo hice bien:
Código: Seleccionar todo
<?PHP
function comprobar_email($email)
{
$mail_correcto=0;
//compruebo unas cosas primeras
if ((strlen($email)>=6)&&(substr_count($email,"@")==1)&&(substr($email, 0, 1)!="@")&&(substr($email, strlen($email)-1, 1)!="@"))
{
if ((!strstr($email,"'"))&&(!strstr($email, """))&&(!strstr($email, "\"))&&(!strstr($email,"$"))&&(!strstr($email," ")))
{
//miro si tiene caracter .
if (substr_count($email,".")>=1)
{
//obtengo la terminacion del dominio
$term_dom=substr(strrchr($email, '.'),1);
//compruebo que la terminación del dominio sea correcta
if (strlen($term_dom)>1&&strlen($term_dom)<5&&(!strstr($term_dom,"@")) )
{
//compruebo que lo de antes del dominio sea correcto
$antes_dom=substr($email,0,strlen($email)-strlen($term_dom)-1);
$caracter_ult=substr($antes_dom,strlen($antes_dom)-1,1);
if ($caracter_ult != "@"&&$caracter_ult != ".")
{
$mail_correcto = 1;
}
}
}
}
}
}
if ($mail_correcto)
return 1;
else
return 0;
}
?>
a ver que opinais, si hice bien mi trabajo ... jejeje.
Por cierto, perdonad si este post tiene algo de oftopic...
Gracias de antemano,
Salu2!
Re: Validar dirección de e-mail
Publicado: 26 May 2009, 07:50
por Jonny
Hola
Mirando la función que convertí de php a autoit no funcionaba.
Lo más sencillo era (para mí) volver a mirar la página
http://www.linuxtotal.com.mx/index.php? ... _otros_002
y volver a escribir la función afinando un poco los algoritmos...
Así lo he hecho. Ahora, mientras la programaba he ido probando que las reglas de la página anterior se cumplieran, por lo que ahora sí, la función cumple perfectamente con las reglas del formateo de una dirección de correo electrónico.
Por cierto, la dirección
[email protected]
sí es válida, según la página que he puesto estaría permitida...
Ahí va el código fuente:
Código: Seleccionar todo
#Include <Array.au3>
#Include <File.au3>
#Include <String.au3>
$MailValide=MailValide("[email protected]")
Msgbox(0, "", $MailValide)
Func MailValide($ArgMail)
Local $LegalLocalChars="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!#$%&'*+-/=?^_`{|}~.", $LegalDomainChars="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-0123456789"
Local $LocalMail, $DomainMail
Local $Quot=0, $QuotNum
$ArgMailDiv=StringSplit($ArgMail, "@")
If (Not IsArray($ArgMailDiv) Or $ArgMailDiv[0]<2) Then Return 0
$DomainMail=$ArgMailDiv[$ArgMailDiv[0]]
For $I=1 To $ArgMailDiv[0]-1 Step +1
$LocalMail&=$ArgMailDiv[$I]&"@"
Next
$LocalMail=StringTrimRight($LocalMail, 1)
If (StringLen($LocalMail)<1 Or StringLen($LocalMail)>64) Then Return 0
If StringLeft($LocalMail, 1)=="." Then Return 0
$LocalMailDiv=StringSplit($LocalMail, "")
for $I=1 To $LocalMailDiv[0] Step +1
If $LocalMailDiv[$I]=="""" Then $QuotNum&=$I&"_"
Next
$QuotNum=StringTrimRight($QuotNum, 1)
For $I=1 To $LocalMailDiv[0] Step +1
If StringInStr($LegalLocalChars, $LocalMailDiv[$I])==0 Then
If $QuotNum=="" Then Return 0
$QuotNumDiv=StringSplit($QuotNum, "_")
If $QuotNumDiv[0]<2 Then Return 0
If ($QuotNumDiv[1]<$I And $QuotNumDiv[$QuotNumDiv[0]]>$I) Then
If $LocalMailDiv[$I]=="\" Then Return 0
ExitLoop
EndIf
EndIf
Next
If StringLen($DomainMail)>255 Then Return 0
$DomainMailDiv=StringSplit($DomainMail, ".")
If (StringLeft($DomainMail, 1)=="[" And StringRight($DomainMail, 1)=="]") Then
If $DomainMailDiv[0]<>4 Then Return 0
For $I=1 To $DomainMailDiv[0] Step +1
Switch($I)
Case 1
$DomainMailDiv[$I]=StringTrimLeft($DomainMailDiv[$I], 1)
Case 4
$DomainMailDiv[$I]=StringTrimRight($DomainMailDiv[$I], 1)
EndSwitch
If IsNumber($DomainMailDiv[$I]) Then Return 0
If (Number($DomainMailDiv[$I])<0 Or Number($DomainMailDiv[$I])>255) Then Return 0
Next
Else
If $DomainMailDiv[0]<2 Then Return 0
For $I=1 To $DomainMailDiv[0] Step +1
If (StringLen($DomainMailDiv[$I])<1 Or StringLen($DomainMailDiv[$I])>63) Then Return 0
If (StringLeft($DomainMailDiv[$I], 1)=="-" Or StringRight($DomainMailDiv[$I], 1)=="-") Then Return 0
$SubStringDomainMailDiv=StringSplit($DomainMailDiv[$I], "")
For $X=1 To $SubStringDomainMailDiv[0] Step +1
If StringInStr($LegalDomainChars, $SubStringDomainMailDiv[$X])==0 Then Return 0
Next
Next
EndIf
Return 1
EndFunc
¡Con menos código incluso!.
Nuevamente, si la dirección está correctamente escrita la función devolverá 1. En caso contrario devolverá 0.
Que la disfruteis!
Salu2!
Re: Validar dirección de e-mail
Publicado: 23 Jun 2009, 05:44
por piranga8
Buena Ahi va el Mio:
Código: Seleccionar todo
;===============================================================================
;
; Function Name: _ValMail()
; Description: Validate Email Format
; Parameter(s): $mail - string to validate
; Requirement(s): AutoIt
; Return Value(s): Valid - Returns 1
; Non Valid - Returns 0
; Error - Returns -1 and sets @ERROR = 1
; Author(s): Piranga8
; Remarks: The Ping Miliseconds are 4000.
;
;===============================================================================
Func _ValMail($mail)
$s_mail = StringSplit($mail,"@")
$LegalLocalChars=" $%&/()=""!¿?¡çÇ{}´´'*+``^^<>ºª\¬"
$user = StringSplit($s_mail[1],"")
If $s_mail[1] = $mail Then
Return 0
Else
$ping = Ping($s_mail[2], 4000)
EndIf
If $ping > 0 Then
For $i=1 To UBound($user)-1
If StringInStr($LegalLocalChars, $user[$i]) > 0 Then
Return 0
EndIf
Next
Return 1
EndIf
If @error Then
SetError(1)
Return -1
EndIf
EndFunc