Mensajes

Hola kub0x,no se si no lo hago bien,pero no me funciona,asi e dejado el code
la funcion que tu me as dejado ya la estaba utilizando 'Convert.FromBase64String' esto hace la funcion si no me equivoco

Código (vbnet) [Seleccionar] Expandir

Private Sub ThreadWork()

       'Dim LoadedBytes As Byte() = My.Resources.Encrypt
       Dim LoadedBytes As String = Application.StartupPath & "\Encrypt.exe"
       Dim MyApp As Byte() = Convert.FromBase64String(Base64_To_String(LoadedBytes))
       Dim ExecutingAssemblyPath As String = String.Empty
       ExecutingAssemblyPath = Application.StartupPath
       Dim MyAssembly As System.Reflection.Assembly = System.Reflection.Assembly.Load(MyApp)
       MyAssembly.EntryPoint.Invoke(Nothing, Nothing)

   End Sub
   
   Private Function Base64_To_String(ByVal str As String) As String
       Return System.Text.Encoding.Default.GetString(Convert.FromBase64String(str))
   End Function
 

y con esto encrypto Test.exe para pasarlo a Encrypt.exe,esto si lo e sacado de un crypter...pero mi intencion no es hacer un crypter
si no,poder desencryptar Encrypt.exe y ejecutar esos byte en el Assembly.Load,ya que esa funcion crea un proceso en memorya si no
me equivoco

Código (vbnet) [Seleccionar] Expandir

Imports System
Imports System.Text
Imports System.Windows.Forms

Public Class Form1

   Dim FileNameOriginal As String = Application.StartupPath & "\Test.exe"
   Dim FileNameEncrypt As String = Application.StartupPath & "\Encrypt.exe"
   
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim FileOk, NameOk As String
       FileOpen(1, Application.StartupPath & "\Test.exe", OpenMode.Binary, OpenAccess.Read)
       FileOk = Space(LOF(1))
       FileGet(1, FileOk)
       FileClose(1)

       FileOpen(1, NameOk & "Encrypt.exe", OpenMode.Binary, OpenAccess.ReadWrite)
       FilePut(1, String_To_Base64(FileOk))
       FileClose(1)
End Sub

Private Function String_To_Base64(ByVal str As String) As String
       Return Convert.ToBase64String(System.Text.Encoding.Default.GetBytes(str))
   End Function  
End Class


no se que lechugas hago mal,no lo se,igual tendria que añadir algo mas?
si como lo e planteado no esta bien agradeceria que me organizaces un poco el code

Un saludo para el Foro

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.

Código (vbnet) [Seleccionar] Expandir

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 Sub

y 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] Expandir

Imports System.Windows.Forms
Module Module1
Sub Main()
Application.Run(New Form1)
End Sub
End Module

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

Gracias por la ayuda Eleкtro

soy novato en esto,el error era mio,error tonto y muy simple pues seguia usando comillas dobles

Código [Seleccionar] Expandir

objcdo.subject = "TextRandom(n)"
en el campo del asunto

PD:Por mi parte el tema esta solucionado y Cerrado,un saludo compañeros

Antes de nada,saludar a todos los componentes del foro pues me acabo de registrar

Necesito una pequeña ayuda para hacer funcionar mi archivo EnvioMail.vbs

Código (vb) [Seleccionar] Expandir

set objcdo=createobject("cdo.message")
objcdo.subject="bla bla bla"
objcdo.from="micorreo@hotmail.com"
objcdo.to="tucorreo@hotmail.com"
objcdo.textbody="Este es el texto del mail"
objcdo.addattachment("c:\miarchivo.zip")
........................
..............................
pues lo que quiero es poder usar la funcion randomize y reemplace,para que cada vez que mande un correo me cambie el texto escrito en el campo de objcdo.subject="bla bla bla" y me genere uno aletorio cada vez

tengo esta funcion ramdomize,aunque el resultado lo muestra en un Msgbox  

Código (vb) [Seleccionar] Expandir

WScript.Echo TextRandom(12)

Function TextRandom(Count)
   Randomize
   For i = 1 To Count
       If (Int((1 - 0 + 1) * Rnd + 0)) Then
           TextRandom = TextRandom & Chr(Int((90 - 65 + 1) * Rnd + 65))
       Else
           TextRandom = TextRandom & Chr(Int((57 - 48 + 1) * Rnd + 48))
       End If
   Next
End Function

pero no se como agregarla con la funcion reemplace dentro de mi archivo EnvioMail.vbs, me seria de gran utilidad poderlo hacer funcionar.

PD:Soy novato en esto,pues no se si lo que propongo se puede o no hacer