Автор Тема: Perl и "Can't access() script" грешка  (Прочетена 2818 пъти)

Arvigeus

  • Напреднали
  • *****
  • Публикации: 123
  • Distribution: Arch Linux
  • Window Manager: Whatever
    • Профил
Perl и "Can't access() script" грешка
« -: 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 (за всеки случай)
 [_]3
Активен

ntrance

  • Напреднали
  • *****
  • Публикации: 696
    • Профил
Re: Perl и "Can't access() script" грешка
« Отговор #1 -: Mar 14, 2010, 02:40 »
Я си paste ipbtables тук .  И какво ти е дистрото .
Активен

Arvigeus

  • Напреднали
  • *****
  • Публикации: 123
  • Distribution: Arch Linux
  • Window Manager: Whatever
    • Профил
Re: Perl и "Can't access() script" грешка
« Отговор #2 -: 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     
Активен

ntrance

  • Напреднали
  • *****
  • Публикации: 696
    • Профил
Re: Perl и "Can't access() script" грешка
« Отговор #3 -: Mar 14, 2010, 14:12 »
iptables -A INPUT -p tcp -m tcp --destination-port 9999 -j ACCEPT

Не съм прегледал скрипта  , но причината може да е защото не ти е отворен порта  .
Активен

Arvigeus

  • Напреднали
  • *****
  • Публикации: 123
  • Distribution: Arch Linux
  • Window Manager: Whatever
    • Профил
Re: Perl и "Can't access() script" грешка
« Отговор #4 -: Mar 14, 2010, 14:59 »
Пак същата работа. НЗ, може и да е бъг в програмата
Активен