Problemas con un archivo...

[aaronduran2]

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.

[Karcrack]

Creo que podrias usar esta funcion:

StrConv()

Si necesitas un ejemplo de uso pidelo

Saludos

[aaronduran2]

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

EDITO: Utilizo esto actualmente en el stub.

Código (vb) [Seleccionar] Expandir

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


[Karcrack]

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

Por supuesto :

Código (vb) [Seleccionar] Expandir

    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)

Código (vb) [Seleccionar] Expandir

    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

[aaronduran2]

Ya está, gracias por los ejemplos, Karcrack.

Saludos.