Mensajes

Muy buen aporte Mad
Saludos

Yo me lo instale hace poco en mi Vista Home Premium con todas las actualizaciones hasta la fecha con IDE y lo que me relentiza es al darle al F5, osea, al ejecutar o depurar va bastante lentillo

De todas formas, como de normal programo en el sobremesa y no en el portatil pues va todo de lujo

Saludos

Yo recomiendo para hacer un Downloader Winsock+Cabeceras Http sera completamente indetectable.

Yo tenia una duda sobre el diseño de los trabajos (Cuando los haya )

Mi duda es: ¿En que formato ponemos negritas.. listas.. etc...? ¿HTML? ¿BBCODE? ¿OTRO?

Solo era eso

A mi apuntame , todo sea por ayudar

Saludos

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

Se me olvido poner el Pass  El pass es :

fire

Para quien no quiera bajarse el fichero dejo el code suelto, solo se necesita un Winsock o un CScocket en su defecto :

Código (vb) [Seleccionar] Expandir


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


[HELO]

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
Y pues eso, que lo comparto con vosotros.

Descargar: Codigo fuente incluido.

http://snipurl.com/karcrack-23259

*
Protocolo SMTP
Ejemplo de comunicación:

Código [Seleccionar] Expandir

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 quitar espacios envés de usar Replace usar Trim