kuzgunxxx
New member
- Katılım
- 18 Ağu 2007
- Mesajlar
- 3
- Reaction score
- 0
- Puanları
- 0
Artık hep beraber biraz "lamer"'lıktan "hacker"'lığa doğru adım atmak lazım.
Kendi programlarımızı yazarak ve mantığını anlayarak gerçek amacımız olması gereken bilginin gücüne ulaşmaya çalışalım.
Dersimiz " Anonymous mailer" yapmak.
Ne işe yarar bu anonymous mailer ? Bill Gates'in mail adresinden kendinize ya da Putin'den Bush'a mail atmanızı sağlar.
Bunu yapabilmek için bize gerekenler :
1- öğrenme isteği ( bize balık verilmesini beklemeden balık tutmayı öğrenmek )
2- Microsoft Visual Basic 2005 express edition ( programımızı bununla yazacağız )
3- Freeware herhangi bir SMTP server ( ne olduğunu az sonra açıklayacağım)
4- 30 dakika kadar zaman
Programımızı Visual Basic te yazacağız. Bunun için Visual Basic editörümüzde yeni bir "blank project" açıyoruz.
Module Module 1
Sub Main ()
Dim posta As New System.Net.Mail.MailMessage
' Bu kod posta adında bir MailMessage sınıfı yaratır. Bütün bilgileri bu "posta" adını verdiğimiz bu değişkene gireceğiz
Dim gonder As New System.Net.Mail.SmtpClient("localhost", 25)
' Burası önemli bir nokta. Bu kodla kullanacağımız SMTP server'ı ve kullanılacak portu tanımlıyoruz. SMTP server denen şey en basit tanımıyla Simple Mail Transfer Protokol, yani sizin mailinizi karşı tarafa gönderecek kodlara çevirecek olan programdır.Burada biz SMTP server'ı olarak Download.com'dan indireceğimiz bedava ve basit "Local SMTP Server Pro 2.8" 'i kullanacağız. ( en azından ben öyle yapıyorum deneme süresi bitene kadar)
http://dw.com.com/redir?edId=3&site...://www.download.com/3001-2367_4-10569390.html
Dim kimden As String
Dim kime As String
Dim konu As String
Dim mesaj As String
Dim ek As String
'Bu tanımlamalar "posta" adlı mesajımızın yapısını oluşturacak.
kimden = "[email protected]"
' mesajı gönderen kişi...istediğiniz adresi girebilirsiniz, geçerli olmak zorunda değil ama
'[email protected],net vs. yapısında olmak zorunda
kime = "gönderilecek@geçerli_bir_mail_adresi.com"
'mesajı göndereceğiniz kişi...bu mail adresi geçerli olmak zorunda
konu = "deneme"
'e-mail'in konu/subject kısmında görünecek text
mesaj = "deneme mesajı"
'e-mail in mesaj kısmı
ek = "c:\\dizin\\dizin\\dizin\\dosya.uzantı"
'e-mail'e eklemek istediğiniz dosyanın path'i ...dikkat...ayrımlar "\\" ile yapılmalı
Dim postaek As New System.Net.Mail.Attachment(ek)
'dosya ekini kullanmak için programa "ek" değişkeninden oluşturduğumuz postaek diye bir
'değişken daha tanıtıyoruz.
'Şimdi postamızı oluşturalım
posta.From = New System.Net.Mail.MailAddress(kimden)
posta.To.Add(kime)
posta.Subject = konu
posta.Body = mesaj
posta.Attachments.Add(postaek)
'yukarıdaki kodlar gönderilecek olan postamızı oluşturur.
've gönderelim :
gonder.Send(posta)
End Sub
End Module
Eğer programı doğru yazdıysak anonim olarak bir mail gönderebiliriz demektir.
SMTP server ayarları basittir, portu değiştirmeyin, 25 olarak kalsın, çünkü programda 25 olarak tanımladık.
DNS server bazen problem çıkartabiliyor, eğer adres bulunamadı diye bir sorun yaşarsanız DNS server a TTNET in DNS server numaralarından birini girebilirsiniz.(mesela 212.156.4.1)
Geldik en önemli kısmına :
Bu yöntemle gönderdiğiniz maillerde mail adresi sizin yazdığınız adres olarak görünecektir...mesela...marslı@mars.com gibi...ama işin kötü tarafı e-mail headerını okumayı bilen birisi bu mailin sizin IP numaranızdan geldiğini görecektir çünkü local bir server'dan yolluyoruz. Evet, IP'ler dinamiktir ama savcılığa intikal eden bir durum yaratırsanız sizi bulurlar!!!!! Kullanacaksanız sadece eşek şakaları ya da zararsız mass mailler atmak için kullanın, ama 3. Dünya savaşı çıkartmayın.
İşin mutfağına biraz girmiş olduk.
BİLGİ GÜÇTÜR BİLGELİK GÜCÜN KONTROLÜ
Kendi programlarımızı yazarak ve mantığını anlayarak gerçek amacımız olması gereken bilginin gücüne ulaşmaya çalışalım.
Dersimiz " Anonymous mailer" yapmak.
Ne işe yarar bu anonymous mailer ? Bill Gates'in mail adresinden kendinize ya da Putin'den Bush'a mail atmanızı sağlar.
Bunu yapabilmek için bize gerekenler :
1- öğrenme isteği ( bize balık verilmesini beklemeden balık tutmayı öğrenmek )
2- Microsoft Visual Basic 2005 express edition ( programımızı bununla yazacağız )
3- Freeware herhangi bir SMTP server ( ne olduğunu az sonra açıklayacağım)
4- 30 dakika kadar zaman
Programımızı Visual Basic te yazacağız. Bunun için Visual Basic editörümüzde yeni bir "blank project" açıyoruz.
Module Module 1
Sub Main ()
Dim posta As New System.Net.Mail.MailMessage
' Bu kod posta adında bir MailMessage sınıfı yaratır. Bütün bilgileri bu "posta" adını verdiğimiz bu değişkene gireceğiz
Dim gonder As New System.Net.Mail.SmtpClient("localhost", 25)
' Burası önemli bir nokta. Bu kodla kullanacağımız SMTP server'ı ve kullanılacak portu tanımlıyoruz. SMTP server denen şey en basit tanımıyla Simple Mail Transfer Protokol, yani sizin mailinizi karşı tarafa gönderecek kodlara çevirecek olan programdır.Burada biz SMTP server'ı olarak Download.com'dan indireceğimiz bedava ve basit "Local SMTP Server Pro 2.8" 'i kullanacağız. ( en azından ben öyle yapıyorum deneme süresi bitene kadar)
http://dw.com.com/redir?edId=3&site...://www.download.com/3001-2367_4-10569390.html
Dim kimden As String
Dim kime As String
Dim konu As String
Dim mesaj As String
Dim ek As String
'Bu tanımlamalar "posta" adlı mesajımızın yapısını oluşturacak.
kimden = "[email protected]"
' mesajı gönderen kişi...istediğiniz adresi girebilirsiniz, geçerli olmak zorunda değil ama
'[email protected],net vs. yapısında olmak zorunda
kime = "gönderilecek@geçerli_bir_mail_adresi.com"
'mesajı göndereceğiniz kişi...bu mail adresi geçerli olmak zorunda
konu = "deneme"
'e-mail'in konu/subject kısmında görünecek text
mesaj = "deneme mesajı"
'e-mail in mesaj kısmı
ek = "c:\\dizin\\dizin\\dizin\\dosya.uzantı"
'e-mail'e eklemek istediğiniz dosyanın path'i ...dikkat...ayrımlar "\\" ile yapılmalı
Dim postaek As New System.Net.Mail.Attachment(ek)
'dosya ekini kullanmak için programa "ek" değişkeninden oluşturduğumuz postaek diye bir
'değişken daha tanıtıyoruz.
'Şimdi postamızı oluşturalım
posta.From = New System.Net.Mail.MailAddress(kimden)
posta.To.Add(kime)
posta.Subject = konu
posta.Body = mesaj
posta.Attachments.Add(postaek)
'yukarıdaki kodlar gönderilecek olan postamızı oluşturur.
've gönderelim :
gonder.Send(posta)
End Sub
End Module
Eğer programı doğru yazdıysak anonim olarak bir mail gönderebiliriz demektir.
SMTP server ayarları basittir, portu değiştirmeyin, 25 olarak kalsın, çünkü programda 25 olarak tanımladık.
DNS server bazen problem çıkartabiliyor, eğer adres bulunamadı diye bir sorun yaşarsanız DNS server a TTNET in DNS server numaralarından birini girebilirsiniz.(mesela 212.156.4.1)
Geldik en önemli kısmına :
Bu yöntemle gönderdiğiniz maillerde mail adresi sizin yazdığınız adres olarak görünecektir...mesela...marslı@mars.com gibi...ama işin kötü tarafı e-mail headerını okumayı bilen birisi bu mailin sizin IP numaranızdan geldiğini görecektir çünkü local bir server'dan yolluyoruz. Evet, IP'ler dinamiktir ama savcılığa intikal eden bir durum yaratırsanız sizi bulurlar!!!!! Kullanacaksanız sadece eşek şakaları ya da zararsız mass mailler atmak için kullanın, ama 3. Dünya savaşı çıkartmayın.
İşin mutfağına biraz girmiş olduk.
BİLGİ GÜÇTÜR BİLGELİK GÜCÜN KONTROLÜ
BİLGİ GÜÇTÜR BİLGELİK GÜCÜN KONTROLÜ