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 Kod: Kodu kopyalamak için üzerine çift tıklayın!
[ 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: Kodu kopyalamak için üzerine çift tıklayın!
####################################################
################ .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 "ü" $text "ü" text
regsub -all "ö" $text "ö" text
regsub -all "ä" $text "ä" text
regsub -all "Ü" $text "Ü" text
regsub -all "Ö" $text "Ö" text
regsub -all "Ä" $text "Ä" text
regsub -all "ß" $text "ß" text
regsub -all """ $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 " " $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 ..