enlaces:utilidades_de_red
Diferencias
Muestra las diferencias entre dos versiones de la página.
Ambos lados, revisión anteriorRevisión previa | Próxima revisiónAmbos lados, revisión siguiente | ||
enlaces:utilidades_de_red [2018/11/01 16:35] – [Netcat] cayu | enlaces:utilidades_de_red [2018/11/22 16:34] – [MSN Dump] cayu | ||
---|---|---|---|
Línea 470: | Línea 470: | ||
- | ==== MSN Dump ==== | ||
- | |||
- | Sniffea eh interpreta lo que va por el puerto 1863 :p | ||
- | |||
- | <code perl> | ||
- | # | ||
- | # quick dirty msn sniffer | ||
- | # http:// | ||
- | # $Id: msndump.pl, | ||
- | |||
- | #To capture live traffic from device eth0 run: | ||
- | #msndump.pl -i eth0 | ||
- | |||
- | #To capture from tcpdump traffic.pcap file run: | ||
- | #msndump.pl -r traffic.pcap | ||
- | |||
- | # you need Net::Pcap and Net::Packet | ||
- | # use cpan or get manually | ||
- | # http:// | ||
- | # http:// | ||
- | |||
- | my $lowuid=' | ||
- | my $lowgid=' | ||
- | |||
- | my $filter = 'tcp and port 1863'; | ||
- | |||
- | # no modify below | ||
- | use Getopt:: | ||
- | use Net::Pcap; | ||
- | use NetPacket:: | ||
- | use NetPacket:: | ||
- | use Fcntl; | ||
- | $|=1; | ||
- | my $flags |= O_NONBLOCK; | ||
- | |||
- | my %opts; | ||
- | getopt(" | ||
- | if ( (!($opts{i})) && (!($opts{r})) ) { | ||
- | print "[ msndump - miscname.com ]\n Usage: | ||
- | exit; | ||
- | } | ||
- | |||
- | if ((!$opts{r}) && ($> != ' | ||
- | die ("you need uid 0\n"); | ||
- | } | ||
- | |||
- | # main loop | ||
- | my $exitvar = ' | ||
- | while ($exitvar == ' | ||
- | |||
- | # create pcap | ||
- | my $pcap = & | ||
- | if (!($pcap)) { | ||
- | die ("cant capture\n" | ||
- | } | ||
- | |||
- | # drop privs | ||
- | my $GID=" | ||
- | my $UID=" | ||
- | my $EGID=" | ||
- | |||
- | # -w if set | ||
- | if ($opts{w}) { | ||
- | open (FILEOUT,"> | ||
- | fcntl(FILEOUT, | ||
- | } | ||
- | |||
- | # capture loop | ||
- | if (($opts{c}) && ($opts{c} =~ /(\d+)/)) { | ||
- | print " | ||
- | | ||
- | $exitvar = ' | ||
- | } else { | ||
- | | ||
- | my %stats; | ||
- | Net:: | ||
- | print "saw $stats{ps_recv} packets, dropped $stats{ps_drop}\n"; | ||
- | } | ||
- | |||
- | # free it | ||
- | print " | ||
- | Net:: | ||
- | # close fh | ||
- | if ($opts{w}) { | ||
- | print "wrote $opts{w}.\n"; | ||
- | close FILEOUT; | ||
- | } | ||
- | } | ||
- | |||
- | # sub procs below | ||
- | sub cap_pkt { | ||
- | |||
- | my ($pcap, | ||
- | my $snaplen = 14096; # seen some big im's :( | ||
- | my $promisc = 1; # promisc of course | ||
- | my $timeout = 0; # timeout | ||
- | |||
- | # file.pcap? | ||
- | if ($opts{r}) { | ||
- | print " | ||
- | $pcap = Net:: | ||
- | if (!($pcap)) { | ||
- | | ||
- | } | ||
- | } else { | ||
- | |||
- | # set dev from cmdline | ||
- | $dev = $opts{i}; | ||
- | print " | ||
- | |||
- | # get netmask for filter | ||
- | if ((Net:: | ||
- | die (" | ||
- | } | ||
- | | ||
- | # open it | ||
- | $pcap = Net:: | ||
- | if (!($pcap)) { | ||
- | die (" | ||
- | } | ||
- | } | ||
- | |||
- | # sanity check | ||
- | if (!($pcap)) { | ||
- | die (" | ||
- | } elsif (!($mask)) { | ||
- | $mask = ' | ||
- | } | ||
- | |||
- | # make filter struct | ||
- | if (Net:: | ||
- | die (" | ||
- | } | ||
- | # apply | ||
- | Net:: | ||
- | |||
- | return $pcap; | ||
- | } | ||
- | |||
- | sub proc_pkt { | ||
- | |||
- | my($user_data, | ||
- | my ($user, | ||
- | |||
- | my $ip_obj = NetPacket:: | ||
- | #my $ip_obj = NetPacket:: | ||
- | |||
- | # check if its a message (or a p2p file transfer) | ||
- | # if your reading this, include ' | ||
- | if (($ip_obj-> | ||
- | ; | ||
- | } else { | ||
- | print $ip_obj-> | ||
- | # extract goodies | ||
- | if ( (($ip_obj-> | ||
- | $user = " | ||
- | } | ||
- | |||
- | if ($ip_obj-> | ||
- | $msg = $1; | ||
- | } | ||
- | |||
- | # display if we have both | ||
- | if (($user) || ($msg)) | ||
- | { | ||
- | | ||
- | { | ||
- | $user = " | ||
- | } | ||
- | if (!($opts{w})) { | ||
- | print " | ||
- | print " | ||
- | print " | ||
- | } else { | ||
- | print FILEOUT " | ||
- | print FILEOUT " | ||
- | print FILEOUT " | ||
- | } | ||
- | } | ||
- | } | ||
- | } | ||
- | </ | ||
==== Python Proxy ==== | ==== Python Proxy ==== |
enlaces/utilidades_de_red.txt · Última modificación: 2019/01/22 15:34 por cayu