swfuncompress

swfuncompress

#!/usr/bin/perl
use Compress::Zlib;
undef $/;
binmode(ARGV);
while (<>) {
    my ($a, $b, $c) = unpack 'a3a5a*' => $_;
    if ($a eq 'CWS') {
        open FH, '>:raw', "${ARGV}.raw";
        syswrite FH, "FWS$b";
        syswrite FH, uncompress($c);
    }
}