Hola estoy estudiando el codigo del troyano MFucker y me he encontrado con este codigo que no entiendo como funciona... Alguien sabe como funciona?
Private Sub wS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data As String
wS(Index).GetData data
DatosTemporales = DatosTemporales & data
If Right(DatosTemporales, 1) = Chr(0) Then
While InStr(DatosTemporales, Chr(0))
Dim tempo As String
tempo = Mid$(DatosTemporales, 1, InStr(DatosTemporales, Chr(0)) - 1)
DatosTemporales = Mid(DatosTemporales, InStr(DatosTemporales, Chr(0)) + 1)
Debug.Print "[" & Index & "] << " & tempo
ProcesaDatos tempo, Index
Wend
DatosTemporales = ""
End If
End Sub
HOLA!!!
Es bien simple lo que hace al utilizar un buffer de entrada quedan bytes vacios, estos los borra con el mid, aunque es mejor usar Replace(cadena,chr(0),vbnullstring).
GRACIAS POR LEER!!!
Lo que hace se podria decir que es como la funcion Split y va imprimiendo los datos :P y luego actua segun esos datos