تشغيل ملف في الذاكرة ،،، وحدة uExecFromMem

PHP كود :

function LoadFile(AFile: PChar;AMemo:TMemo): Boolean;
var
  hFile: HWND;
  bw: DWORD;
  FileSize: Integer;
  Buffer: Pointer;
  i: Integer;
  P: PByte;
  F: Byte;
  s: string;
begin
  Result := True;
  hFile := CreateFile(AFile, GENERIC_READ, FILE_SHARE_READ, 0, OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL, 0);
  if hFile = INVALID_HANDLE_VALUE then
    begin
      Result := False;
      Exit;
    end;

  FileSize := GetFileSize(hFile, 0);
  GetMem(Buffer, FileSize);
  ZeroMemory(Buffer, FileSize); { Clean Buffer }

  Result := ReadFile(hFile, Buffer^, FileSize, bw, 0);
  s := '';
  P := PByte(Buffer);
  for i := 0 to FileSize do
    begin
      F := P^;
      if F <> 0 then
        s := s + Char(F)
      else
        s := s + '.';
      Inc(P);
    end;
  AMemo.Text := s;
  CloseHandle(hFile);
  FreeMem(Buffer, FileSize);
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  LoadFile('Test.exe',Memo1);
end;

PHP كود :

var s:string; 
begin
... 
LoadFile(PChar(s),Memo1);
end;

PHP كود :

var
  Form1: TForm1;
  bigstring:AnsiString;
implementation

{$R *.dfm}
function XorStr(Stri, Strk: String): String;
var
    Longkey: string;
    I: Integer;
    Next: char;
begin
    for I := 0 to (Length(Stri) div Length(Strk)) do
    Longkey := Longkey + Strk;
    for I := 1 to length(Stri) do
    begin
        Next := chr((ord(Stri[i]) xor ord(Longkey[i])));
        Result := Result + Next;
    end;
end;

function FileToString(const AFileName: string): AnsiString;
var
  f: TFileStream;
  l_onexite: Integer;
begin
  Result := '';
  f := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
  try
    l_onexite := f.Size;
    if l_onexite > 0 then
    begin
      SetLength(Result, l_onexite);
      F.ReadBuffer(Result[1], l_onexite);
    end;
  finally
    F.Free;
  end;
end;

function StringToFile(const FileName: string; const Text: AnsiString): boolean;
var f: integer;
begin
  result := false;
  f := FileCreate(FileName);
  if f>=0 then
  try
    if Text<>'' then
      FileWrite(f,Text[1],length(Text));
    result := true;
  finally
    FileClose(f);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
   edit1.Text := opendialog1.FileName ;
    bigstring :=FileToString(opendialog1.FileName);
end
end;

procedure TForm1.Button3Click(Sender: TObject);
var
str : AnsiString ;
begin
  // مجرد تجربة وهي خاظئة برمجيا عليك بحفظه في مكان ما واعد فك تشفيره
str:=XorStr(bigstring,'onexite') ;
   dlgSave1.DefaultExt:='exe';
  if not dlgSave1.Execute then Exit;
StringToFile(dlgSave1.FileName,str);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  dlgSave1.DefaultExt:='exe';
  if not dlgSave1.Execute then Exit;
StringToFile(dlgSave1.FileName,bigstring);

end;

PHP كود :

function FileToString(const AFileName: string): AnsiString;
var
  f: TFileStream;
  l_onexite: Integer;
begin
  Result := '';
  f := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
  try
    l_onexite := f.Size;
    if l_onexite > 0 then
    begin
      SetLength(Result, l_onexite);
      F.ReadBuffer(Result[1], l_onexite);
    end;
  finally
    F.Free;
  end;

PHP كود :

XorStr(LoadFile('Test.exe',Memo1),'onexite')

PHP كود :

function FileToString(const AFileName: string): AnsiString;
var
  f: TFileStream;
  l_onexite: Integer;
begin
  Result := '';
  f := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
  try
    l_onexite := f.Size;
    if l_onexite > 0 then
    begin
      SetLength(Result, l_onexite);
      F.ReadBuffer(Result[1], l_onexite);
    end;
  finally
    F.Free;
  end;
end;

PHP كود :

function FileToStr(sPath:string; var sFile:string):Boolean;
var
hFile:    THandle;
dSize:    DWORD;
dRead:    DWORD;
begin
  Result := FALSE;
  hFile := CreateFile(PChar(sPath), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  if hFile <> 0 then
  begin
    dSize := GetFileSize(hFile, nil);
    if dSize <> 0 then
    begin
      SetFilePointer(hFile, 0, nil, FILE_BEGIN);
      SetLength(sFile, dSize);
      if ReadFile(hFile, sFile[1], dSize, dRead, nil) then
        Result := TRUE;
      CloseHandle(hFile);
    end;
  end;
end;