Konuya cevap cer

Mesaj

<blockquote data-quote="Che" data-source="post: 79" data-attributes="member: 1">[CODE]package require httpbind pub mnf|oa .ip getipproc getip {nick uhost hand chan arg} {&nbsp; &nbsp; if {![llength [lindex [split $arg] 0]]} {&nbsp; &nbsp; &nbsp; &nbsp; putmsg $chan &quot;Kullanımı: \00303$::lastbind &lt;Nick Yada IP&gt;\003 olmalı!&quot;&nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp; } elseif {[onchan [lindex [split $arg] 0] $chan] &amp;&amp;\&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [regexp -- {^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$} [lindex [split [getchanhost [lindex [split $arg] 0]] @] 1]]} {&nbsp; &nbsp; &nbsp; &nbsp; set albil [baglan [lindex [split [getchanhost [lindex [split $arg] 0]] @] 1]]&nbsp; &nbsp; &nbsp; &nbsp; putmsg $chan $albil&nbsp; &nbsp; } elseif {[regexp -- {^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$} [lindex [split $arg] 0] -&gt; ip]} {&nbsp; &nbsp; &nbsp; &nbsp; set albil [baglan $ip]&nbsp; &nbsp; &nbsp; &nbsp; putmsg $chan $albil&nbsp; &nbsp; } else {&nbsp; &nbsp; &nbsp; &nbsp; putmsg $chan &quot;\&quot;[lindex [split $arg] 0]\&quot; Geçerli bir IP/Nick değil ${nick}!&quot;&nbsp; &nbsp; }&nbsp; &nbsp; return 0}proc tercume str {&nbsp; &nbsp; &nbsp; &nbsp; string map -nocase [list Hostname Host\&nbsp; &nbsp; &nbsp; &nbsp; Continent Kıta City Şehir\&nbsp; &nbsp; &nbsp; &nbsp; Country Ülke Code Kodu Region Bölgesi\&nbsp; &nbsp; &nbsp; &nbsp; Organization Organizasyon Longitude Boylam Latitude Enlem\&nbsp; &nbsp; &nbsp; &nbsp; Mobile Mobil Proxy Proksi Turkey Türkiye false yanlış\&nbsp; &nbsp; &nbsp; &nbsp; &amp;amp\; &amp; Germany Almanya Europe Avrupa Asia Asya] $str}proc baglan ip {&nbsp; &nbsp; set tok [http::geturl http://igs.gevezeyiz.net/bilgi.php?ip=$ip]&nbsp; &nbsp; set dt [http::data $tok]&nbsp; &nbsp; ::http::cleanup $tok&nbsp; &nbsp; regsub -all -- {\n} $dt { } dt&nbsp; &nbsp; regsub -all -- {&lt;span&gt;(.*?):&lt;/span&gt; &lt;span&gt;} $dt \002\\1\002:\00304 dt&nbsp; &nbsp; regsub -all -- {&lt;/span&gt;&lt;br/&gt;} $dt \003 dt&nbsp; &nbsp; lappend cikti [string trim $dt]&nbsp; &nbsp; return [join [tercume $cikti]]}[/CODE]</blockquote>

[QUOTE="Che, post: 79, member: 1"] [CODE]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 <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ış\ &amp\; & 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]] }[/CODE] [/QUOTE]

Adı

İnsan doğrulaması