Oktay Şenkan
🌱Yeni Üye🌱
- Katılım
- 21 Tem 2010
- Mesajlar
- 22
- Tepkime puanı
- 0
Bu dersimizde keylogger için mail gönderme programı yapacağız.
Öncelikle bu programla başkasına mail gönderemezsiniz. Bu programla yalnızca kendi mail adresinize gerekli bilgileri saklamak ya da keyloggerlar için bilgileri mailinize göndermek amacıyla kullanabilirsiniz.
# Formumuza 3 adet textbox (textbox1, textbox2, textbox3) ve 1 adet button ekliyelim.
# textbox1'in multiline özelliğini true yapalım. Burayı göndereceğimiz maile yazı yazmak için kullanacağız.
# textbox2 yi mail adresimizi girmek için kullanacağız.
# textbox3'ü ise şifremizi girmek için kullanacağız.
Not: Hesabımızın gmail olması gerekmektedir. Hotmail hesabına ve başka hesaplara mail göndermez.
# Şimdi kodlara geçelim: Formun general bölümüne şu kodu ekliyoruz:
Butonun içine ise şunları:
Kodlar bu kadar.
Hepinize kolay gelsin.
Öncelikle bu programla başkasına mail gönderemezsiniz. Bu programla yalnızca kendi mail adresinize gerekli bilgileri saklamak ya da keyloggerlar için bilgileri mailinize göndermek amacıyla kullanabilirsiniz.
# Formumuza 3 adet textbox (textbox1, textbox2, textbox3) ve 1 adet button ekliyelim.
# textbox1'in multiline özelliğini true yapalım. Burayı göndereceğimiz maile yazı yazmak için kullanacağız.
# textbox2 yi mail adresimizi girmek için kullanacağız.
# textbox3'ü ise şifremizi girmek için kullanacağız.
Not: Hesabımızın gmail olması gerekmektedir. Hotmail hesabına ve başka hesaplara mail göndermez.
# Şimdi kodlara geçelim: Formun general bölümüne şu kodu ekliyoruz:
Kod:
Imports System.Net.MailButonun içine ise şunları:
Kod:
If TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox1.Text = "" Then
MsgBox("gerekli yerleri boş bırakmayınız !", MsgBoxStyle.Exclamation)
Else
Dim mail As New MailMessage
mail.Subject = "test e-mail"
mail.To.Add(TextBox2.Text )'mail adresimiz
mail.From = New MailAddress(TextBox2.Text )
mail.Body = TextBox1.Text
Dim smtp As New SmtpClient("smtp.gmail.com")
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(TextBox2.Text & ComboBox1.Text, TextBox3.Text)
smtp.Port = 587
smtp.Send(mail)
MsgBox(TextBox2.Text & " " & "Adresine Başarıyla Gönderildi", MsgBoxStyle.Information)
End IfKodlar bu kadar.
Hepinize kolay gelsin.
