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:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
NeXTSTEP
RISC OS/Acorn
UTF-8
Wrap
Text File
|
2005-02-22
|
255 b
|
16 lines
program Scan_NetBus;
var s,ch:string;
begin
s:='';ch:='';
while(ch<>chr(13))do
begin
ch:=recvch;
if(ch<>chr(13))then s:=s+ch;
end;
if(pos('x',s)=length(s))then
begin
delete(s,length(s),1);
s:=s+'. Password protected.'
end;
writeln(s);
end.