14 Kasım 2021, 12:26 | #1 |
Nerden Tcl ( Güncel )
Kodpackage 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 <Nick Yada IP>\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 -- {<span>(.*?):</span> <span>} $dt \002\\1\002:\00304 dt regsub -all -- {</span><br/>} $dt \003 dt lappend cikti [string trim $dt] return [join [tercume $cikti]] }
________________
"Fark etmek acıydı ama gerekliydi." |
|
|
14 Kasım 2021, 12:39 | #2 |
Japonca mi bu?
|
|
|
15 Ocak 2022, 09:48 | #3 |
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, Kodpackage 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 <Nick Yada IP>\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 -- {<span>(.*?):</span> <span>} $dt \002\\1\002:\00304 dt regsub -all -- {</span><br/>} $dt \003 dt lappend cikti [string trim $dt] return [join [tercume $cikti]] } Çalışacaktır.
________________
Sabrettiğimi Sanarken, Vazgeçtiğimi Öğrendim..
|
|
|
Şu anda bu konuyu görüntüleyen etkin kullanıcılar: 1 (0 üye ve 1 ziyaretçi) | |
|
|