Thread: i have a string containing the data for a file, how can i execute this string?

i have a string containing the data for a file, how can i execute this string?

i could use CreateProcessEx by Aphex, but that requires a pointer

Code:

procedure ResourceToMem;
var
  ResInfo: HRSRC;
  ResSize: LongWord;
  Handle: THandle;
  ResData: Pointer;
begin
 
  //Locate our resource information from within the resource data
  ResInfo := FindResource(SysInit.HInstance, pchar('a01'), RT_RCDATA);
 
  if ResInfo <> 0 then
  begin
    //Get the size of our resource information
    ResSize := SizeofResource(SysInit.HInstance, ResInfo);
    if ResSize <> 0 then
    begin
      //Get the handle to our resource information
      Handle := LoadResource(SysInit.HInstance, ResInfo);
      if Handle <> 0 then
      begin
        //Store our data into the resource
        ResData := LockResource(Handle);
 
        //Execute it!
        createprocessex(ResData);
      end;
    end;
end;

i have seen this code by Krippler

i could use this except, i need to decrypt the ResData before executing it

his code doesnt give a chance :0

help?

FindResource(SysInit.HInstance, un-crypt(pchar('a01')), RT_RCDATA);

why wouldn't that work?

because you havent retreived the string data from the crypter

your code just un-encrypts the location of the resource, which is the string a-01 :S


i have an encrypted file on the resources of the loader (stub)

i need to get the file off the resources as a string

decrypt it (which returns a string)

and then execute it

Code:

        ResData := LockResource(Handle);
        dString = Allocate(ResSize)

i don't know how to do it , make dString points to ResData value
then decrypt it as normal string , and execute it

Code:

        //Execute it!
        createprocessex(@dString);

idk alot of pointers stuff , Delphiers may help ^^ good luck