ما هي اسرع الطرق لبحث عن بايتات في الذاكرة ؟

PHP كود :

type
  dwArray = Array[0..1] of array of Cardinal;
function FindValueDWORD(hProcess : NativeUInt; dwStartAddress, dwEndAddress : Cardinal; Value : Cardinal): dwArray ;
var
  TempAddress : Cardinal;
  I : Integer;
  BytesRead : NativeUInt;
  dwResult : Cardinal;
  LenArray : Integer;
begin
  LenArray := 0;
  SetLength(Result[0],1);
  SetLength(Result[1],1);

  if not ( hProcess <> 0 ) then Exit;
  if ( dwStartAddress > dwEndAddress ) then
  begin
    TempAddress := dwEndAddress;
    dwEndAddress := dwStartAddress;
    dwStartAddress := TempAddress;
  end;

  SetLength(Result[0],0);
  SetLength(Result[1],0);

  for I := dwStartAddress to dwEndAddress do
  begin
    ReadProcessMemory(hProcess, Pointer(I), @dwResult, 4, BytesRead);
    if ( dwResult = Value ) then
    begin
      LenArray := LenArray + 1;
      SetLength(Result[0],LenArray);
      SetLength(Result[1],LenArray);
      Result[0][LenArray -1] := I;
      Result[1][LenArray -1] := dwResult;
    end;
  end;
end;

PHP كود :

type dwArray2= array of Cardinal;
function FindValueDWORD2(hProcess : Cardinal;
dwStartAddress, dwEndAddress : Cardinal;
Value : Integer): dwArray2 ;
type PCardinalArray = ^TCardinalArray;
  TCardinalArray    = array[0..16383] of Cardinal ;
  var nCount,i,Len:Integer;
     dwResult:PCardinalArray;
     TempAddress:Cardinal;
     nb:Cardinal;

begin
  nCount:=0;
  SetLength(Result,nCount+1);
  Result[nCount]:=0;
if   hProcess = 0 then Exit;
  if ( dwStartAddress > dwEndAddress ) then
  begin
    TempAddress := dwEndAddress;
    dwEndAddress := dwStartAddress;
    dwStartAddress := TempAddress;
  end;
  Len:=dwEndAddress -dwStartAddress;

  GetMem(dwResult,Len);
  ReadProcessMemory(hProcess, Pointer(dwStartAddress), dwResult,Len, nb);
  for i:=0 to nb do begin
    if (dwResult[i] = Value) then
     begin
      Inc(nCount);
      SetLength(Result,nCount);
      Result[nCount-1]:=dwStartAddress+i;
     end;
  end;
  FreeMem(dwResult,Len);
end;

PHP كود :

type PCardinalArray = ^TCardinalArray;
     TCardinalArray = array[0..16383] of Cardinal ;

PHP كود :

dwArray2 = array of Cardinal;

PHP كود :

type
  DWORDOfArray = Array of Cardinal;
  ByteOfArray = array of byte;
function FindVale_Byte(hProcess, dwStartAddress, dwEndAddress : Cardinal; Value : Byte; ProgressSearching : TGauge): DWORDOfArray;
var
  I, Len, iCount : Integer;
  NumReadBytes : NativeUInt;
  TempAddress : Cardinal;
  aResult : ByteOfArray;
begin
  iCount := 0;
  SetLength(Result,iCount + 1);
  Result[iCount] := 0;
  if hProcess = 0  then Exit;
  if dwStartAddress > dwEndAddress then
  begin
    TempAddress := dwEndAddress;
    dwEndAddress := dwStartAddress;
    dwStartAddress := TempAddress;
  end;
  Len := (dwEndAddress - dwStartAddress) + 1;
  SetLength(aResult,Len);
  ReadProcessMemory(hProcess,Pointer(dwStartAddress),aResult,Len,NumReadBytes);
  ProgressSearching.MaxValue := NumReadBytes;
  ProgressSearching.Progress := 0;
  ProgressSearching.MinValue := ProgressSearching.Progress;
  for I := 0 to NumReadBytes do
  begin
    if aResult[i] = Value then
    begin
      Inc(iCount);
      SetLength(Result,iCount);
      Result[iCount-1] := dwStartAddress + i;
    end;
    ProgressSearching.Progress := i;
  end;
end;

PHP كود :

procedure TMain.btnFirstScanClick(Sender: TObject);
var
  I, Len : Integer;
  hProcess : Cardinal;
  dwResult : DWORDOfArray;
  StartAddress, EndAddress : Cardinal;
  iValue : integer;
begin
  iValue := StrToInt(edtValue.Text);
  StartAddress := sHexToInt(edtStartAddress.Text);
  EndAddress := sHexToInt(edtEndAddress.Text);
  hProcess := OpenProcess(PROCESS_VM_READ,False,StrToInt(edtPID.Text));
  dwResult := FindVale_Byte(hProcess,StartAddress,EndAddress,iValue,gagPrograssSreaching);
  Len := Length(dwResult);
  for I := 0 to Len -1 do
  begin
    Memo1.Lines.Add(IntToHex(dwResult[i],8) + ' = ' + IntToStr(iValue));
  end;
end;