home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2007 April / PCpro_2007_04.ISO / files / dsl / NVinst.exe / Scripts / Scaner / tcp_netbus.nvs < prev    next >
Encoding:
Text File  |  2007-02-10  |  264 b   |  17 lines
  1. program Scan_NetBus;
  2. var s,ch:string;
  3. begin
  4. s:='';ch:='';
  5. while(ch<>chr(13))do
  6.  begin
  7.  ch:=recvch;
  8.  if(ch<>chr(13))then s:=s+ch;
  9.  end;
  10. if(pos('x',s)=length(s))then
  11.  begin
  12.  delete(s,length(s),1);
  13.  s:=s+'. Password protected.'
  14.  end;
  15. writeln(s);
  16. end.
  17.