IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)

- TCL Scriptler (https://www.ircforumu.net/tcl-scriptler/)

- - Domain Sorgulama TCL (https://www.ircforumu.net/tcl-scriptler/2653-domain-sorgulama-tcl.html)

immortaL

29 Haziran 2016 18:31

Domain Sorgulama TCL

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: 20:41.