immortaL | 14 Haziran 2016 23:01 | Domain.Tcl (Domain Sorgulama) İşlevi :
Arattığınız domaini almaya müsait veya alınmış olduğunun haberini verir.
Eğer arattığınız domain alınmış ise o domain hakkında bilgileri size aktarır..
Güvenlik altına alınan domain bilgileri resimdeki gibi gözükmektedir.. Komut: .domain (alanadı)
ORNEK: .domain ircforumu.net NOT: TCL'nin icinde kanaladınızı editlemeyi unutmayınız.. TCL Curl yüklü olan sunucularda çalışır bilginize.. Kod:
############################
# DOMAIN SORGULAMA TCL #
# BY RASCOLN #
############################
### Domain ve Whois Sorgu Adresi
set kiminsite "https://kimindir.com/"
### Komutun Calisacagi Kanal
set domainkanal "#kanaladi"
bind pub - .domain sorgu
proc sorgu {nick host hand chan text} {
set xx 0
set yy 0
if { [string match $::domainkanal $chan] } {
if { [llength $text] > 1 } { return 0 }
if { $text eq "" } { putquick "privmsg $chan :Lütfen bir domain ismi giriniz.."; return 0 }
catch { exec curl -k "$::kiminsite$text" } data
putquick "privmsg $chan :\t\002 DOMAIN SORGULAMA"
if {[string match -nocase "*Registrant:*" $data]} {
putquick "privmsg $chan :---------------------------------------"
putquick "privmsg $chan :\0034,1 Uzgünüm! \0030[lindex $text 0] \0034daha önceden alınmış! \003"
putquick "privmsg $chan :---------------------------------------"
set araal [string range $data [expr [string first "\*\* Registrant:<\/br>" $data]] [expr [string last " | " $data]]]
set araal3 [string range $data [expr [string first "\*\* Additional Info:<\/br>" $data]] [expr [string last " | " $data]]]
foreach sirala [split $araal \n] {
if {$xx == 8} { break }
if {![string match "" $sirala] && ![string match -nocase "*
if {$xx != 0} {
putquick "privmsg $chan :\0034|\003 [string map -nocase { "<" "" } [string map -nocase {" | ** Registrant:" "" "" "" "" "" "<\/br>" "" "" "" "<\/b>" "" "<\/td>" "" "<\/tr>" "" "<\/table>" ""} $sirala]]"
}
}
incr xx
}
foreach sirala3 [split $araal3 \n] {
if {$yy == 3} { break }
if {![string match "" $sirala3] && ![string match -nocase "*
putquick "privmsg $chan :\0034|\003 [string map -nocase { "<" "" } [string map -nocase {" | ** Registrant:" "" "" "" "" "" "<\/br>" "" "" "" "<\/b>" "" "<\/td>" "" "<\/tr>" "" "<\/table>" ""} $sirala3]]"
}
incr yy
}
putquick "privmsg $chan :----------------------------------------------"
return 0
}
if {[string match -nocase "*Domain Name:*" $data]} {
putquick "privmsg $chan :---------------------------------------"
putquick "privmsg $chan :\0034,1 Uzgünüm! \0030[lindex $text 0] \0034daha önceden alınmış! \003"
putquick "privmsg $chan :---------------------------------------"
set araal2 [string range $data [expr [string first " | Sorgu Sonucu \/" $data]] [expr [string last "" $data]]]
while {[regexp -- {Updated Date: (.*?)(.*)$} $araal2 -> update araal2]} {
if {$xx == 1} { break }
regexp -- {Creation Date: (.*?)} $araal2 - creat
regexp -- {Registrar Registration Expiration Date: (.*?)} $araal2 - expire
regexp -- {Registrar: (.*?)} $araal2 - reg
regexp -- {Registrant Name: (.*?)} $araal2 - regname
regexp -- {Registrant Street: (.*?)} $araal2 - regstreet
regexp -- {Registrant City: (.*?)} $araal2 - regcity
regexp -- {Registrant Phone: (.*?)} $araal2 - regphone
regexp -- {Name Server: (.*?)} $araal2 - dns
putquick "privmsg $chan :\0034|\003 Domain Adı:\0034 $text"
putquick "privmsg $chan :\0034|\003 Baslangıç Tarihi:\00314 $creat"
putquick "privmsg $chan :\0034|\003 Güncellenme Tarihi:\00314 $update"
putquick "privmsg $chan :\0034|\003 Bitiş Tarihi:\00314 $expire"
putquick "privmsg $chan :\0034|\003 Kayıtlı Sitesi:\00314 $reg"
putquick "privmsg $chan :\0034|\003 Domain Sahibi:\00314 $regname"
putquick "privmsg $chan :\0034|\003 Kayitli Mah/Sok:\00314 $regstreet"
putquick "privmsg $chan :\0034|\003 Kayitli Şehir:\00314 $regcity"
putquick "privmsg $chan :\0034|\003 Telefon Numarası:\00314 $regphone"
putquick "privmsg $chan :\0034|\003 Dns :\00314 $dns"
incr xx
}
putquick "privmsg $chan :----------------------------------------------"
return 0
}
if {[string match -nocase "*match found for*" $data] || [string match -nocase "*kimse*" $data]} {
putquick "privmsg $chan :---------------------------------------"
putquick "privmsg $chan :\0039,1 Tebrikler! \0030[lindex $text 0] \0039satın almaya müsait! \003"
putquick "privmsg $chan :---------------------------------------"
return 0
}
if {[string match -nocase "*LIMIT EXCEEDED*" $data]} {
putquick "privmsg $chan :---------------------------------------"
putquick "privmsg $chan :\0030,1 \[\0038.org\0030\] uzantılı alan adlarının sorgulanmasında geçici bir sorun yaşanmaktadır. \003"
putquick "privmsg $chan :---------------------------------------"
return 0
}
}
}
putlog "Domain Sorgu TCL by rascoLn" Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:25. | |
Powered by vBulletin® Version 3.8.11 Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.
| |