PHP Code:
#Until I rewrite my scripts, this will suffice for compatibility if(phpversion() >= "4.2.0"){
extract($_POST);
extract($_GET);
extract($_SERVER);
extract($_ENV);
}
?>
WEB/NETWORK INFO
echo $PHP_SELF; ?>">
Arial, Helvetica, sans-serif" color="#FFFFFF">[b]Host
Information [/b]NQT20030507
Helvetica, sans-serif" color="#FFFFFF">[b]Host
Connectivity[/b]
Resolve/Reverse Lookup
Get DNS Records
Whois (Web)
Whois (IP owner)
Check port:
type="text" name="portNum" size="5" maxlength="5" value="80">
Ping host
Traceroute to host
Do it all
bgcolor="#9999FF">
value="Enter host or IP" onFocus="m(this)">
#Global kludge for new gethostbyaddr() behavior in PHP 4.1x $ntarget = "";
#Some functions
function message($msg){
echo "$msg" ; flush();
}
function lookup($target){
global $ntarget; $msg = "$target resolved to ";
if( eregi("[a-zA-Z]", $target) )
$ntarget = gethostbyname($target);
else
$ntarget = gethostbyaddr($target); $msg .= $ntarget; message($msg);
}
function dig($target){
global $ntarget; message("
[b]DNS Query Results:[/b]"); #$target = gethostbyaddr($target);
#if (! eregi("[a-zA-Z]", ($target = gethostbyaddr($target))) ) if( (!eregi("[a-zA-Z]", $target) && (!eregi("[a-zA-Z]", $ntarget))))
$msg .= "Can't do a DNS query without a hostname.";
else{
if(!eregi("[a-zA-Z]", $target)) $target = $ntarget;
if (! $msg .= trim(nl2br(`dig any '$target'`))) #bugfix
$msg .= "The [i]dig[/i] command is not working on your system.";
} #TODO: Clean up output, remove;;'s and DiG headers $msg .= "
"; message($msg);
}
function wwwhois($target){
global $ntarget; $server = "whois.crsnic.net"; message("
[b]WWWhois Results:[/b]"); #Determine which WHOIS server to use for the supplied TLD if((eregi("\.com\$|\.net\$|\.edu\$", $target)) || (eregi("\.com\$|\.net\$|\.edu\$", $ntarget)))
$server = "whois.crsnic.net";
else if((eregi("\.info\$", $target)) || (eregi("\.info\$", $ntarget)))
$server = "whois.afilias.net";
else if((eregi("\.org\$", $target)) || (eregi("\.org\$", $ntarget)))
$server = "whois.corenic.net";
else if((eregi("\.name\$", $target)) || (eregi("\.name\$", $ntarget)))
$server = "whois.nic.name";
else if((eregi("\.biz\$", $target)) || (eregi("\.biz\$", $ntarget)))
$server = "whois.nic.biz";
else if((eregi("\.us\$", $target)) || (eregi("\.us\$", $ntarget)))
$server = "whois.nic.us";
else if((eregi("\.cc\$", $target)) || (eregi("\.cc\$", $ntarget)))
$server = "whois.enicregistrar.com";
else if((eregi("\.ws\$", $target)) || (eregi("\.ws\$", $ntarget)))
$server = "whois.nic.ws";
else if((eregi("\.it\$", $target)) || (eregi("\.it\$", $ntarget)))
$server = "whois.nic.it";
else{
$msg .= "I only support .com, .net, .org, .edu, .info, .name, .us, .cc, .ws, and .biz.
";
message($msg);
return;
}
message("Connecting to $server...
");
if (! $sock = fsockopen($server, 43, $num, $error, 10)){
unset($sock);
$msg .= "Timed-out connecting to $server (port 43)";
}
else{
fputs($sock, "$target\n");
while (!feof($sock))
$buffer .= fgets($sock, 10240);
}
fclose($sock);
if(! eregi("Whois Server:", $buffer)){
if(eregi("no match", $buffer))
message("NOT FOUND: No match for $target
");
else
message("Ambiguous query, multiple matches for $target:
");
}
else{
$buffer = split("\n", $buffer);
for ($i=0; $i<sizeof($buffer); $i++){
if (eregi("Whois Server:", $buffer[$i]))
$buffer = $buffer[$i];
}
$nextServer = substr($buffer, 17, (strlen($buffer)-17));
$nextServer = str_replace("1:Whois Server:", "", trim(rtrim($nextServer)));
$buffer = "";
message("Deferred to specific whois server: $nextServer...
");
if(! $sock = fsockopen($nextServer, 43, $num, $error, 10)){
unset($sock);
$msg .= "Timed-out connecting to $nextServer (port 43)";
}
else{
fputs($sock, "$target\n");
while (!feof($sock))
$buffer .= fgets($sock, 10240);
fclose($sock);
}
} $msg .= nl2br($buffer); $msg .= "
"; message($msg);
}
function arin($target){ $server = "whois.arin.net"; message("
[b]IP Whois Results:[/b]");
if (!$target = gethostbyname($target))
$msg .= "Can't IP Whois without an IP address.";
else{
message("Connecting to $server...
");
if (! $sock = fsockopen($server, 43, $num, $error, 20)){
unset($sock);
$msg .= "Timed-out connecting to $server (port 43)";
}
else{
fputs($sock, "$target\n");
while (!feof($sock))
$buffer .= fgets($sock, 10240);
fclose($sock);
}
if (eregi("RIPE.NET", $buffer))
$nextServer = "whois.ripe.net";
else if (eregi("whois.apnic.net", $buffer))
$nextServer = "whois.apnic.net";
else if (eregi("nic.ad.jp", $buffer)){
$nextServer = "whois.nic.ad.jp";
#/e suppresses Japanese character output from JPNIC
$extra = "/e";
}
else if (eregi("whois.registro.br", $buffer))
$nextServer = "whois.registro.br";
if($nextServer){
$buffer = "";
message("Deferred to specific whois server: $nextServer...
");
if(! $sock = fsockopen($nextServer, 43, $num, $error, 10)){
unset($sock);
$msg .= "Timed-out connecting to $nextServer (port 43)";
}
else{
fputs($sock, "$target$extra\n");
while (!feof($sock))
$buffer .= fgets($sock, 10240);
fclose($sock);
}
}
$buffer = str_replace(" ", "", $buffer);
$msg .= nl2br($buffer);
} $msg .= "
"; message($msg);
}
function checkp($target,$portNum){ message("
[b]Checking Port $portNum[/b]...");
if (! $sock = fsockopen($target, $portNum, $num, $error, 5))
$msg .= "Port $portNum does not appear to be open.";
else{
$msg .= "Port $portNum is open and accepting connections.";
fclose($sock);
} $msg .= "
"; message($msg);
}
function p($target){ message("
[b]Ping Results:[/b]");
if (! $msg .= trim(nl2br(`ping -c5 '$target'`))) #bugfix
$msg .= "Ping failed. Host may not be active."; $msg .= "
"; message($msg);
}
function tr($target){ message("
[b]Traceroute Results:[/b]");
if (! $msg .= trim(nl2br(`/usr/sbin/traceroute '$target'`))) #bugfix
$msg .= "Traceroute failed. Host may not be active."; $msg .= "
"; message($msg);
}
#If the form has been posted, process the query, otherwise there's
#nothing to do yet
if(!$queryType)
exit;
#Make sure the target appears valid
if( (!$target) || (!preg_match("/^[\w\d\.\-]+\.[\w\d]{1,4}$/i",$target)) ){ #bugfix
message("Error: You did not specify a valid target host or IP.");
exit;
}
#Figure out which tasks to perform, and do them
if( ($queryType=="all") || ($queryType=="lookup") )
lookup($target);
if( ($queryType=="all") || ($queryType=="dig") )
dig($target);
if( ($queryType=="all") || ($queryType=="wwwhois") )
wwwhois($target);
if( ($queryType=="all") || ($queryType=="arin") )
arin($target);
if( ($queryType=="all") || ($queryType=="checkp") )
checkp($target,$portNum);
if( ($queryType=="all") || ($queryType=="p") )
p($target);
if( ($queryType=="all") || ($queryType=="tr") )
tr($target);
?>
NQT20050219 hifi-project.net
© kiss echo date('Y');?> 
No comments:
Post a Comment