#!/usr/bin/byv
"Introduce una cifra: ":show
cifra-variable:enter
"Introduce otra cifra: ":show
cifra2-variable:enter
cifra3-variable:cifra-variable+cifra2-variable
cifra3-variable:show

#!/usr/bin/perl
use IO::Socket;
print "IP o HOST: ";
$iphost=<STDIN>; 
print "Puerto de inicio: ";
$puertoi = <STDIN>;
print "Puerto final: ";
$puertof = <STDIN>;
for($puerto = $puertoi;$puerto<$puertof;$puerto++)
   {
$sock = IO::Socket::INET->new(PeerAddr, "$iphost", PeerPort, "$puerto",   Proto, 'tcp');
if ($sock) {      
    print "El puerto $puerto esta abierto\n";
     } else {   
     print "El puerto $puerto esta cerrado\n";
     }
   }

#!/usr/bin/perl
use IO::Socket;
print "IP o HOST: ";
$iphost=<STDIN>; 
for($puertos=21;$puertos<=270;$puertos++)
   {
$sock = IO::Socket::INET->new(PeerAddr, "$iphost", PeerPort, "$puertos",   Proto, 'tcp');
if ($sock) {      
    print "$puertos Abierto\n";
     } else {   
     print "$puertos Cerrado\n";
     }
   }

#!/usr/bin/perl
use Net::SMTP;
print "Buenas, cuantos mails bombs deseas hacer:";
$n = <STDIN>;
print "Introduzca el mailhost al que desea solicitar la conexion:";
$mailhost = <STDIN>;
print "Introduzca el email que desea utilizar:";
$emailfrom = <STDIN>;
print "Introduzca el email que desea bombear:";
$emailto = <STDIN>;
print "Introduzca el asunto del correo:";
$asunto = <STDIN>;
print "Introduzca el mensaje que desea enviar (Puede usar secuencias de escape (\\n, \\r...)):";
$sms = <STDIN>;
for ($a=1;$a<=$n;$a++) {
$smtp = Net::SMTP->new("$mailhost",
Hello => "$mailhost",
Timeout =>25,
Debug   =>1,
);
die "No se ha podido conectar al servidor";
print $smtp->domain,"\n";
$smtp->mail("$emailfrom");
$smtp->to("$emailto");
$smtp->data();
$smtp->datasend("To: $emailto");
$smtp->datasend("From: $emailfrom");
$smtp->datasend("Subject:$asunto\n");
$smtp->datasend("$sms");
$smtp->dataend();
$smtp->quit();
}

#!/usr/bin/perl
use Net::SMTP;
print "Introduzca el mailhost al que desea solicitar la conexion:";
$mailhost = <STDIN>;
print "Introduzca el email que desea utilizar:";
$emailfrom = <STDIN>;
print "Introduzca el email que desea bombear:";
$emailto = <STDIN>;
print "Introduzca el asunto del correo:";
$asunto = <STDIN>;
print "Introduzca el mensaje que desea enviar (Puede usar secuencias de escape (\\n, \\a...)):";
$sms = <STDIN>;
$smtp = Net::SMTP->new("$mailhost",
Hello => "$mailhost",
Timeout =>25,
Debug   =>1,
);
die "No se ha podido conectar al servidor";
print $smtp->domain,"\n";
$smtp->mail("$emailfrom");
$smtp->to("$emailto");
$smtp->data();
$smtp->datasend("To: $emailto");
$smtp->datasend("From: $emailfrom");
$smtp->datasend("Subject:$asunto\n");
$smtp->datasend("$sms");
$smtp->dataend();
$smtp->quit();
 

#!/usr/bin/perl
use IO::Socket;
$sock = new IO::Socket::INET (LocalHost => 'localhost',
LocalPort => 1100,
Proto     => 'tcp',
Listen    =>  6,
Reuse     => 1
);
die "No se ha podido crear el socket: $!\n" unless $sock;
$conexion= $sock -> accept();
$conexion->send($ARGV[0]);
close ($conexion);
 

use IO::Socket;

#!/usr/bin/perl
use IO::Socket;
$conexion= IO::Socket::INET->new(PeerAddr, $ARGV[0], PeerPort, $ARGV[1],  Proto, 'tcp');

#!/usr/bin/perl
use IO::Socket;
print "Introduce la ip:";
$ip = <STDIN>;
print "\nIntroduce el puerto:";
$puerto = <STDIN>;
$conexion= IO::Socket::INET->new(PeerAddr, $ip, PeerPort, $puerto,  Proto, 'tcp');