CrashCool.com

#!/usr/bin/perl

##############################
# CRASHCOOL                                      #
# 21/12/03                                           #
#ejemplo de uso de IO::SOCKET            #
#Script CLIENTE                                     #
##############################
use IO::Socket;

print "Introduce la ip de destino=>";
chop($ip=<STDIN>);
print "Introduce el puerto de destino=>";
chop($puerto=<STDIN>);
#creamos el Socket tcp...
$socket = new IO::Socket::INET (PeerAddr => $ip , PeerPort => $puerto, Proto => 'tcp', );
die "No se puede crear el Socket" unless $socket;

print "\nCONECTADO A $ip : $puerto\n"; #mostramos un mensaje al conectar
print "\t=> Para terminar escriba :quit <=\n";
while (":quit\n" ne ($datos=<STDIN>) ) #Para salir escribimos :quit
{
print $socket $datos ;
}
close($socket); #cerramos el socket


	Ejemplo de uso de IO::Socket

	#!/usr/bin/perl ############################## # CRASHCOOL # # 21/12/03 # #ejemplo de uso de IO::SOCKET # #Script CLIENTE # ############################## use IO::Socket; print "Introduce la ip de destino=>"; chop($ip=<STDIN>); print "Introduce el puerto de destino=>"; chop($puerto=<STDIN>); #creamos el Socket tcp... $socket = new IO::Socket::INET (PeerAddr => $ip , PeerPort => $puerto, Proto => 'tcp', ); die "No se puede crear el Socket" unless $socket; print "\nCONECTADO A $ip : $puerto\n"; #mostramos un mensaje al conectar print "\t=> Para terminar escriba :quit <=\n"; while (":quit\n" ne ($datos=<STDIN>) ) #Para salir escribimos :quit { print $socket $datos ; } close($socket); #cerramos el socket

	Este simple script se conecta a una ip y un puerto especificado por el usuario y permite mandar datos hasta que nos cierren/ o cerremos la conexion con ":quit ", podeis probarlo poniendo el netcat a la escucha en vuestro propio pc -> nc -vvlp 7575 y conectando con el script al 7575
		Download