- -
Nerden Tcl ( Güncel )
(
https://www.ircforumu.org/genel-ircd-sunucu-servis-botlar-korumalar/25819-nerden-tcl-guncel.html)
| Mahrez |
14 Kasım 2021 12:26 |
Nerden Tcl ( Güncel )
Kod:
package require http
bind pub mnf|oa .ip getip
proc getip {nick uhost hand chan arg} {
if {![llength [lindex [split $arg] 0]]} {
putmsg $chan "Kullanımı: \00303$::lastbind \003 olmalı!"
return 0
} elseif {[onchan [lindex [split $arg] 0] $chan] &&\
[regexp -- {^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$} [lindex [split [getchanhost [lindex [split $arg] 0]] @] 1]]} {
set albil [baglan [lindex [split [getchanhost [lindex [split $arg] 0]] @] 1]]
putmsg $chan $albil
} elseif {[regexp -- {^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$} [lindex [split $arg] 0] -> ip]} {
set albil [baglan $ip]
putmsg $chan $albil
} else {
putmsg $chan "\"[lindex [split $arg] 0]\" Geçerli bir IP/Nick değil ${nick}!"
}
return 0
}
proc tercume str {
string map -nocase[list Hostname Host\
Continent Kıta City Şehir\
Country Ülke Code Kodu Region Bölgesi\
Organization Organizasyon Longitude Boylam Latitude Enlem\
Mobile Mobil Proxy Proksi Turkey Türkiye false yanlış\
&\; & Germany Almanya Europe Avrupa Asia Asya] $str
}
proc baglan ip {
set tok [http::geturl http://igs.gevezeyiz.net/bilgi.php?ip=$ip]
set dt [http::data $tok]
::http::cleanup $tok
regsub -all -- {\n} $dt { } dt
regsub -all -- {(.*?): } $dt \002\\1\002:\00304 dt
regsub -all -- {
} $dt \003 dt
lappend cikti [string trim $dt]
return [join [tercume $cikti]]
}
|
| Prencies |
14 Kasım 2021 12:39 |
Japonca mi bu? :gazate
|
| No_FeaR |
15 Ocak 2022 09:48 |
Uzun aradan sonra Herkese Tekrardan Merhabalar.. ^_^
Gönlü Güzel insanların yapmış olduğu TCL'dir. mIRC Bot Remotesinden Esinlenip yapmıştır.
Kısaca Özetlemek gerekirse.
Yapımıcısı ; Heartbroken
Kanal'daki Nick Yada IP Sorgulayabilirsiniz.
Kod verecek olursak ise,
Kod:
package require http
bind pub mnf|oa .ip getip
proc getip {nick uhost hand chan arg} {
if {![llength [lindex [split $arg] 0]]} {
putmsg $chan "Kullanımı: \00303$::lastbind \003 olmalı!"
return 0
} elseif {[onchan [lindex [split $arg] 0] $chan] &&\
[regexp -- {^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$} [lindex [split [getchanhost [lindex [split $arg] 0]] @] 1]]} {
set albil [baglan [lindex [split [getchanhost [lindex [split $arg] 0]] @] 1]]
putmsg $chan $albil
} elseif {[regexp -- {^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$} [lindex [split $arg] 0] -> ip]} {
set albil [baglan $ip]
putmsg $chan $albil
} else {
putmsg $chan "\"[lindex [split $arg] 0]\" Geçerli bir IP/Nick değil ${nick}!"
}
return 0
}
proc tercume str {
string map -nocase[list Hostname Host\
Continent Kıta City Şehir\
Country Ülke Code Kodu Region Bölgesi\
Organization Organizasyon Longitude Boylam Latitude Enlem\
Mobile Mobil Proxy Proksi Turkey Türkiye false yanlış\
&\; & Germany Almanya Europe Avrupa Asia Asya] $str
}
proc baglan ip {
set tok [http::geturl http://igs.gevezeyiz.net/bilgi.php?ip=$ip]
set dt [http::data $tok]
::http::cleanup $tok
regsub -all -- {\n} $dt { } dt
regsub -all -- {(.*?): } $dt \002\\1\002:\00304 dt
regsub -all -- {
} $dt \003 dt
lappend cikti [string trim $dt]
return [join [tercume $cikti]]
}
Eggdrop botunuzda nerden.tcl şeklinde ekleme yaparsınız.
Çalışacaktır.
|
| Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:38. |
|
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO ©2011, Crawlability, Inc.
