Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
pHandle := OpenProcess(PROCESS_ALL_ACCESS, false, 2928); if pHandle <> 0 then begin Addr := dword(sysinfo.lpMinimumApplicationAddress); while (Addr < sysinfo.lpMaximumApplicationAddress) do begin if VirtualQueryEx(Handle, Ptr(Addr), Mbi, SizeOf(Mbi)) = 0 then begin err := GetLastError; inc(Addr, sysinfo.dwPageSize); continue; end; SetLength(buff, mbi.RegionSize); ReadProcessMemory(pHandle, Mbi.BaseAddress, @Buff, Mbi.RegionSize, BytesRead); if Addr + Mbi.RegionSize < Addr then break; Addr := Addr + Mbi.RegionSize; end; CloseHandle(Handle) end;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|FMX and jaudiotracker playing memory stream||29||98|
|Delphi: sending SMS on android platform||1||68|
|Delphi TListView and TEdit (Select item and input into TEdit)||10||49|
|SQL Server Express automatically execute SQL or SP||8||35|