1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
| <?
print ("<HTML>\n\t<HEAD>\n\t\t<TITLE>Domein zoeker</TITLE>\n\t</HEAD>\n<BODY BGCOLOR=ffffff TEXT=000000>\n");
$filename = "teller.data";
if(file_exists($filename))
{ $file = fopen("$filename", "r");
$count = fgets($file, 1024);
fclose($file);
$count++;
if($count=="")$count=1;
$file = fopen("$filename", "w");
fputs($file,$count,1024);
fclose($file);
print ("Er zijn in totaal $count domeinen opgevraagt!!!<BR>\n");
}
print ("<font face='Verdana' size='1'>Kijk of een domeinnaam nog vrij is en zo niet, van wie die is (alle extensies!!!)\n <FORM ACTION=$PHP_SELF>\n\tDomein naam <INPUT TYPE=TEXT NAME=domein>\n\t<INPUT TYPE=SUBMIT VALUE=Check>\n</FORM>\n</font>");
if (ereg("^[[:alnum:]]{1}[[:alnum:]\-]{1,63}\.[[:alpha:]]{2,4}$",$domein))
{ while ($i < strlen($domein))
{ $punt = substr($domein,$i,1);
if ($punt == ".")
{ $ext = substr($domein,$i+1,strlen($domein)-$s);
$domein = substr($domein,0,$i);
$punt="";
echo "<font face='Arial' size='1'><H1>$domein.$ext:</H1>\n</font>";
if($ext=="net"||$ext=="org"){$NICserver="whois.nic.com";$zoek="$domein.$ext";}
elseif($ext=="be"){$NICserver="whois.dns.be";$zoek="$domein.$ext";}
elseif($ext=="to"){$NICserver="whois.tonic.to";$zoek="$domein";}
//Als iemand meer NICserver weet voeg ze dan hier toe!
else {$NICserver="whois.nic.$ext";$zoek="$domein.$ext";}
}
$i++;
}
$socket = fsockopen("$NICserver", 43);
if(!$socket)
{ print ("<font face='Arial' size='1'>Mislukt om $domein.$ext te achterhalen, <B>$NICserver</B> bestaat waarschijnlijk niet.<BR>\n Dit kan komen omdat deze extentie <B>$ext</B> niet bestaat.<BR>\n Of deze whois server tijdelijk niet berijkbaar of overbelast is.<BR>\n Of dit land heeft nog geen geautomatiseerde whois server, automatische registratie vaak ook niet mogelijk.<BR>\n</font>");
}
else
{ fputs($socket,"$zoek \n");
while(!feof($socket))
{ $uitvoer .= fgets($socket,128);
}
fclose($socket);
}
//hieronder staan 5 filters en scans die: %shit weghalen; em@il, http://url, url, ip's klikbaar maken;
//$uitvoer = ereg_replace("% .{0,128}\n","",$uitvoer);
$uitvoer = ereg_replace("([[:alnum:]\.\_\-]{1,128}@[[:alnum:]\.\-]{1,128})([\n )])","<A HREF=mailto:\\1>\\1</A>\\2",$uitvoer);
$uitvoer = ereg_replace("(http://)([[:alnum:]\.\-]{1,128}\.[[:alpha:]]{2,5}[[:alnum:]\.//\-\_\?\&\%\$]{0,128})([\n )])","<A HREF=http://\\2>\\1\\2</A>\\3",$uitvoer);
$uitvoer = ereg_replace("([[:alnum:]\.\-]{1,128}\.[[:alpha:]]{2,5}[[:alnum:]\.//\-\_\?\&\%\$]{0,128})([\n )])","<A HREF=http://\\1>\\1</A>\\2",$uitvoer);
$uitvoer = ereg_replace("([0-9]{1,3}[\.][0-9]{1,3}[\.][0-9]{1,3}[\.][0-9]{1,3})([\n )])","<A HREF=http://\\1>\\1</A>\\2",$uitvoer);
echo "<font face='Verdana' size='1'>Domein vrij? Registreer nu >> </font>";
echo "<font face='Arial' size='3'><PRE>\n$uitvoer</PRE>\n</font>";
}
elseif(isset($domein))
{ echo "<font face='Verdana' size='1'>Er is een onjuiste domeinnaam ingevoerd!<BR>\n</font>";
echo "Voer de domeinnaam zonder http:// en www. in,<BR>\n";
echo "een domeinnaam bestaat uit minimaal twee, maximaal 64 karakters (letters/cijfers/-) beginnende met een letter/nummer,<BR>\n";
echo "daarna volgt een punt en een extentie van 2 tot 4 letters.<BR>\n";
echo "Subdomeinen (subdomein.domein.ext) kunnen niet bij ons gecontroleerd worden!<BR>\n";
}
echo "</BODY>\n</HTML>";
?>
?> |