php代码
<!--
PHP Subnet Calculator v1.3.
Copyright 06/25/2003 Raymond Ferguson ferguson_at_share-foo.com.
Released under GNU GPL.
Special thanks to krischan at jodies.cx for ipcalc.pl http://jodies.de/ipcalcThe presentation and concept was mostly taken from ipcalc.pl.
-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>PHP Subnet Calculator</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<meta name="GENERATOR" content="Quanta Plus">
</head>
<body bgcolor="#D3D3D3">
<center>
<form method="post" action="<?php print $_SERVER['PHP_SELF'] ?> ">
<BR><BR>
<table width="95%" align=center cellpadding=2 cellspacing=2 border=0>
<tr><td align="center" bgcolor="#999999">
<b><A HREF="http://sourceforge.net/projects/subntcalc/">PHP Subnet Calculator</A></b>
</td></tr>
</table>
<BR>
<table>
<tr>
<td>IP & Mask or CIDR: </td>
<td><input type="text" name="my_net_info" value="" size="31" maxlength="32"></td>
<td> <input type="submit" value="Calculate" name="subnetcalc">
</td>
</tr>
</table></form><br>
<?php
//Start table
print "<table cellpadding=\"2\">\n<COL span=\"4\" align=\"left\">\n" ;
$end='</table><br><br><br><br><br><table width="95%" align=center cellpadding=2 cellspacing=2 border=0>
<tr><td bgcolor="#999999"></td><tr><td align="center"><a href="http://validator.w3.org/check/referer">
<img border="0" src="http://www.w3.org/Icons/valid-html401" alt="Valid HTML 4.01!" height="31" width="88"></a>
</td></tr></table></center></body></html>';
if (empty($_POST['my_net_info'])){
tr('Use IP & CIDR Netmask: ', '10.0.0.1/22');
tr('Or IP & Netmask:','10.0.0.1 255.255.252.0');
tr('Or IP & Wildcard Mask:','10.0.0.1 0.0.3.255');
print $end ;
exit ;
}
$my_net_info=rtrim($_POST['my_net_info']);
//if (! ereg('^([0-9]{1,3}\.){3}[0-9]{1,3}(( ([0-9]{1,3}\.){3}[0-9]{1,3})|(/[0-9]{1,2}))$',$my_net_info)){
if (! preg_match("/^([0-9]{1,3}\.){3}[0-9]{1,3}(( ([0-9]{1,3}\.){3}[0-9]{1,3})|(\/[0-9]{1,2}))$/",$my_net_info)){
tr("Invalid Input.");
tr('Use IP & CIDR Netmask: ', '10.0.0.1/22');
tr('Or IP & Netmask:','10.0.0.1 255.255.252.0');
tr('Or IP & Wildcard Mask:','10.0.0.1 0.0.3.255');
print $end ;
exit ;
}
//if (ereg("/",$my_net_info)){ //if cidr type mask
if (preg_match("/\//",$my_net_info)){ //if cidr type mask
$dq_host = strtok("$my_net_info", "/");
$cdr_nmask = strtok("/");
if (!($cdr_nmask >= 0 && $cdr_nmask <= 32)){
tr("Invalid CIDR value. Try an integer 0 - 32.");
print "$end";
exit ;
}
$bin_nmask=cdrtobin($cdr_nmask);
$bin_wmask=binnmtowm($bin_nmask);
} else { //Dotted quad mask?
$dqs=explode(" ", $my_net_info);
$dq_host=$dqs[0];
$bin_nmask=dqtobin($dqs[1]);
$bin_wmask=binnmtowm($bin_nmask);
//if (ereg("0",rtrim($bin_nmask, "0"))) { //Wildcard mask then? hmm?
if (preg_match("/0/",rtrim($bin_nmask, "0"))) { //Wildcard mask then? hmm?
$bin_wmask=dqtobin($dqs[1]);
$bin_nmask=binwmtonm($bin_wmask);
if (ereg("0",rtrim($bin_nmask, "0"))){ //If it's not wcard, whussup?
tr("Invalid Netmask.");
print "$end";
exit ;
}
}
$cdr_nmask=bintocdr($bin_nmask);
}
//Check for valid $dq_host
//if(! ereg('^0.',$dq_host)){
if(! preg_match("/^0\./",$dq_host)){
foreach( explode(".",$dq_host) as $octet ){
if($octet > 255){
tr("Invalid IP Address");
print $end ;
exit;
}
}
}
$bin_host=dqtobin($dq_host);
$bin_bcast=(str_pad(substr($bin_host,0,$cdr_nmask),32,1));
$bin_net=(str_pad(substr($bin_host,0,$cdr_nmask),32,0));
$bin_first=(str_pad(substr($bin_net,0,31),32,1));
$bin_last=(str_pad(substr($bin_bcast,0,31),32,0));
$host_total=(bindec(str_pad("",(32-$cdr_nmask),1)) - 1);
if ($host_total <= 0){ //Takes care of 31 and 32 bit masks.
$bin_first="N/A" ; $bin_last="N/A" ; $host_total="N/A";
if ($bin_net === $bin_bcast) $bin_bcast="N/A";
}
//Determine Class
//if (ereg('^0',$bin_net)){
if (preg_match("/^0/",$bin_net)){
$class="A";
$dotbin_net= "<font color=\"Green\">0</font>" . substr(dotbin($bin_net,$cdr_nmask),1) ;
//}elseif (ereg('^10',$bin_net)){
}elseif (preg_match("/^10/",$bin_net)){
$class="B";
$dotbin_net= "<font color=\"Green\">10</font>" . substr(dotbin($bin_net,$cdr_nmask),2) ;
//}elseif (ereg('^110',$bin_net)){
}elseif (preg_match("/^110/",$bin_net)){
$class="C";
$dotbin_net= "<font color=\"Green\">110</font>" . substr(dotbin($bin_net,$cdr_nmask),3) ;
//}elseif (ereg('^1110',$bin_net)){
}elseif (preg_match("/^1110/",$bin_net)){
$class="D";
$dotbin_net= "<font color=\"Green\">1110</font>" . substr(dotbin($bin_net,$cdr_nmask),4) ;
$special="<font color=\"Green\">Class D = Multicast Address Space.</font>";
}else{
$class="E";
$dotbin_net= "<font color=\"Green\">1111</font>" . substr(dotbin($bin_net,$cdr_nmask),4) ;
$special="<font color=\"Green\">Class E = Experimental Address Space.</font>";
}
//if (ereg('^(00001010)|(101011000001)|(1100000010101000)',$bin_net)){
if (preg_match("/^(00001010)|(101011000001)|(1100000010101000)/",$bin_net)){
$special='<a href="http://www.ietf.org/rfc/rfc1918.txt">( RFC-1918 Private Internet Address. )</a>';
}
// Print Results
tr('Address:',"<font color=\"blue\">$dq_host</font>",
'<font color="brown">'.dotbin($bin_host,$cdr_nmask).'</font>');
tr('Netmask:','<font color="blue">'.bintodq($bin_nmask)." = $cdr_nmask</font>",
'<font color="red">'.dotbin($bin_nmask, $cdr_nmask).'</font>');
tr('Wildcard:', '<font color="blue">'.bintodq($bin_wmask).'</font>',
'<font color="brown">'.dotbin($bin_wmask, $cdr_nmask).'</font>');
tr('Network:', '<font color="blue">'.bintodq($bin_net).'</font>',
"<font color=\"brown\">$dotbin_net</font>","<font color=\"Green\">(Class $class)</font>");
tr('Broadcast:','<font color="blue">'.bintodq($bin_bcast).'</font>',
'<font color="brown">'.dotbin($bin_bcast, $cdr_nmask).'</font>');
tr('HostMin:', '<font color="blue">'.bintodq($bin_first).'</font>',
'<font color="brown">'.dotbin($bin_first, $cdr_nmask).'</font>');
tr('HostMax:', '<font color="blue">'.bintodq($bin_last).'</font>',
'<font color="brown">'.dotbin($bin_last, $cdr_nmask).'</font>');
@tr('Hosts/Net:', '<font color="blue">'.$host_total.'</font>', "$special");
print "$end";
function binnmtowm($binin){
$binin=rtrim($binin, "0");
//if (!ereg("0",$binin) ){
if (!preg_match("/0/",$binin) ){
return str_pad(str_replace("1","0",$binin), 32, "1");
} else return "1010101010101010101010101010101010101010";
}
function bintocdr ($binin){
return strlen(rtrim($binin,"0"));
}
function bintodq ($binin) {
if ($binin=="N/A") return $binin;
$binin=explode(".", chunk_split($binin,8,"."));
for ($i=0; $i<4 ; $i++) {
$dq[$i]=bindec($binin[$i]);
}
return implode(".",$dq) ;
}
function bintoint ($binin){
return bindec($binin);
}
function binwmtonm($binin){
$binin=rtrim($binin, "1");
//if (!ereg("1",$binin)){
if (!preg_match("/1/",$binin)){
return str_pad(str_replace("0","1",$binin), 32, "0");
} else return "1010101010101010101010101010101010101010";
}
function cdrtobin ($cdrin){
return str_pad(str_pad("", $cdrin, "1"), 32, "0");
}
function dotbin($binin,$cdr_nmask){
// splits 32 bit bin into dotted bin octets
if ($binin=="N/A") return $binin;
$oct=rtrim(chunk_split($binin,8,"."),".");
if ($cdr_nmask > 0){
$offset=sprintf("%u",$cdr_nmask/8) + $cdr_nmask ;
return substr($oct,0,$offset ) . " " . substr($oct,$offset) ;
} else {
return $oct;
}
}
function dqtobin($dqin) {
$dq = explode(".",$dqin);
for ($i=0; $i<4 ; $i++) {
$bin[$i]=str_pad(decbin($dq[$i]), 8, "0", STR_PAD_LEFT);
}
return implode("",$bin);
}
function inttobin ($intin) {
return str_pad(decbin($intin), 32, "0", STR_PAD_LEFT);
}
function tr(){
echo "\t<tr>";
for($i=0; $i<func_num_args(); $i++) echo "<td>".func_get_arg($i)."</td>";
echo "</tr>\n";
}
?>
