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


ircforumu sekershelldamlasu
bizimkiler sihirlisohbet sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Haziran 2016, 18:31   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Domain Sorgulama TCL


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
############################ # 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 "<td class=\"whois\">\*\* Registrant:<br><\/br>" $data]] [expr [string last "<td width=\"39%\" valign=\"top\" align=\"right\">" $data]]] set araal3 [string range $data [expr [string first "\*\* Additional Info:<br><\/br>" $data]] [expr [string last "<td width=\"39%\" valign=\"top\" align=\"right\">" $data]]] foreach sirala [split $araal \n] { if {$xx == 8} { break } if {![string match "" $sirala] && ![string match -nocase "*<img*" $sirala]} { if {$xx != 0} { putquick "privmsg $chan :\0034|\003 [string map -nocase { "<" "" } [string map -nocase {"<td class=\"whois\">** Registrant:" "" "" "" "<br>" "" "<\/br>" "" "<b>" "" "<\/b>" "" "<\/td>" "" "<\/tr>" "" "<\/table>" ""} $sirala]]" } } incr xx } foreach sirala3 [split $araal3 \n] { if {$yy == 3} { break } if {![string match "" $sirala3] && ![string match -nocase "*<img*" $sirala3]} { putquick "privmsg $chan :\0034|\003 [string map -nocase { "<" "" } [string map -nocase {"<td class=\"whois\">** Registrant:" "" "" "" "<br>" "" "<\/br>" "" "<b>" "" "<\/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 "<td class=\"sorgusonucu\" align=\"left\" valign=\"top\">Sorgu Sonucu \/" $data]] [expr [string last "<table border=\"0\" cellpadding=\"1\" cellspacing=\"0\" width=\"95%\">" $data]]] while {[regexp -- {<b>Updated Date:</b> (.*?)<br></br>(.*)$} $araal2 -> update araal2]} { if {$xx == 1} { break } regexp -- {<b>Creation Date:</b> (.*?)<br></br>} $araal2 - creat regexp -- {<b>Registrar Registration Expiration Date:</b> (.*?)<br></br>} $araal2 - expire regexp -- {<b>Registrar:</b> (.*?)<br></br>} $araal2 - reg regexp -- {<b>Registrant Name:</b> (.*?)<br></br>} $araal2 - regname regexp -- {<b>Registrant Street:</b> (.*?)<br></br>} $araal2 - regstreet regexp -- {<b>Registrant City:</b> (.*?)<br></br>} $araal2 - regcity regexp -- {<b>Registrant Phone:</b> (.*?)<br></br>} $araal2 - regphone regexp -- {Name Server:</b> <a href=".*?">(.*?)</a><br></br>} $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"

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
############################ # 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 "<td class=\"whois\">\*\* Registrant:<br><\/br>" $data]] [expr [string last "<td width=\"39%\" valign=\"top\" align=\"right\">" $data]]] set araal3 [string range $data [expr [string first "\*\* Additional Info:<br><\/br>" $data]] [expr [string last "<td width=\"39%\" valign=\"top\" align=\"right\">" $data]]] foreach sirala [split $araal \n] { if {$xx == 8} { break } if {![string match "" $sirala] && ![string match -nocase "*<img*" $sirala]} { if {$xx != 0} { putquick "privmsg $chan :\0034|\003 [string map -nocase { "<" "" } [string map -nocase {"<td class=\"whois\">** Registrant:" "" "" "" "<br>" "" "<\/br>" "" "<b>" "" "<\/b>" "" "<\/td>" "" "<\/tr>" "" "<\/table>" ""} $sirala]]" } } incr xx } foreach sirala3 [split $araal3 \n] { if {$yy == 3} { break } if {![string match "" $sirala3] && ![string match -nocase "*<img*" $sirala3]} { putquick "privmsg $chan :\0034|\003 [string map -nocase { "<" "" } [string map -nocase {"<td class=\"whois\">** Registrant:" "" "" "" "<br>" "" "<\/br>" "" "<b>" "" "<\/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 "<td class=\"sorgusonucu\" align=\"left\" valign=\"top\">Sorgu Sonucu \/" $data]] [expr [string last "<table border=\"0\" cellpadding=\"1\" cellspacing=\"0\" width=\"95%\">" $data]]] while {[regexp -- {<b>Updated Date:</b> (.*?)<br></br>(.*)$} $araal2 -> update araal2]} { if {$xx == 1} { break } regexp -- {<b>Creation Date:</b> (.*?)<br></br>} $araal2 - creat regexp -- {<b>Registrar Registration Expiration Date:</b> (.*?)<br></br>} $araal2 - expire regexp -- {<b>Registrar:</b> (.*?)<br></br>} $araal2 - reg regexp -- {<b>Registrant Name:</b> (.*?)<br></br>} $araal2 - regname regexp -- {<b>Registrant Street:</b> (.*?)<br></br>} $araal2 - regstreet regexp -- {<b>Registrant City:</b> (.*?)<br></br>} $araal2 - regcity regexp -- {<b>Registrant Phone:</b> (.*?)<br></br>} $araal2 - regphone regexp -- {Name Server:</b> <a href=".*?">(.*?)</a><br></br>} $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"

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 22 Ekim 2024, 03:59   #2
Çevrimdışı
Cevap: Domain Sorgulama TCL


bot çalışöıyor malesef düzeltme imkanı varmı?

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
domain, sorgulama, tcl
IRCForumu.Net - Sponsor Bağlantılar



Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık