char buffer[2] = "ab";

buffer[0] += 1;
buffer[1] += 1;

def progresivo(s, n, o):
    encoded = [ord(s[0]) + n,]
    decoded = [ord(s[0]) - n,]
     
    for i in s[1::]:
        if o == 1:        
            encoded.append(ord(i) + encoded[-1])
        elif o == 0:
            decoded.append(ord(i) - decoded[-1])     

    print "".join([unichr(x) for x in encoded]) if (o ==1)
    print "".join([unichr(x) for x in decoded]) if (o ==0)

# ping.pl por Juan fary.
# Realiza ping desde perl facilmente.
# modo de uso: 
# perl ping.pl www.google.es
# si queremos que haga ping infinito -> perl ping.pl www.google.es -t

use v5.16;
use Net::Ping;
use Socket;

my $host = $ARGV[0];
chomp($host);

my $_IP = gethostbyname($host);
my $IP = inet_ntoa($_IP);  

my $p = Net::Ping->new("icmp",,32); 

say "\nHaciendo ping a $host [$IP] con 32 bytes de datos:\n";

my $correctos = 0;
my $incorrectos = 0;

my $i = 0;

while ($i < 4)
{	
	if ($p->ping($host,10))
	{
		say "Respuesta corrrecta desde $IP: bytes = 32.";
		$correctos++;	
	}else{
		say "No se a obtenido respuesta desde $IP.";
		$incorrectos++;
	}
	
	sleep(1);
	$i++ if $ARGV[1] ne "-t";
}

say "\nEstadisticas de ping para $IP";
say "    Paquetes: enviados = 4, recibidos = $correctos, perdidos = $incorrectos.";

exit;