Mail Gönderen Keylogger Kodu

[BeqKraL]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Merhaba Arkadaşlar Hemen Anlatıma Geçiyorum ;

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 mutlaka "GMAİL" olması gerekmektedir. Hotmail veya başka hesaplara mail göndermez !!

Şimdi kodlara geçelim: Formun general bölümüne şu kodu ekliyoruz:

Imports System.Net.Mail



Butonun içine ise şunları:

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 If


Paylaşıldımı bilmiyorum paylaşıldıysa özür dilerim.%100 kendi anlatımımdır !
​

 

[3xtacy]

Kuralları okurmusun .

8-Saldırı amaçlı program yayınlamak yasaktır.