Gönderen Konu: Trojan Yazmak  (Okunma sayısı 1610 defa)

Çevrimdışı nadir_pıero

  • Osc Çizik Üye

  • 3. SINIF UYE
  • *
  • İleti: 3.539
  • Puan -101
  • Cinsiyet: Bay
    • MSN Messenger - nadir_piero10@hotmail.com
    • Profili Görüntüle
    • E-Posta
Trojan Yazmak
« : 04 Aralık 2006, 08:48:16 »
bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi


Önceden de anlattigim gibi delphide trojen yazimi ile ilgili bilgilier verecegim.
Hepsinden önce size delphi ile ilgili biraz bilmeniz gereken bilgileri verecegim.

Ö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.

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.

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.

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.

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.

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.

Hadi kolay gelsin

Çevrimdışı pakv

  • 5. SINIF UYE
  • *
  • İleti: 13
  • Puan 0
    • Profili Görüntüle
    • E-Posta
delphi kimse ögretmiyor neden çok mu zor ögrenemiyomda
« Yanıtla #1 : 09 Ocak 2007, 23:16:29 »
nadir kardes bana şu delphiyi gösterecenmi kardes ben hiç bişe bilmiyom hiç sadece adını biliyom ama benim gerçektenm ögrenmek istedigim kısımlar kodlar komutlar beni 1. sınıfa baslamış gibi düşün kardes yardımcı olursan sevinirim tşk haber bekliyom

Çevrimdışı Onur1

  • 5. SINIF UYE
  • *
  • İleti: 287
  • Puan -5
    • Profili Görüntüle
Trojan Yazmak
« Yanıtla #2 : 21 Ocak 2007, 12:44:24 »
trojen yazmayla ne uğraşcam yaff indiririm turkojan 3 olur biter  ;D

Çevrimdışı Nightmare

  • 1. SINIF ÜYE
  • *****
  • İleti: 12.725
  • Puan 2709
  • Cinsiyet: Bay
    • Profili Görüntüle
Trojan Yazmak
« Yanıtla #3 : 06 Şubat 2007, 14:58:43 »
amk bizeede okulda v.basic ögretiolar bi boka benzemio tav oluyom  :D :D

Çevrimdışı Burqi

  • 2. SINIF UYE
  • ****
  • İleti: 6.319
  • Puan 4650
  • Cinsiyet: Bay
  • Türkiye FootbaLL kinq
    • MSN Messenger - team_burhan@w.cn
    • Profili Görüntüle
Trojan Yazmak
« Yanıtla #4 : 28 Şubat 2007, 19:05:54 »
PAYLAŞIM İÇİN SAOL  ;)




Çevrimdışı LeGeND-MæN

  • 1. SINIF ÜYE
  • *****
  • İleti: 25.719
  • Puan 1937
  • Cinsiyet: Bay
  • Mangal Yürekli Adam
    • Profili Görüntüle
Trojan Yazmak
« Yanıtla #5 : 03 Mart 2007, 14:34:36 »
bilgi için sağol
tarz yaratmak için Ağır Abi OLma!! Ağır Abi Dediğin Sevdimi Tam Sever Giydiğini herkez Beğenir, Saygısı Sonsuz Sevgisi Ebedi Olur..

DAĞLARINA DARGIMIM YAR...



Çevrimdışı Force23

  • 1. SINIF ÜYE
  • *****
  • İleti: 32.652
  • Puan 334
  • Cinsiyet: Bay
  • !!ƒяєєѕтуℓєя!!
    • Profili Görüntüle
Trojan Yazmak
« Yanıtla #6 : 14 Mart 2007, 18:08:44 »
Paylaşım için teşekkürler kardeşş
Only God Can Judge Me !!
They''ll Never Take Me Alive

Çevrimdışı rdgnblt

  • 3. SINIF UYE
  • ***
  • İleti: 3.066
  • Puan 350
  • Cinsiyet: Bay
    • Profili Görüntüle
    • E-Posta
Trojan Yazmak
« Yanıtla #7 : 14 Mart 2007, 18:30:36 »
once c++ oğrenin bi yazılım diliniz olsun bunlar size çok yabancı gelir
sonra naparsanız yapın trojan yapmayın ama ;D
bir gün gözlerimin ta içine bak anlarısn ölüler niçin yaşarmış

Çevrimdışı akyollu

  • 5. SINIF UYE
  • *
  • İleti: 937
  • Puan 243
    • Profili Görüntüle
Trojan Yazmak
« Yanıtla #8 : 15 Mart 2007, 17:11:23 »
once c++ oğrenin bi yazılım diliniz olsun bunlar size çok yabancı gelir
sonra naparsanız yapın trojan yapmayın ama ;D

 ;D ;D ;D

Çevrimdışı FeaRLeSs

  • 1. SINIF ÜYE
  • *****
  • İleti: 28.257
  • Puan 2731
  • Cinsiyet: Bay
    • MSN Messenger - tello_hazer1903@hotmail.com
    • Profili Görüntüle
    • E-Posta
Trojan Yazmak
« Yanıtla #9 : 20 Mart 2007, 20:46:06 »
saol aga güzell


Çevrimdışı fatih_23

  • 5. SINIF UYE
  • *
  • İleti: 70
  • Puan 2
  • Cinsiyet: Bay
  • BİR GÜNE KAÇ İŞE YARAYACAK İŞ SIĞDIRDIN(CEZA)
    • MSN Messenger - o-selcuk@hotmail.com
    • Profili Görüntüle
    • E-Posta
Trojan Yazmak
« Yanıtla #10 : 21 Mart 2007, 17:23:45 »
güzel bilgilerde çok uzun turkojan 3 indir daha kolay yiğnede paylaşımın için tşk
OKUDA ADAM OL BABAN GİBİ,EŞEK OLMA virgüle dikkat

Çevrimdışı N0RM

  • 2. SINIF UYE
  • ****
  • İleti: 6.136
  • Puan 310
  • Cinsiyet: Bay
  • Narq0z
    • Profili Görüntüle
    • E-Posta
Trojan Yazmak
« Yanıtla #11 : 06 Nisan 2007, 21:38:23 »
güzel bilgilerde çok uzun turkojan 3 indir daha kolay yiğnede paylaşımın için tşk

katılıyorumm...