Bueno, estaba en casa aburrido y me puse a juguetear con los SMTP, me di cuenta que algunos SMTP (gmail por ejemplo) al enviarle el
HELO* te saludaban dandote la IP, la cual cosa venia muy bien ::)
Pues bueno, me puse a programa y 5 minutos despues ya tenía el programita que sacaba la IP :D
Y pues eso, que lo comparto con vosotros.
Descargar: Codigo fuente incluido.
Citarhttp://snipurl.com/karcrack-23259
*Protocolo SMTP (http://es.wikipedia.org/wiki/Simple_Mail_Transfer_Protocol)
Ejemplo de comunicación:S: 220 Servidor ESMTP
C: HELO
S: 250 Hello, please meet you
C: MAIL FROM: yo@midominio.com
S: 250 Ok
C: RCPT TO: hackerhigueyano@hotmail.com
S: 250 Ok
C: DATA
S: 354 End data with <CR><LF>.<CR><LF>
C: Subject: Campo de asunto
C: From: yo@midominio.com
C: To: destinatario@sudominio.com
C:
C: Hola,
C: Esto es una prueba.
C: Adios.
C: .
S: 250 Ok: queued as 12345
C: quit
S: 221 Bye
Para quien no quiera bajarse el fichero dejo el code suelto, solo se necesita un Winsock o un CScocket en su defecto ;) :
Private Sub CommandXP1_Click()
WS.Connect "smtp.google.com", "25"
MousePointer = vbHourglass
CommandXP1.Enabled = False
End Sub
Private Sub Form_Load()
Set WS = New CSocketMaster
Text1.Text = ""
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
WS.GetData Data, vbString, bytesTotal
Select Case Left(Data, 3)
Case "220"
'Si nos saludo nos identificamos.
WS.SendData "HELO 127" & vbCrLf
Case "250"
'Cuando nos saludo cogemos la IP y nos despedimos.
Dim IP As String
IP = Entre(Data, "[", "]")
Text1.Text = IP
WS.SendData "quit" & vbCrLf
Case "221"
WS.CloseSck
MousePointer = vbNormal
CommandXP1.Enabled = True
End Select
End Sub
Public Function Entre(ByVal Str As String, Optional dStart As String, Optional dEnd As String, Optional Length As Long) As String
'Esta funcion obtiene un texto entre dos variables. PD: ES CASE INSENSITIVE ;=)
Dim X1 As Long, X2 As Long
X1 = IIf(dStart = "", 1, InStr(1, LCase$(Str), LCase$(dStart)) + Len(dStart))
If X1 > 0 Then
If dEnd = "" Then
Entre = Mid$(Str, X1)
Else
X2 = InStr(X1, LCase$(Str), LCase$(dEnd)) - X1
If X2 > 0 Then
Entre = Mid$(Str, X1, X2)
Else
Entre = ""
End If
End If
Else
Entre = ""
End If
If Length > 0 And Entre <> "" Then Entre = Left$(Entre, Length)
End Function
jaja esta bueno,hay muchas pagians que se dedican a eso de recibir paquetes y te tiran la ip que usas..el rar tiene password...
Cita de: seba123neo en 25 Mayo 2008, 14:19 PM
jaja esta bueno,hay muchas pagians que se dedican a eso de recibir paquetes y te tiran la ip que usas..el rar tiene password...
cierto xD
Pero esto no tiene interfaz no?
Saludos...
si tiene,un boton,un textbox..un winsock. :P
Se me olvido poner el Pass :P El pass es :
Citarfire
google usa puerto SSL y el smtp es 645. que yo sepa!
Cita de: skullsp en 25 Mayo 2008, 22:55 PM
google usa puerto SSL y el smtp es 645. que yo sepa!
Usa el puerto SSL para pop3 (995) y el smtp gasta 645 para TTL (si no recuerdo mal) y el 25 para conexión normal... o los usaba por igual, no lo tengo claro, si que se que en el 25 funciona perfectamente :D