Domain TCL - IRC Forum , Forum Sitesi , Forumlar , Sohbet , Chat , IRCDFORUM
IRC Forum , Forum Sitesi , Forumlar , Sohbet , Chat , IRCDFORUM  


  IRC Forum , Forum Sitesi , Forumlar , Sohbet , Chat , IRCDFORUM IF - Unreal, Services ve Botlar Eggdrop, BNC ve Socket Botlar TCL Scriptler


Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 21 Mart 2015, 22:22   #1
 
No_FeaR - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 27 Ocak 2015
Bulunduğu yer: Denizli 29
Mesajlar: 136
WEB Sitesi: www.AlemTR.com
IRC Sunucusu: www.AlemTR.com
İlgi Alanı:
Alınan Beğeni: 69
Standart Domain TCL

TCL Name : Domain.TCL

İş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 ircdforum.com

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 "http://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"
Yapımcısı; rascoLn






Aynı Dünyada Yaşamamalı Cellatlar Ve Çocuklar .
Ya Ölmeli Cellatlar,Yada Hiç Doğmamalı Çocuklar...!
 No_FeaR isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Bookmarks

Etiketler
domain, tcl


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

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


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Satılık Domain SkandaL Site Satış 2 15 Aralık 2017 13:33
Domain Sitesi Superisi Web Site Tanıtımları 0 30 Eylül 2016 09:12
Domain Satış Şablonu Mathayus Domain Satış 0 27 Mart 2015 17:16
Domain Hakkında 20 Ana Terim. IdealShell Domain Firmaları 1 16 Şubat 2015 13:13
Domain Whois .tcl Ahmet TCL Scriptler 0 01 Şubat 2015 23:54


All times are GMT +3. The time now is 16:49.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.

kurtköy escort

gaziantep escort islami sohbet dini sohbet sohbet odaları türk chat


We Google