Титла: Perl и "Can't access() script" грешка
Публикувано от: Arvigeus в Mar 13, 2010, 23:16
Така, опитвам се да подкарам една програма на Perl, която иска да имам отворен порт 9999. our %servers = (
ih_server => { server => 'localhost',
port => 9999,
name => 'ih_server',
type => 'ih-server',
}, При опит за свързване получавам: Can't access() script
Could not create socket: Connection refused nc ми връща: nc localhost 9999
localhost [127.0.0.1] 9999 (?) : Connection refused Трябва да си отворя порта ли? И как да го направя? Ето линк към програмата: Interhack.tar.gz ($2) (за всеки случай) [_]3
Титла: Re: Perl и "Can't access() script" грешка
Публикувано от: ntrance в Mar 14, 2010, 02:40
Я си paste ipbtables тук . И какво ти е дистрото .
Титла: Re: Perl и "Can't access() script" грешка
Публикувано от: Arvigeus в Mar 14, 2010, 13:22
Ubuntu 9.10 arvigeus@arvigeus-netbook:~$ sudo iptables -L -v
Chain INPUT (policy DROP 0 packets, 0 bytes)
pkts bytes target prot opt in out source destination
0 0 ACCEPT tcp -- any any ns.rutil.net anywhere tcp flags:!FIN,SYN,RST,ACK/SYN
1191 293K ACCEPT udp -- any any ns.rutil.net anywhere
0 0 ACCEPT tcp -- any any ns2.rutil.net anywhere tcp flags:!FIN,SYN,RST,ACK/SYN
14 2568 ACCEPT udp -- any any ns2.rutil.net anywhere
35 1015 ACCEPT all -- lo any anywhere anywhere
30 2526 ACCEPT icmp -- any any anywhere anywhere limit: avg 10/sec burst 5
154 17663 DROP all -- ra0 any anywhere 255.255.255.255
157 19151 DROP all -- any any anywhere 10.10.10.255
0 0 DROP all -- any any BASE-ADDRESS.MCAST.NET/8 anywhere
0 0 DROP all -- any any anywhere BASE-ADDRESS.MCAST.NET/8
0 0 DROP all -- any any 255.255.255.255 anywhere
0 0 DROP all -- any any anywhere 0.0.0.0
0 0 DROP all -- any any anywhere anywhere state INVALID
0 0 LSI all -f any any anywhere anywhere limit: avg 10/min burst 5
7712 6891K INBOUND all -- ra0 any anywhere anywhere
0 0 LOG_FILTER all -- any any anywhere anywhere
0 0 LOG all -- any any anywhere anywhere LOG level info prefix `Unknown Input'
Chain FORWARD (policy DROP 0 packets, 0 bytes)
pkts bytes target prot opt in out source destination
0 0 ACCEPT icmp -- any any anywhere anywhere limit: avg 10/sec burst 5
0 0 LOG_FILTER all -- any any anywhere anywhere
0 0 LOG all -- any any anywhere anywhere LOG level info prefix `Unknown Forward'
Chain OUTPUT (policy DROP 0 packets, 0 bytes)
pkts bytes target prot opt in out source destination
0 0 ACCEPT tcp -- any any 10.10.10.239 ns.rutil.net tcp dpt:domain
1206 76467 ACCEPT udp -- any any 10.10.10.239 ns.rutil.net udp dpt:domain
0 0 ACCEPT tcp -- any any 10.10.10.239 ns2.rutil.net tcp dpt:domain
19 1162 ACCEPT udp -- any any 10.10.10.239 ns2.rutil.net udp dpt:domain
35 1015 ACCEPT all -- any lo anywhere anywhere
0 0 DROP all -- any any BASE-ADDRESS.MCAST.NET/8 anywhere
73 6001 DROP all -- any any anywhere BASE-ADDRESS.MCAST.NET/8
0 0 DROP all -- any any 255.255.255.255 anywhere
0 0 DROP all -- any any anywhere 0.0.0.0
0 0 DROP all -- any any anywhere anywhere state INVALID
7564 1228K OUTBOUND all -- any ra0 anywhere anywhere
0 0 LOG_FILTER all -- any any anywhere anywhere
0 0 LOG all -- any any anywhere anywhere LOG level info prefix `Unknown Output'
Chain INBOUND (1 references)
pkts bytes target prot opt in out source destination
7409 6843K ACCEPT tcp -- any any anywhere anywhere state RELATED,ESTABLISHED
303 48069 ACCEPT udp -- any any anywhere anywhere state RELATED,ESTABLISHED
0 0 ACCEPT all -- any any localhost anywhere
0 0 ACCEPT tcp -- any any anywhere anywhere tcp dpt:telnet
0 0 ACCEPT udp -- any any anywhere anywhere udp dpt:23
0 0 LSI all -- any any anywhere anywhere
Chain LOG_FILTER (5 references)
pkts bytes target prot opt in out source destination
Chain LSI (2 references)
pkts bytes target prot opt in out source destination
0 0 LOG_FILTER all -- any any anywhere anywhere
0 0 LOG tcp -- any any anywhere anywhere tcp flags:FIN,SYN,RST,ACK/SYN limit: avg 1/sec burst 5 LOG level info prefix `Inbound '
0 0 DROP tcp -- any any anywhere anywhere tcp flags:FIN,SYN,RST,ACK/SYN
0 0 LOG tcp -- any any anywhere anywhere tcp flags:FIN,SYN,RST,ACK/RST limit: avg 1/sec burst 5 LOG level info prefix `Inbound '
0 0 DROP tcp -- any any anywhere anywhere tcp flags:FIN,SYN,RST,ACK/RST
0 0 LOG icmp -- any any anywhere anywhere icmp echo-request limit: avg 1/sec burst 5 LOG level info prefix `Inbound '
0 0 DROP icmp -- any any anywhere anywhere icmp echo-request
0 0 LOG all -- any any anywhere anywhere limit: avg 5/sec burst 5 LOG level info prefix `Inbound '
0 0 DROP all -- any any anywhere anywhere
Chain LSO (0 references)
pkts bytes target prot opt in out source destination
0 0 LOG_FILTER all -- any any anywhere anywhere
0 0 LOG all -- any any anywhere anywhere limit: avg 5/sec burst 5 LOG level info prefix `Outbound '
0 0 REJECT all -- any any anywhere anywhere reject-with icmp-port-unreachable
Chain OUTBOUND (1 references)
pkts bytes target prot opt in out source destination
2 172 ACCEPT icmp -- any any anywhere anywhere
6537 1124K ACCEPT tcp -- any any anywhere anywhere state RELATED,ESTABLISHED
34 9235 ACCEPT udp -- any any anywhere anywhere state RELATED,ESTABLISHED
991 93870 ACCEPT all -- any any anywhere anywhere
Титла: Re: Perl и "Can't access() script" грешка
Публикувано от: ntrance в Mar 14, 2010, 14:12
iptables -A INPUT -p tcp -m tcp --destination-port 9999 -j ACCEPT
Не съм прегледал скрипта , но причината може да е защото не ти е отворен порта .
Титла: Re: Perl и "Can't access() script" грешка
Публикувано от: Arvigeus в Mar 14, 2010, 14:59
Пак същата работа. НЗ, може и да е бъг в програмата
|