#!/bin/bash

# Limpia las tablas de iptables
iptables -F
iptables -X
iptables -t nat -F
iptables -t nat -X
iptables -t mangle -F
iptables -t mangle -X
iptables -t filter -F
iptables -t filter -X

# Deniega todo el tráfico por defecto
iptables -P INPUT DROP
iptables -P FORWARD DROP
iptables -P OUTPUT DROP

# Permite el tráfico loopback
iptables -A INPUT -i lo -j ACCEPT
iptables -A OUTPUT -o lo -j ACCEPT

# SSH PARA MI RASP
iptables -A INPUT -p tcp --sport 513:65535 --dport 4321 -m state --state NEW,ESTABLISHED -j ACCEPT
iptables -A OUTPUT -p tcp --sport 4321 --dport 513:65535 -m state --state ESTABLISHED -j ACCEPT


# HTTP Y DNS

iptables -A FORWARD -i eth0 -o wlan0 -m state --state RELATED,ESTABLISHED -j ACCEPT
iptables -A FORWARD -i wlan0 -o eth0 -j ACCEPT
iptables -A FORWARD -i wlan0 -o eth0 -p tcp -m multiport --dport 80,443 -j ACCEPT
iptables -A FORWARD -i wlan0 -p tcp --dport 53 -j ACCEPT 
iptables -A FORWARD -i wlan0 -p udp --dport 53 -j ACCEPT
iptables -A FORWARD -i eth0 -p udp --dport 53 -j ACCEPT
iptables -t nat -A POSTROUTING -o eth0 -j MASQUERADE

#!/usr/bin/perl

%champroled = ('tristana' => 'adc' ,'sona'=> 'support','diana'=>'mid','malph'=> 'top','sejuani'=> 'jungle');
@champs= keys %champroled;
@rol = values %champroled;
$init = 0;


print "Elige un campeon de la lista\n";

for $i ($init .. $#champs){
print "$champs[$i]  \n";


}

$campeon = <>;

print "Que rol cumple este campeon?\n";

$roled = <>;


if ($roled == $champroled{$campeon}){
print "Muy bien :)\n";

}
else {
print "Has fracasado\n";
}