Domain Whois Lookup

<?
// Domain Whois Lookup
// Writer: Max - Demian Net
// E-Mail: [email protected]
// WebSite: http://www.DemianNet.com http://www.Wackowoh.com
// Language: PHP
function whois_request($server, $query) {
  $data = "";
  $fp = fsockopen($server, 43);
  if($fp) {
   fputs($fp, $query."\r\n");
   while(!feof($fp)) {
     $data .= fread($fp, 1000);
   }
   fclose($fp);
  }
  return $data;
}
?>
<FORM>
  <INPUT TYPE=HIDDEN NAME=action VALUE=query>
  Server: <INPUT TYPE=TEXT NAME=server VALUE="<?echo $server?>"> <SMALL>(ie: whois.networksolutions.com)</SMALL><BR>
  Domain: <INPUT TYPE=TEXT NAME=query VALUE="<?echo $query?>"> <SMALL>(ie: wackowoh.com)</SMALL><BR>
  <INPUT TYPE=SUBMIT VALUE=" OK ">
</FORM>
<?
if($action == "query") {
  $data = whois_request($server, $query);
  echo "Sent $query to $server.<p>";
  echo "Output: <p><pre>$data</pre><p>";
}
?>