LT domenų tikrinimas

na tokius tai zinau turejau omeny kad sugeneruoja algoritma pwz :

aaaab.com aaaac.com ir t.t. iki zzzzz.com :)

daug noriu :)

kazkur maciau php failiuku kur tokius domenus patikrina bet nerandu :( domina tik www.*****.com domeni :lol:

<?php
set_time_limit(0);
$list = file('domenai.txt');
foreach ($list as $num => $domain) {
 $domain = trim($domain);
 echo $domain;
 echo (strpos(file_get_contents('http://www.domreg.lt/whois?dm_domain='.$domain.'&wb.x=0&wb.y=0&wb=Ie%C5%A1koti&wq=1'), 'Laisvas')) ? ' - Laisvas' : ' - Uzimtas';
 echo '<br>';
}
?>

 

Visus adresus be galūnės '.lt' surašykite į laikmeną domenai.txt (kiekvieną žodį vis iš naujos eilutės) ir paleiskite skriptą.

Tikiuosi nesupyksit, jog prikeliu tema :lol:

Deja man neveikia <_< ikelus lista domenu (rasiau po viena zodi is naujos eiltutes) domenai.txt i FTP.

Gal darau kazka netaip? ;/ prie kiekvieno domeno raso jog jis uzimtas, bandziau rasyti net tokiu kaip "asdfaskang" bet vistiek tas pats :lol:

Tikiuosi nesupyksit, jog prikeliu tema :lol:

 

Deja man neveikia <_< ikelus lista domenu (rasiau po viena zodi is naujos eiltutes) domenai.txt i FTP.

Gal darau kazka netaip? ;/ prie kiekvieno domeno raso jog jis uzimtas, bandziau rasyti net tokiu kaip "asdfaskang" bet vistiek tas pats :lol:

Gali būti, jog kažką domreg'as pakeitė savo puslapyje.

Aš dabar naudoju skriptą, kuris tiesiogiai kreipiasi į domenų whois serverį ir pateikia visą informaciją. Šis būdas geresnis, nes nėra jokių apribojimų (gali siųsti kiek nori užklausų) ir sąlyginai greičiau veikia.

<?php

function whois($domain) {
$fp = fsockopen('whois.domreg.lt', 43, $errno, $errstr, 30);
if ($fp) {
	fputs($fp, $domain."\r\n");
	$whois = '';
	while (!feof($fp)) {
		$whois .= fread($fp, 128);
	}
	fclose($fp);
}
return (isset($whois)) ? $whois : false;
}

function status($whois) {
return (strpos($whois, 'Status:			available'));
}

set_time_limit(0);

$list = file('domenai.txt');
foreach ($list as $domain) {
 $domain = trim($domain);
 echo $domain;
 echo status(whois($domain)) ? ' - Laisvas' : ' - Uzimtas';
 echo '<br>';
}

?>

Gali būti, jog kažką domreg'as pakeitė savo puslapyje.

 

Aš dabar naudoju skriptą, kuris tiesiogiai kreipiasi į domenų whois serverį ir pateikia visą informaciją. Šis būdas geresnis, nes nėra jokių apribojimų (gali siųsti kiek nori užklausų) ir sąlyginai greičiau veikia.

 

<?php

function whois($domain) {
$fp = fsockopen('whois.domreg.lt', 43, $errno, $errstr, 30);
if ($fp) {
	fputs($fp, $domain."\r\n");
	$whois = '';
	while (!feof($fp)) {
		$whois .= fread($fp, 128);
	}
	fclose($fp);
}
return (isset($whois)) ? $whois : false;
}

function status($whois) {
return (strpos($whois, 'Status:			available'));
}

set_time_limit(0);

$list = file('domenai.txt');
foreach ($list as $domain) {
 $domain = trim($domain);
 echo $domain;
 echo status(whois($domain)) ? ' - Laisvas' : ' - Uzimtas';
 echo '<br>';
}

?>

Aciu labai <_< :lol:

Hmmm.. Vistiek tas pats :D :D

Atnaujinau skriptą. Domenus reikia rašyti po vieną į eilutę.

Tiesa, veikia ne visuose serveriuose (man su vhost.lt nebuvo problemų).

<form method="post">
<textarea name="domains" rows="5" cols="30"></textarea>
<br />
<input type="submit" value="Tikrinti" />
</form>

<?php

set_time_limit(0);

function whois($domain)
{
$server = 'whois.domreg.lt';
$msg = 'Status:			available';
$fp = fsockopen($server, 43, $errno, $errstr, 30);
if ($fp)
{
	fputs($fp, $domain."\r\n");
	$whois = '';
	while (!feof($fp))
	{
		$whois .= fread($fp, 128);
	}
	fclose($fp);
}
return (strpos($whois, $msg));
}

if (isset($_POST['domains']) && !empty($_POST['domains']))
{
$domains = array_map('trim', explode("\n", $_POST['domains']));
foreach ($domains as $domain)
{
	echo $domain;
	echo whois($domain) ? ' - <b>Laisvas</b>' : ' - Uzimtas';
	echo '<br>';
}
}

?>

Hmmm.. Vistiek tas pats :D :D

Hm, man irgi..