【Delphi】Linux版的IsBadReadPtr
linux上没有提供用户态的内存指针读写安全检测函数,这里使用异常包来简单实现IsBadReadPtr:
{$IFDEF UNIX} function IsBadReadPtr(lp: Pointer; ucb: UINT): BOOL; stdcall; begin try while ucb>0 do begin if PChar(lp)[ucb-1] <> #0 then dec(ucb) else dec(ucb); end; Result := False; except Result := True; end; end; {$ENDIF}
IsBadWritePtr就不实现了,否则若是实现不完善会损坏原来的代码,其实普通的堆栈都是可读写的,而且我们大部分时候只是为了检测内存的大小是否足够,所以IsBadReadPtr在大部分场合可以代替IsBadWritePtr的
Linux内核函数access_ok在源码上是检查指针地址是否处于用户空间范围内,是否能够判断该指针是被分配的指针?