Muy buenas a todos los componentes del Foro,vengo a pediros informacion de como desencryptar un archivo y poder ejecutarlo en Memorya.
Recien empiezo a usar este leguaje y aun me cuesta entender el uso de algunas funciones,ya que mi ingles es muy basico y me ayudo del
vendito San Google
,bueno este es el codigo que estoy utilizando como Loader.
y este seria Test.exe,solo pongo la parte del sub main ya que el Form1 y los demas modulos llevan mucho code
Tanto si tengo Test.exe en el mismo directorio,como si lo agrego como recurso funciona bien,mi problema es cuando lo intento desencyptar,
bueno el caso es que yo encrypto Test.exe,con Base64 por ejemplo y lo guardo con otro nombre,a primera vista parece un archivo roto
digo roto por que no tiene icono ni nada,lo abro con notepad++ y dentro como es logico solo encuentro un string muy largo que
coresponde al encryptado de Test.exe,pues lo que quisiera saber es como desencryptarlo y ejecutarlo en memorya sin tener que escribir
otra vez los byte en el pc osea hacer todo el proceso en memorya.
E leido sobre como utilizar MemoryStream,pero devido a que recien empiezo a entender y comprender este lenguaje aun no e podido
hacerlo funcionar corectamente.
Un saludo compañeros
PD: No es mas sabio el que mas sabe,si no el que menos pregunta <<<< By PokiPoki
Recien empiezo a usar este leguaje y aun me cuesta entender el uso de algunas funciones,ya que mi ingles es muy basico y me ayudo del
vendito San Google
,bueno este es el codigo que estoy utilizando como Loader.Código (vbnet) [Seleccionar]
Imports System.IO
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.Reflection
Imports System.Threading
Imports System.Windows.Forms
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim TH As New Thread(AddressOf ThreadWork)
TH.Start()
End Sub
Private Sub ThreadWork()
'Dim LoadedBytes As Byte() = My.Resources.Test
Dim LoadedBytes As Byte() = IO.File.ReadAllBytes(Application.StartupPath & "\Test.exe")
Dim ExecutingAssemblyPath As String = String.Empty
ExecutingAssemblyPath = Application.StartupPath
Dim MyAssembly As System.Reflection.Assembly = System.Reflection.Assembly.Load(LoadedBytes)MyAssembly.EntryPoint.Invoke(Nothing, Nothing)
End Suby este seria Test.exe,solo pongo la parte del sub main ya que el Form1 y los demas modulos llevan mucho code
Código (vbnet) [Seleccionar]
Imports System.Windows.Forms
Module Module1
Sub Main()
Application.Run(New Form1)
End Sub
End ModuleTanto si tengo Test.exe en el mismo directorio,como si lo agrego como recurso funciona bien,mi problema es cuando lo intento desencyptar,
bueno el caso es que yo encrypto Test.exe,con Base64 por ejemplo y lo guardo con otro nombre,a primera vista parece un archivo roto
digo roto por que no tiene icono ni nada,lo abro con notepad++ y dentro como es logico solo encuentro un string muy largo que
coresponde al encryptado de Test.exe,pues lo que quisiera saber es como desencryptarlo y ejecutarlo en memorya sin tener que escribir
otra vez los byte en el pc osea hacer todo el proceso en memorya.
E leido sobre como utilizar MemoryStream,pero devido a que recien empiezo a entender y comprender este lenguaje aun no e podido
hacerlo funcionar corectamente.
Un saludo compañeros
PD: No es mas sabio el que mas sabe,si no el que menos pregunta <<<< By PokiPoki
