Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Delphide trojen yazma

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

Önce delphi ile ilgili biraz bilgi vereyim.
Delphi pascal tabanli olup görsel bir yazilim dilidir ve bilgisayarcilar arasinda cok popilerdir.

Delphide program yazarken iki yerle cok hasir nesir olacagiz.
Bunlardan birincisi komponentler bölümü ikincisi ise “Object Inspector” penceresidir.

Komponentler bölümü zaten delphiyi actiginiz zaman karsiniza ana pecerede cikan Standart,
additional, win32 … gibi siralanip giden basamakli pencereler olarak karsiniza cikar.

Object Inspector penceresi ise kendi arasinda iki basamakli pencere olarak ikiye ayrilir.
Ilki Properties ikinci ise events bölümüdür. Bu pencerelerin her ikiside cok önemlidir.

Properties peceresi formunuza eklediginiz komponentlerin özelliklerini control edip degistirebilirsiz.
(Bu bölümle su an pek isimiz yok)



Evrents penceresi ise formunuzdaki komponemtlerin olaylarina müdale etmenize saglayacak mesela
acip bakarsaniz On Click yazar bu o an tikladiginizda ne yapmanizi istediginizi o kisma yazarak
beliritirsiniz.

Simdi gelelim trojen yazma islemimize once delphide trojen matigindan biraz bahsediyim.
Delphide ag dedimiz zaman (bu islem komponentler ile yapildigi zaman)
verici client alici server degimleri akla gelir. Client komut gönderir truva ati yani server
komutu yerine getirir.

Simdi yazmaya baslayalim once serveri yani truva atini yazalim.

Simdi delphiyi actiginizda ilk form cikar bu forma komponentlerin internet basamagina gelip
tcpserver tiklayin ve formunuzun uygun bir yerine tiklayin formunuza yelestigini göreceksiniz.

Bu islemi yaptiktan sonra formun üzerine ikikere tiklayarak formun creat kod bloguna giriniz.
Buraya su kodlari yaziniz.



Alıntı:
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.TcpServer1.LocalPort:=’222’; //hangi porttan veri dinleyecegi belirlenir.
form1.TcpServer1.Active:=true; // basla
end;

end.
Bu islemi yaptiktan sonra F 9 basarak isleminizin calisip calismadiginizi gorebilisiniz.

Simdi komut yorumlayacagi yeri islemi yapalim.
Bunun icin “Object Inspector” penceresinin Evrents basamagindan yaralanacagiz.
Bunun icin forma yerlestirdigimiz tcpserver componentini tiklayin ve “Object Inspector”
pecresinin evrents basamagini tiklayin ve ordaki On Accept bölümüne tiklayin ve acilan
kod bloguna su kodlari yaziniz.


Alıntı:
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
a:string;
begin
a:=clientsocket.Receiveln();
if a = 'mesaj' then
begin
showmessage('**** CODDER 71® ****');
end
end;

end.

Bu kod islemini yaptiktan sonra bu formu kaydetip kapatin kaydetme islemi file—save projet
as ve geriside bilindigi gibi kaydet kaydet deyin ve birkez F 9´a basin cikin.

Server islemi tamam.

Simdi clienti formu yazmaya geldik

Kodlari yazmaya baslamadan once sunlari forma yerlestiriniz.

Componentlerden standart bolümünden

2 adet edit text
1 adet label
2 adette button koyunuz ve
internet basmagindan tcpclient koyunuz.

Simdi kodlari yazalim
Forma ikikere tiklayarak acilan kod bloguna su kodlari yaziniz.


Alıntı:
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Label1.Caption:=form1.TcpClient1.LocalHostAd dr;
form1.Edit1.Text:=form1.TcpClient1.LocalHostAddr;
form1.Edit2.Text:='222';
form1.Button1.Caption:='CONNECT';
FORM1.Button2.Caption:='SEND';
end;
bu islemden sonra
formdaki button1 yazan buton üstüne gelip ikikere tiklayarak su kodlari yaziniz.

Alıntı:
form1.TcpClient1.RemoteHost:=form1.Edit1.Text; //ip
form1.TcpClient1.RemotePort:=form1.Edit2.Text; //serverin dinledigi port
form1.TcpClient1.Connect; //baglan

bu islemdende sonra button2 yazan butonun ustune gelip ikikere tiklayarak
acilan kod buloguna ise su kodlari yaziniz.

Alıntı:
procedure TForm1.Button2Click(Sender: TObject);
begin
FORM1.TcpClient1.Sendln('mesaj'); //komut gonder
end;

end.
Iste ilk trojenimiz bitti bunu daha once dedigim gibi kaydetin ve bir kez F 9 ´a
basin ve cikin ve dosyalari kaydettiginiz yeri acin ve exeleri olusmus olacaktir
onlari alip kullanabilirsiniz.

(sari renkli iconlari vardir. 7 isareti iconlardir.)




Dikkat : Bu anlatiklarim hepsi delphi 7 icindir.

Cok amatörce oldu ama insallah size mantigi biraz olsun anlamaniza yardimci olmusumdur.
Trojenlerin %70-80 bu yöntemle yazilir cok ünlü wormlar bile bu yöntemle yazilmislardir.
Aslinda burda ag mantigini kapmak olay bunu örendiseniz cok gelismis ag programlari yazabilirsiniz.
 
Üst Alt