This PERL script by John Zaitseff extracts Flash video (FLV file format) from an RTMP stream captured by tcpdump. To capture the RTMP stream and extract it to an FLV video:

1. Run as root:
   
   Code:

   tcpdump -i eth0 -p -s 0 -w file.tcpdump -v tcp src port 1935

2. As an ordinary user, open the relevant video URL in your browser window and start playback,
3. When the video finishes playing, quit the tcpdump program (using ^C),
4. Run this script as an ordinary user:
   
   Code:

   extract-rtmp-flv file.tcpdump file.flv

This program is free software. You may distribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either Version 2 of the license, or (at your option) any later version.