IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Elinde Domain Whois cektiricek Calısıcak Tcl Olan Varmı Paylaşırsa Sevinirim

Benim Elimdeki Sadece Belirli domainlerde Whois cekiyor Yani Site'den Kaynaklanıyor Baska Bi Steye Ayarlayabilen Varmı ?

PHP- Kodu:

   [ 13 : 56 : 28 ] <AtacK> .dwhois ircforumlari.net
[ 13 : 56 : 32 ] <X-Bot> Domain Sahibi: <b>salihgunaydin.infosalihgunaydin Cadde: apdiipekcimah.ayazmacad.1565sokno/14 Kent: Kocaeli,41400 Ülke:Turkey
[ 13 : 57 : 05 ] <AtacK> .dwhois google.com
[ 13 : 57 : 08 ] <X-Bot> Domain Sahibi: <b>DnsAdmin Cadde: GoogleInc Kent: Pleasecontactcontact-admin@google.com1600AmphitheatreParkway Ülke:MountainViewCA94043
[ 13 : 57 : 20 ] <AtacK> .dwhois muhabbet.gen.tr
[ 13 : 57 : 24 ] <AtacK> .dwhois muhabbet.org
[ 13 : 57 : 25 ] <X-Bot> Domain Sahibi: <b>AhmetGüvenTın Cadde: YıldıztepeMah130.SokNo:54/2D.10Nazilli Kent: 09800 Ülke:Aydın
[ 13 : 57 : 49 ] <X-Bot> Domain Sahibi: <b>CagdasAydogdu Cadde: DikmenAnkara Kent: 000000Ankara Ülke:TR
[ 13 : 57 : 54 ] <AtacK> .dwhois love.gen.tr
[ 13 : 58 : 05 ] <X-Bot> Domain Sahibi: <b>MuratEliçalışkan Cadde: AşanSok.No:42/1 Kent: Ankara Ülke:Türkiye
----------------------------------------------------------------
 
[ 14 : 00 : 04 ] <AtacK> .dwhois muhabbet.net
[ 14 : 00 : 05 ] <X-Bot> Domain Sahibi: <b>muhabbet.net Cadde: </b></pre> Kent:  Ülke:
 
 
Bulamayınca Bu Sekilde Diyor Sitedende Whois Cektigimde Site bilgilerine Ulasmıyor Guncel Whois Sitesine Yapabilen Arkadas Varmı Aranızda ?

dwhois.tcl

Kod:

####################################################

################ .dwhois <domain> ##################

####################################################

bind pub - .dwhois dwhois

proc dwhois {nick host handle chan text} {

set server "isfree.schlundtec.com"

set port 80

set l 14

set i 0

set path "/cgi-bin/isfree.cgi?nodesign=1&domain=[lindex $text 0]"

set sockdw [socket $server $port]

puts $sockdw "GET $path HTTP/1.0"

puts $sockdw "User.Agent:Mozilla"

puts $sockdw "Host: $server"

puts $sockdw ""

flush $sockdw

while {$i <= $l} {

gets $sockdw linedw

putlog $linedw

if {[string match "*Domain*frei*" $linedw]} {

putserv "PRIVMSG $chan :[lindex $text 0] domaini (alan adı) boştadır ve kaydedilebilir"

close $sockdw

return 0

}

if {[string match "*Domain*registriert*" $linedw]} {

gets $sockdw

putserv "PRIVMSG $chan Domain Sahibi: [html [gets $sockdw]] Cadde: [html [gets $sockdw]] Kent: [html [gets $sockdw]] Ülke:[html [gets $sockdw]]"

close $sockdw

return 0

}

incr i

}

close $sockdw

}

proc html { text } {

regsub -all "</TD>" $text "" text

regsub -all "</FONT>" $text "" text

regsub -all " " $text "" text

regsub -all "&uuml;" $text "ü" text

regsub -all "&ouml;" $text "ö" text

regsub -all "&auml;" $text "ä" text

regsub -all "&Uuml;" $text "Ü" text

regsub -all "&Ouml;" $text "Ö" text

regsub -all "&Auml;" $text "Ä" text

regsub -all "&szlig;" $text "ß" text

regsub -all "&quot;" $text "\"" text

regsub -all "<tb>" $text "" text

regsub -all "<font" $text "" text

regsub -all "size=\"2\"" $text "" text

regsub -all "face=\"Verdana,Arial,Helvetica,Geneva\">" $text "" text

regsub -all "<br>" $text "" text

regsub -all "&nbsp;" $text "" text

regsub -all "</font>" $text "" text

regsub -all "<td>" $text "" text

regsub -all "</td>" $text "" text

regsub -all "" $text "" text

regsub -all "" $text "" text

regsub -all "

" $text "" text

return $text

}

 

putlog "\002DOMAINWHOIS:\002 DomainWhois.tcl 1.2 Loaded."

 

 

$imdiden t$kLer ..