msndump.pl - a quick msn messenger sniffer source code

猪猪

信息来源：miscname

1. #!/usr/bin/perl -w
   
2. # quick dirty msn sniffer
   
3. # [url]http://miscname.com/[/url]
   
4. # $Id: msndump.pl,v 1.4 2004/11/18 11:52:41 meh Exp $
   
5. 
   
6. # you need Net::Pcap and Net::Packet
   
7. # use cpan or get manually
   
8. # [url]http://search.cpan.org/CPAN/authors/id/A/AT/ATRAK/NetPacket-0.04.tar.gz[/url]
   
9. # [url]http://search.cpan.org/CPAN/authors/id/K/KC/KCARNUT/Net-Pcap-0.05.tar.gz[/url]
   
10. 
    
11. my $filter = 'tcp and port 1863';
    
12. 
    
13. # no modify below
    
14. use Getopt::Std;
    
15. use Net::Pcap;
    
16. use NetPacket::IP qw (:strip);
    
17. use NetPacket::Ethernet qw (:strip);
    
18. use NetPacket::TCP;
    
19. use Fcntl;
    
20. $|=1;
    
21. my $flags |= O_NONBLOCK;
    
22. 
    
23. my %opts;
    
24. getopt("wicr",\%opts);
    
25. if ( (!($opts{i})) && (!($opts{r})) ) {
    
26.      print "[ msndump - miscname.com ]\n Usage:\n\t-i rl0 || -r file.pcap\n\t-c X - capture X packets\n\t-w freshIMz.txt\n\t-v show all msn IM data\n\n";
    
27.      exit;
    
28. }
    
29. 
    
30. if ((!$opts{r}) && ($> != '0')) {
    
31.      die ("you need uid 0\n");
    
32. }
    
33. 
    
34. # trap sigs
    
35. $SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&exitd;
    
36. 
    
37. # create pcap
    
38. my $pcap = &cap_pkt;
    
39. if (!($pcap)) {
    
40.      die ("cant capture\n");
    
41. }
    
42. 
    
43. # open fh if -w set
    
44. if ($opts{w}) {
    
45.      open (FILEOUT,">$opts{w}") || die ("cant open $opts{w} ($!)\n");
    
46.      fcntl(FILEOUT, F_SETFL, $flags) or die ("couldn't set nonblock for $opts{w} ($!)\n");
    
47. }
    
48. 
    
49. # main capture
    
50. if (($opts{c}) && ($opts{c} =~ /(\d+)/)) {
    
51.      print "stopping after $1 packets\n";
    
52.          Net::Pcap::loop($pcap, $1, \&proc_pkt, 0);
    
53.      &exitd;
    
54. } else {
    
55.          Net::Pcap::loop($pcap, -1, \&proc_pkt, 0);
    
56.      my %stats;
    
57.      Net::Pcap::stats($pcap, \%stats);
    
58.      unless ($opts{r}) {
    
59.            print "saw $stats{ps_recv} packets, dropped $stats{ps_drop}\n";
    
60.      }
    
61. }
    
62. 
    
63. 
    
64. # sub procs
    
65. sub exitd {
    
66.      # free
    
67.      Net::Pcap::close($pcap);
    
68.      # close fh
    
69.      if ($opts{w}) {
    
70.            print "wrote $opts{w}.\n";
    
71.            close FILEOUT;
    
72.      }
    
73. }
    
74. 
    
