Skip to content

Commit bc2ad86

Browse files
committed
initial commit; working state.
0 parents  commit bc2ad86

File tree

3 files changed

+94
-0
lines changed

3 files changed

+94
-0
lines changed

deblank.sh

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
#!/bin/bash
2+
3+
echo -e '\033[9;0]\033[14;0]' > /dev/console
4+
echo -e '\033[9;0]\033[14;0]' > /dev/tty0
5+
echo -e '\033[9;0]\033[14;0]' > /dev/tty1
6+
echo -e '\033[9;0]\033[14;0]' > /dev/pts/0
7+
echo -e '\033[9;0]\033[14;0]' > /dev/pts/1
8+

stupid_ettercap.sh

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
#!/bin/bash
2+
3+
while true; do
4+
ettercap -i eth0 -Tzqu | ./wall_of_sheep.pl
5+
done

wall_of_sheep.pl

Lines changed: 81 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,81 @@
1+
#!/usr/bin/perl
2+
use strict;
3+
use warnings;
4+
use Term::ANSIColor;
5+
use Switch;
6+
7+
#Attempt to prevent screen blanking
8+
printf ("\033[9;%ld]", 0);
9+
10+
#Reset colors to normal white on black
11+
print color("reset");
12+
13+
#super legit cross-platform screen clear
14+
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
15+
16+
while(<>){
17+
my $line = $_;
18+
#Hope you like regex.
19+
if ($line =~ m/^(.*) : ([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3}).([0-9]{1,3}):([0-9]{1,10}) -> USER: (.*) PASS: (.*)/){
20+
my $protocol = $1;
21+
my $ip = $2.".".$3.".".$4.".".$5;
22+
my $port = $6;
23+
my $user = $7;
24+
my $pass = $8;
25+
my $ip_addr = pack("C4", $2,$3,$4,$5);
26+
my ($hostname) = (gethostbyaddr($ip_addr, 2))[0];
27+
28+
my $scrubbed_pass = "";
29+
if(length($pass) > 1){
30+
$scrubbed_pass=substr($pass,0,1)."*****";
31+
}
32+
else{
33+
$scrubbed_pass="*******";
34+
}
35+
36+
pick_color($protocol);
37+
$protocol = sprintf '%9s', $protocol;
38+
$ip = sprintf '%15s', $ip;
39+
if(defined($hostname)){
40+
$hostname = sprintf '(%.*s)', 26, $hostname;
41+
}
42+
else{
43+
$hostname = "";
44+
}
45+
$user = sprintf '%.*s', 16, $user;
46+
$pass = sprintf '%.*s', 7, $scrubbed_pass;
47+
print pack("A10 A16 A29 A17 A8", $protocol, $ip, $hostname, $user, $pass);
48+
print "\n";
49+
print color("reset");
50+
}
51+
}
52+
53+
sub pick_color{
54+
my $protocol = shift;
55+
switch ($protocol) {
56+
case /TELNET/ { print color("red") }
57+
case /RLOGIN/ { print color("red") }
58+
case /SSH/ { print color("red") }
59+
case /VNC/ { print color("red") }
60+
61+
case /SMB/ { print color("magenta") }
62+
case /LDAP/ { print color("magenta") }
63+
64+
case /ICQ/ { print color("green") }
65+
case /MSN/ { print color("green") }
66+
case /YMSG/ { print color("green") }
67+
case /IRC/ { print color("green") }
68+
69+
case /HTTP/ { print color("blue") }
70+
case /FTP/ { print color("blue") }
71+
case /MYSQL/ { print color("blue") }
72+
73+
case /POP/ { print color("yellow") }
74+
case /IMAP/ { print color("yellow") }
75+
case /SMTP/ { print color("yellow") }
76+
case /NNTP/ { print color("yellow") }
77+
78+
case /SOCKS5/ {print color("cyan") }
79+
case /CVS/ {print color("cyan") }
80+
}
81+
}

0 commit comments

Comments
 (0)