!!!! Delphi'de Adım Adım Fake Mail Gonderme Programi... !!!!!

[Slaughter]

Sa millet Delphi'de Adım Adım Fake Mail Gonderme Programi Yapicas Gayet Eglenceli acik ve net olucak Simdi Hadi baslialm az laf cok is

Oncelikle

Hedef: Yenilere veya eskilere farketmes amac herkesin mail gonderme alma konusundaki simdilik gonderme konusunda bi bilgisi olmasi hemen hemen herkes mail kullaniyodur burdaki amacimiz delphi kullananada kullanmayanada mail gondermenin temelini ogretmektir .)

Lets go

Soru:SMTP Nedir?

Simple Mail Transfer Protocol'dür tabiki uzuuun adiyla

Gelelim simdi bunun ne ise yaradigina hepinis duymussunuzdur gezinirken yok smtp adresi bulamadim yok ıvırda zıvır

Stmp Mail Gonderme Protokoludur yani aslinda hepinis bilmeden de olsa kullaniosunusdur smtp protokolunu en basitinden arkadasiniza bi mail gonderiosaniz o an smtp protokulunu kullaniosunus demektir .)

Smtp nin adresleri wardir : mx1.hotmail.com , mx2.hotmail.com bunlar hotmailin smtp adresleridir..

Pekiii hersey hos guzel ama smtp yle mail alınırmı ?? Bence alinmaz sizcede alinmaz smtp adindanda anlasildigi gibi sadece gondermeye yarar eyer mail almak istiyorsak POP3 kullanicas o bi soraki konu .)

1 memo ,2 Button , 5 Edit [Adlari:Smtp,Kimden,Kime,Konu,CC],ve bunlari nolduklarini hatirlaticak 4 de label ve +1 label daha buda bize smtp ile ilgili bilgi wericek bunun adida "durum" olsun...Sora INDY CLIENTS bolumunden IDSMTP1 i secin ve adini smtp1 olarak kisaltin ve sora INDY MISCS den IDMessage1 i secin ve Message1 olarak kisaltin

Simdi Gelelim Programa...

Button1 e cift tiklayin ve assagidaki kodu

aynen yapistirin - dikkat begin den end; e kadar olan kisim .D

procedure TForm1.Button1Click(Sender: TObject);
begin
SMTP1.Host := smtp.Text;
SMTP1.Port := 25;
idMessage1.From.Address := kimden.Text;
idMessage1.Recipients.EMailAddresses :=kime.Text + ',' + CC.Text;
idMessage1.Subject := konu.Text;
idMessage1.Body.Text := memo1.Text;
SMTP1.Connect(1000);
SMTP1.Send(idMessage1);

end;

ve soraa

smtp1 e tiklayin EVENTS a tiklayarak ONCONNECT olayinda bos olan text kutusuna cift yiklayin acilan yere

durum.caption:='Baglanti Saglandi ve Mail gonderildi';

aynı sekilde disconnect e yapn ve...

durum.caption:='Acı ama gercek baglanti kesildi';

yazin... soraa

Button2 yeee...

procedure TForm1.Button2Click(Sender: TObject);
begin
smtp1.Disconnect;
end;

gene beginden end; e kadr olan kismi alin yane smtp1.disconnect; i bunuda orenin die urasiorm salak sanmayin yani =))

Button1 in Adini YOLLA koca koca =)
Button2 nin Adini BAGLANTIYI KES yapin

veeeeEEeee f9 a Basin yerlerini doldurun ve send e basin durum labeli baglanirsa baglanti saglandi dicek ve anti virus uyari vericek hotmaillari yakalio namuzsuz sora baglantiyi kes diebilirsiniz gonul rahatligiyla :d
tabiki bu ogrenmeniz icin yapilmis bi program oldugu icin ileride goruces kacirmai =)


Dip dip not : Dokuman Tamamen Bana Aittir.Gecenn körnde urastirdiniz =)

Sorularinizi bu basliga sorabilirsiniz..

Kolay Gelsin ve Saygilarinizla Kaciorm .d

 

[PRotype]

Anlatım için Sağolda.. Ben Hala Nasıl SMTP Mail nasıl Bulunur Anlamadım...

 

[Slaughter]

smtp adreslerini intrnetden arastirarak bulabilirsn ztn bn orda 1-2 orn wermism onlari kullanabilrsn hotmail icn..

 

[techno_erc]

kardes bu delpi nin bütün sürümleriyle oluyo demi sen hangisini önerirsin bende Borland Delphi 6 Personal var ama kullanmayı bilmiyom ögrenmek istiyom yardımcı olur ve böle örnekler yollarsan sevinirim.Teşekkürler paylasımın içinde

 

[Slaughter]

kardes bu delpi nin bütün sürümleriyle oluyo demi sen hangisini önerirsin bende Borland Delphi 6 Personal var ama kullanmayı bilmiyom ögrenmek istiyom yardımcı olur ve böle örnekler yollarsan sevinirim.Teşekkürler paylasımın içinde

ben delphi 7 yi kullanmani onerrm program delphi 7 de yazildi ve daha cok orn gelcktr..

 

[ikbal35]

hocam iyi hos yaptim hepsinide baglan dedigimizde baglandi diyo ama windows hata veriyo dinamik ip den mail yollanamaz falan gibisinden bunu nasil cozeriz yardimci olursan sevinirim bide ben kontrol paneli gibi birsey yapiyorumda buna nasil elimdeki baska bir exe yi ekleyp butona komutu nasil yazicam bi yardimci olurmusun tesekkurler.

 

[pskoq22]

hata mesajı aldım..

hata veriyo sanırım bu smtplerle olmucak bu iş yada farklı bi yolu bilen varmı ben bi süredir ilgileniyorum delphi ile


HATA

bu siteye resim koyamıyormuyuz? yoksa ben mi başaramadım?

 

[bymxx]

Smtp nin adresleri wardir : mx1.hotmail.com , mx2.hotmail.com bunlar hotmailin smtp adresleridir
yazmışsın sen kaç kere mail gönderdin bu yolla çok merak ediyorum 2006 yı bilemem de yakın tarihlerde deneyenler olmuş bikaç ayönce hiç denemeyin derim hotmailden hata alırsınız başka bir mail serverı bulun hotmail olmasın sonuç hep hüzün hüsran olur halk dilinde beleş die tabir edilen bir server bulun giriş yapılmasını istiyorsada idsmtp1.AuthenticationType:atlogin; satırını ekleyin kullanıcı adınız şifrenizi vss......
bundan sonra bakanlar için bilgi olsın

 

[ywzslm]

Ellerine sağlık, çok temiz olmuş bence