75. sub cap_pkt {
    
76. 
    
77.      my ($pcap,$dev,$err,$mask,$net,$filter2);
    
78.      my $snaplen = 4096; # seen some big im's :(
    
79.      my $promisc = 1; # promisc of course
    
80.      my $timeout = 0; # timeout
    
81. 
    
82.      # file.pcap?
    
83.      if ($opts{r}) {
    
84.            # open offline
    
85.            $pcap = Net::Pcap::open_offline($opts{r}, \$err);
    
86.            if (!($pcap)) {
    
87.                  die("error opening $opts{r} ($err)\n");
    
88.              } else {
    
89.                  print "reading from '$opts{r}'\n";
    
90.            }      
    
91.      } else {
    
92.            # set dev from cmdline
    
93.            $dev = $opts{i};
    
94.      
    
95.            # get netmask for filter
    
96.            if ((Net::Pcap::lookupnet($dev, \$net, \$mask, \$err)) == -1 ) {
    
97.                      die ("Net::Pcap::lookupnet failed ($err) for device '$dev'\n");
    
98.              }
    
99.   
    
100.            # open it
     
101.            $pcap = Net::Pcap::open_live($dev, $snaplen, $promisc, $timeout, \$err);
     
102.            if (!($pcap)) {
     
103.                  die ("can't create packet fd ($err) on device '$dev'\n");
     
104.            } else {
     
105.                  print "dumping on '$dev'\n";
     
106.            }
     
107.      }
     
108.   
     
109.      # sanity check
     
110.      if (!($pcap)) {
     
111.            die ("sanity check failed - \$pcap null\n");
     
112.      } elsif (!($mask)) {
     
113.            $mask = '0'; # for open_offline
     
114.      }
     
115. 
     
116.      # make filter struct
     
117.      if (Net::Pcap::compile($pcap, \$filter2, $filter, 1, $mask) != '0') {
     
118.            die ("broken filter ($filter)\n");
     
119.      }
     
120.      # apply
     
121.      Net::Pcap::setfilter($pcap, $filter2);
     
122. 
     
123.      return $pcap;
     
124. }
     
125. 
     
126. sub proc_pkt {
     
127. 
     
128.      my($user_data, $hdr, $pkt) = @_;
     
129.      my ($user,$msg);
     
130. 
     
131.      # get tcp section only from packet
     
132.      my $tcp_obj = NetPacket::TCP->decode(ip_strip(eth_strip($pkt))); # stripping ip header makes =~ faster
     
133. 
     
134.      # verbose shows all traf
     
135.      if ($opts{v}) {
     
136.            if (!($opts{w})) {
     
137.                  print "$tcp_obj->{data}\n";
     
138.            } else {
     
139.                  print FILEOUT "$tcp_obj->{data}\n";
     
140.            }
     
141.      } elsif (($tcp_obj->{data} !~ /MSG/m) || ($tcp_obj->{data} =~ /P2P-Dest:/m)) {
     
142.            # skip if its a message (or a p2p file transfer)
     
143.            # if your reading this, include 'P2P-Dest:' in your message body to avoid sniffer ;)
     
144.            ;
     
145.      } else {
     
146.            # extract goodies
     
147.            if ( $tcp_obj->{data} =~ /MSG (.*)\s|TypingUser: (.*)\s|P4-Context: (.*)\s/ ) {
     
148.                  $user = $1;
     
149.            }
     
150.            if ($tcp_obj->{data} =~ /X-MMS-IM-Format:\s\S*\s\S*\s\S*\s\S*\s\S*\s*(.*)/m) {
     
151.                  $msg = $1;
     
152.            }
     
153.            # display if we have both
     
154.            if (($user) && ($msg)) {
     
155.                  if (!($opts{w})) {
     
156.                        print "\n----------------------------------------------------\n";
     
157.                        print "TIME: " . localtime($hdr->{tv_sec}) . "\n";
     
158.                        print "TO/FROM: $user\nMESSAGE:\n$msg\n";
     
159.                  } else {
     
160.                        print FILEOUT "\n----------------------------------------------------\n";
     
161.                        print FILEOUT "TIME: " . localtime($hdr->{tv_sec}) . "\n";
     
162.                        print FILEOUT "TO/FROM: $user\nMESSAGE: \n$msg\n\n";
     
163.                  }
     
164.            }
     
165.      }
     
166. }
     
167. 
     
168. #e0f

复制代码