ihtiyaçlarınız; Borland Delphi (5 olrsa ii olur 7 de tsocketserver ve tclientserver sonradan eklemeyi gerektiriyor burada anlatmadım ama basit)--biraz sabır--arka fonda sevdğiniz bi müzikncelikle client yani karşı bilgisayara yolladığımız serverımızabağlanmamızı sağlayacak programcığımızı oluşturacağız. internet tabından Formumuza ClientSocket ğemizi ekliyoruz. Kodları yazarken kolaylık olsun diye de adını Client olarak değiştiriyoruzşimdi nedir bunlar;port:karşı bilgisayara bağlanacağınız serverın açacağı kapının numarası(dahabasit nasıl açıklayabilrim ki :P rn:6610)host:karşı bilgisayarın ip siactive:clientimizin aktif çalışr durumda olup olmadığışimdi formumuza iki edit yerleştiriyoruz birde buttonedit1:port numarası yazacakedit2:host adresi yazacakbuttonumuzun onclick eventine geliyoruz yani çift tıklıyoruz butonumuza :Pve şyle yazıyoruzprocedure TForm1. Button1Click ;beginif edit1. Text='' then showmessage elseif edit2. text='' then showmessage elsebeginclient. Port:=strtoint(edit1. text);// clientimizin port numarası sadece sayısal değer olacağından byle yazmamız gerekclient. Host:=edit2. text;// Bağlanacağımız ipclient. Active:=true;//Clientimiz çalışır konuma geliyor son olarakendend;end. herşeyi doğru yaptıysnz yeni bir buton ve edit ekliyoruz. ikisininde enabled:=false yapıyoruz. bir de memo ekleyelim onunda readonly sini true yapalımşimdi clientimize geliyoruz ve events blmünden onconnect e aşadığadki kodları yazıyoruz;if client. Socket. Connected then beginmemo1. lines. add('Bağlanıldı '+edit2. text);edit3. Enabled:=true;button2. Enabled:=true;edit1. enabled:=false;//port editimizi kapattık değiştirmeyelim diyeedit2. enabled:=false;//host editimizi kapattık yine değiştirmeyelim diyebutton1. enabled:=false;//bağlandığımz için kapattık daha ihtiyaç yok bağlanılıncaendburda servera yollayacağımız komutları edit3 ye yazacağızardından button2 ye tıkladığımızda da bu komutu servera ileteceğizbu sebeple nce aktif değillerdi ve clientimiz bağlandığında aktif halegelmelerini sağladıkha unutmadan birde clientimizin disconnect evetine memo1. Lines. Add('Bağlantı Koptu '+edit2. text);// bu kodla bağlantımızın kopup kopmadığını greceğiz... şimdi button2 mizin onclick eventine şu kodları ekleyelimclient. Socket. SendText(edit3. text);// yani edit3 e yazacaklarımızı servera yolla diyoruz. herşey bu kadar derleyip kaydedelim projemizi...////////////////////////////////////////////////Gelelim server a şimdi server karşı tarafa yollayacağımızexe truva atımız fonksiyonlarımız yani herşeyimiz aslındayine yeni bir uygulaMa açıyoruz internet tabından serversocket nesnemizi ekliyoruzadını yine kolaylık olsun die server olarak değiştirelimport:clientimizden bağlanacağımız port burada sabit olacak mesela 6610 diyelim bizactive:true yapalım ancak nce portu ayarlayalım yoksa hata verirve ayrıca birde edit ekliyoruz formumuza komutları buraya alıczşimdi server ın onclientread eventineedit1. text:=server. Socket. Connections . ReceiveTextve mesela cdrom açtıralım ilk olarak bunun içinbunun için formumuzun kodların en baaşında uses kısmınaMMSystem ekleyelimusesWindows, Messages, ... MMSystem;gibi olacaksonra serverımızın onclientreadine şunları yazalım az ncekikodlarımızn altınaif edit4. Text='cdaç' then mciSendString('Set cdaudio door open wait', nil, 0, handle); //acşimdi serverımızı derliyoruz ve açık bırakıp az nce derlediğimiz clientimiz açıyoruz vebelirlediğimiz server portunu ve kendi ip adresimizi(127.0.0.1) yazıyoruzbağlantı kurulduktan sonra komut yollayacağımız editimize "cdaç" yazıyoruz veee cd rom umuzun açıldığını grüyuoruuuzz... alnt... Eğer İnsanlar benimle aynı şeyleri düşünüyorsa bir yerlerde yanlış yaptım demektir

asynchour socket error hatası alıyorum bu torjandanasıl halledebılıroz? zirveye cıkarken herkese selam ver cunku ınerken onlarla karsılasaksın!

adam o kdr yazmş 1sene kmse cvp yazmamş yuh :pbare bizde saoL dieLm (: &#8730; &#946;&#510;&#378;¢&#7861;&#331; //\\ Türkiye"de yaşayan Türk"e biat edecek!!

Reverse connection mantığı olmadan işe yaramaz artık.

Arkadaşlar bu forumda neden şaraplar yıllandıkça güzelleşir mantııyla konuların çouna yıllar geçtikten sonra cevap geliyo :D yine yıllanmış konulara yazıyoruz :D trojan yazcakların işine yarar ama :D :)

12/1/2005saol :D

: asynchour socket error hatası alıyorum bu torjandanasıl halledebılıroz? bak dai o internet üzerinden bağlanama sebebin adsl yüzündendir onun için ne yapacaksınbak bu dkümanda client sende server onda oluyor demi tam tesini yap client o olsun server sen ol ve kendi modeminden bir port aç o sana bağlansın |sadece aptalların başarısı ders notu ile lçülür|

arkadasım bravokendi pc'mizde trojan yapıp kendı kendımızı hacklemek cıdden guzel bı olaydahanı dıyorum internet ip adresi ilede calıssa bu program varya cok ıyı olurdu ama fazla sey ıstıyorum galıba :)kendı pc'mızı hacklemek'te yeter be! zirveye cıkarken herkese selam ver cunku ınerken onlarla karsılasaksın!

sagollllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllsımdı denıyorum :)tesekkurler zirveye cıkarken herkese selam ver cunku ınerken onlarla karsılasaksın!

tesekkurler zirveye cıkarken herkese selam ver cunku ınerken onlarla karsılasaksın!