Foro de elhacker.net

Hola. Estoy utilizando el módulo de cobein mRunPE para ejecutar un archivo en memoria. Lo que hago es abrir el archivo y obtener los datos, que los guardo en una variable Byte. El problemas es que necesito hacer un split de los datos, ya que es el stub de un crypter, por lo que no soy capaz de hacerlo, y que luego pueda utilizar la función RunPE con el valor que yo desee del split. ¿Alguien me puede ayudar?

Gracias de antemano.

Creo que podrias usar esta funcion:

Si necesitas un ejemplo de uso pidelo ;)

Saludos ;D

¿Podrías ponerme un ejemplo, Karcrack?
Muchas gracias.

EDITO: Utilizo esto actualmente en el stub.

Sub Main()
    Dim b_Datos As Byte
    Dim v_Datos As Variant
    Open Ruta For Binary As #1
        Get #1, EOF(1), b_Datos
    Close #1
    'Ahora necesito hacer el split para separar el archivo original del stub.
    v_Datos = Split(b_Datos, "|-|-|")
    'Pero me da error.
    RunPE v_Datos(1), "notepad.exe"
End Sub
 

Por supuesto :D:

    Dim sCadena     As String
    Dim bArray()    As Byte
    Dim bArray2()   As Byte
 
    sCadena = "Ejemplo de uso de StrConv Por Karcrack"
 
    'Pasamos la Array a Cadena
    'sCadena = StrConv(bArray, vbUnicode)
    'Modificamos la cadena
    sCadena = UCase$(sCadena)
    'Pasamos la Cadena a Array
    bArray2 = StrConv(sCadena, vbFromUnicode)

---

    Dim sCadena     As String
    Dim bArray()    As Byte
    Dim bArray2()   As Byte
 
    Open "C:\Texto.txt" For Binary As #1
        ReDim bArray(0 To LOF(1) - 1)
        Get #1, , bArray
    Close #1
 
    'Pasamos la Array a Cadena
    sCadena = StrConv(bArray, vbUnicode)
    'Modificamos la cadena
    sCadena = Left$(sCadena, 5)
    'Pasamos la Cadena a Array
    bArray2 = StrConv(sCadena, vbFromUnicode)

Si no lo entiendes ya sabes ;)

Saludos :D

Ya está, gracias por los ejemplos, Karcrack.

Saludos.