مكتبة الاْكواد

[AX302]

خاصية لعكس سلسلة 

PHP كود :

Function GetReverseString(Str: string): string;
var
  i: integer;
begin
  for i := Length(Str) downto 1 do
  begin
    Result := Result + Str[i];
  end;
end; 


طريقة الاستعمال :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetReverseString('D4A'));
end; 


---

خاصية للتحقق من ان مكتبة الربط الديناميكي (DLL) محملة في الداكرة ام لا 

PHP كود :

Function CheckDLLIsLoaded(DLLName: PWideChar): Boolean;
var
  LibraryHandle: Cardinal;
begin
  LibraryHandle := LoadLibrary(DLLName);
  if LibraryHandle <> 0 then
  begin
    Result := True;
  end
  else
  begin
    Result := False;
  end;
end; 


طريقة الاستعمال : 

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CheckDLLIsLoaded('kernel32.dll') then
  begin
    ShowMessage('Loaded');
  end
  else
  begin
    ShowMessage('Not Loaded');
  end;
end; 


---

خاصية للحقق من ملف PE ان كان x64 ام لا 

PHP كود :

Function CheckPEIs64(StreamName: TStream): Boolean;
var
  PEHeader: TImageDosHeader;
  PEImageNtHeaders: TImageNtHeaders;
begin
  StreamName.ReadBuffer(PEHeader, SizeOf(PEHeader));
  StreamName.Position := PEHeader._lfanew;
  StreamName.ReadBuffer(PEImageNtHeaders, SizeOf(PEImageNtHeaders));
  if PEImageNtHeaders.FileHeader.Machine <> $014C then
  begin
    Result := True;
  end
  else
  begin
    Result := False;
  end;
end; 


طريقة الاستعمال :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create;
  try
    MS.LoadFromFile('test.exe');
    if CheckPEIs64(MS) then
    begin
      ShowMessage('PE x64');
    end
    else
    begin
      ShowMessage('PE x86');
    end;
  finally
    MS.Free;
  end;
end;