|
| 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