IO-Socket-SSL - IO::Socket::INET configuration failederror:00000000:lib(0):func(0):reason(0)

Posted on Thu Jun 12 01:45:57 2008 by kkline
IO::Socket::INET configuration failederror:00000000:lib(0):func(0):reason(0)
Currently running latest Bundle:CPAN W/ cpan[15] install IO::Socket IO::Socket is up to date (1.30). + cpan[16] install IO::Socket::SSL IO::Socket::SSL is up to date (1.13). + cpan[17] install IO::Socket::INET IO::Socket::INET is up to date (1.31). Using Scanlite.pm in conjunction with SSL.pm absolutely no problems until now with release of Nessu +s 3.2.1 On every distro I have tried / tested (Redhat EL4/Fedora/Mandriva 2008) I now get the following err +or with test script [root@fs1 tmp]# ./test.pl CA file certs/my-ca.pem not found, using CA path instead. DEBUG: /usr/lib/perl5/site_perl/5.8.8/IO/Socket/SSL.pm:1010: IO::Socket::SSL::SSL_Context HASH(0x72 +7ac0) DEBUG: /usr/lib/perl5/site_perl/5.8.8/IO/Socket/SSL.pm:1128: new ctx 11779744 IO::Socket::INET configuration failederror:00000000:lib(0):func(0):reason(0) at ./test.pl line 19 DEBUG: /usr/lib/perl5/site_perl/5.8.8/IO/Socket/SSL.pm:1163: free ctx 11779744 open=11779744 DEBUG: /usr/lib/perl5/site_perl/5.8.8/IO/Socket/SSL.pm:1166: OK free ctx 11779744 Nessus login failed %d: %s 1Connect to 192.168.0.250:1241 failed. (IO::Socket::INET configuration failederror:00000000:lib(0): +func(0):reason(0)) at ./test.pl line 44. #!/usr/bin/perl use Net::Nessus::ScanLite; my $nessushost = "localhost"; my $nessusport = "1241"; my $nessus = Net::Nessus::ScanLite->new( host => $nessushost, port => $nessusport, ssl => 1 # comment or set to 1 out if using ssl ); $nessus->preferences( { host_expansion => 'none', safe_checks => 'yes', checks_read_timeout => 1 + }); $nessus->plugin_set("10835;10861;11808;11921;11790"); my $addr = "10.0.0.1"; if( $nessus->login("inprotect", "inprotect" ) ) { $nessus->attack($addr); printf("Total info's = %d\n",$nessus->total_info); foreach( $nessus->info_list ) { my $info = $_; printf("Info:\nID: %s\nPort: %s\nDessc: %s\n", $info->ScanID, $info->Port, $info->Description); } printf("Total hole's = %d\n",$nessus->total_holes); foreach( $nessus->hole_list ) { my $info = $_; printf("Info:\nID: %s\nPort: %s\nDessc: %s\n", $info->ScanID, $info->Port, $info->Description); } } else { die("Nessus login failed %d: %s\n",$nessus->code,$nessus->error); } Should be SSL_version = TLSv1 would something have changed that is affecting SSL implementation or a bug exists in Scanlite.pm or + SSL.pm code that was a little more forgiving in previous versions of Nessus?
Direct Responses: 8064 | Write a response