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.
procedure tform2.getstrings(f: string; var s: TStringlist); var fs: tfilestream; temp: string; ch: char; i: integer; begin fs:=tfilestream.Create(f, fmsharedenynone); for i:=0 to fs.Size-1 do begin fs.Read(ch, sizeof(ch)); if (ch in ['A'..'Z','a'..'z','0'..'9',':','/','.']) then temp:=temp+ch else begin if (length(temp) > 8) then s.Add(temp); temp:=''; end; end; fs.Free; end;