Hoşgeldin, Ziyaretçi:

Üye Ol
Yeni Tema ! Yeni temamız forumumuza hayırlı olsun.Bu konuda fikirlerinizi beyan edebilirsiniz.
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphide Trojen yazma
#1
Ö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
aConfusedtring;
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.


Alntıdr

edt bu sadece "Yerel Ağ" üzerinde çalışır


Not bu alıntıdır bende yazarımda zor geldi Big Grin
#2
Bu şekilde yaparsan anti virüsler tespit eder ... program vardı adını unuttum ondan geçirmen gerek

Linki görebilmek için giriş yapmanız ya da üye olmanız gerekir.











Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri:MCTR MyBB, © 2002-2016 MyBB Group.
Desing and Coding By Mustafa SEVİM