home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 April / CHIP_CD_2005-04.iso / software / netv / NVinst.exe / $INSTDIR / Scripts / Scaner / tcp_netbus.nvs < prev   
Encoding:
Text File  |  2005-02-22  |  255 b   |  16 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.