Konuya cevap cer

Mesaj

<blockquote data-quote="Che" data-source="post: 103" data-attributes="member: 1">[CODE]# kanal/lar üstünde aktif etmek için ,# botunuza DCC/telnet ile bağlanın ve :# .chanset #kanal +pinging# IPv4 ping istek komut/ları :set pcmds &quot;p ping pingin pinging&quot;# IPv6 istek komut/ları :set p6cmd &quot;p6 ping6&quot;# komut/ların başına gelecek sembol/işaret/triggerset ptrig &quot;.&quot;# komut/ları kullanma erişimi olacak kullanıcı flaglarıset pflags &quot;-|-&quot;# herbir kişi için,yeniden komut/ları kullanabilmesi için,arada beklemesi gereken süre: (saniye)set pflud &quot;10&quot;# ayarlar bitti #proc ping6_pub {nick uhost hand chan text} {&nbsp; &nbsp; &nbsp;&nbsp; if {![channel get $chan pinging]} { return }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set user [lindex [split $uhost &quot;@&quot;] 1]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if {[throttled $user,$chan $::pflud]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;notice $nick :\002Flood algılandı !!!\002 - \&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; \00314[expr {[clock seconds] - $::throttled($user,$chan)}] saniye sonra deneyin...\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; &nbsp;&nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; if {[llength [lindex [split $text] 0]] eq &quot;0&quot;} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;notice $nick :Kullanımı :\002$::lastbind \00304&lt;\003 IPv6 adresi / IPv6 hostu / nick \00304&gt;\003\002&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if {[string match &quot;*:*:*&quot; [lindex [split $text] 0]]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; set cmd &quot;ping6 -c 3 [lindex [split $text] 0]&quot;&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if {[string match -nocase &quot;*.*&quot; [lindex [split $text] 0]]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; set host &quot;host -t AAAA [lindex [split $text] 0]&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; catch { eval exec $host } out&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; foreach lines [split $out &quot;\n&quot;] {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if {[regexp {has IPv6 address ([^\s]+)} $lines - ipv]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if {[info exists ipv] eq &quot;1&quot;} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; set cmd &quot;ping6 -c 3 $ipv&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; putlog &quot;$ipv&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; } else {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; puthelp &quot;privmsg $chan :[lindex [split $text] 0] geçerli ipv6 adresi değil...&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if {![string match &quot;*.*&quot; [lindex [split $text] 0]] &amp;&amp; \&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [onchan [lindex [split $text] 0] $chan] &amp;&amp; \&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [string match &quot;*.*&quot; [lindex [split [getchanhost [lindex [split $text] 0] $chan] &quot;@&quot;] 1]]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; set target [lindex [split [getchanhost [lindex [split $text] 0] $chan] &quot;@&quot;] 1]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; set host &quot;host -t AAAA $target&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; putlog &quot;$target&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; catch { eval exec $host } out&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; foreach lines [split $out &quot;\n&quot;] {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if {[regexp {has IPv6 address ([^\s]+)} $lines - ipv]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if {[info exists ipv] eq &quot;1&quot;} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; set cmd &quot;ping6 -c 3 $ipv&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; putlog &quot;$ipv&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; } else {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; puthelp &quot;privmsg $chan :$target geçerli ipv6 adresi değil...&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if {![string match &quot;*.*&quot; [lindex [split $text] 0]] &amp;&amp; \&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; [onchan [lindex [split $text] 0] $chan] &amp;&amp; \&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; [string match &quot;*:*:*&quot; [lindex [split [getchanhost [lindex [split $text] 0] $chan] &quot;@&quot;] 1]]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; set target [lindex [split [getchanhost [lindex [split $text] 0] $chan] &quot;@&quot;] 1]&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; set i 0&nbsp; &nbsp;&nbsp; catch { eval exec $cmd } output&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; foreach line [split $output &quot;\n&quot;] {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;privmsg $chan :\00303$line\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; incr i&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp;&nbsp; return 0}# http://is.gd/SVU9r1proc throttled {id time} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; global throttled &nbsp; &nbsp; &nbsp; if {[info exists throttled($id)]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return 1&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; } {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set throttled($id) [clock seconds]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; utimer $time [list unset throttled($id)]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; }&nbsp;}foreach bind [split $pcmds &quot; &quot;] {&nbsp; &nbsp;&nbsp; bind pub $pflags $ptrig$bind pingin_pub}foreach bind [split $p6cmd &quot; &quot;] {&nbsp; &nbsp;&nbsp; bind pub $pflags $ptrig$bind ping6_pub}setudef flag pingingproc pingin_pub {nick uhost hand chan text} {&nbsp; if {![channel get $chan pinging]} { return }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; set user [lindex [split $uhost &quot;@&quot;] 1]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if {[throttled $user,$chan $::pflud]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;notice $nick :\002Flood algılandı !!!\002 - \&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; \00314[expr {[clock seconds] - $::throttled($user,$chan)}] saniye sonra deneyin...\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; &nbsp;&nbsp; }&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set target [lindex [split $text] 0]&nbsp; &nbsp; &nbsp; if {[llength $target] eq &quot;0&quot;} {&nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;notice $nick :Kullanımı :\002$::lastbind \00304&lt;\003 IP / host / nick \00304&gt;\003\002&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp;&nbsp; }&nbsp; if {![string match &quot;*.*&quot; [lindex [split $text] 0]] &amp;&amp; [onchan [lindex [split $text] 0] $chan]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set target [lindex [split [getchanhost [lindex [split $text] 0] $chan] &quot;@&quot;] 1]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; putlog &quot;$target&quot;&nbsp; &nbsp;&nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set i 0&nbsp; &nbsp; &nbsp; set cmd &quot;ping -c 3 $target&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; catch { eval exec $cmd } output&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; foreach line [split $output &quot;\n&quot;] {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; regsub -all -- {^[0-9]+} $line {\00303^[0-9]+\003} line&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set line [string map {&quot;PING&quot; &quot;\002PING\002&quot; $ \002(\002 $ \002)\002} $line]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;privmsg $chan :\00303$line\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; incr i&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp;&nbsp; return 0}putlog &quot;ok...&quot;[/CODE]</blockquote>

[QUOTE="Che, post: 103, member: 1"] [CODE]# kanal/lar üstünde aktif etmek için , # botunuza DCC/telnet ile bağlanın ve : # .chanset #kanal +pinging # IPv4 ping istek komut/ları : set pcmds "p ping pingin pinging" # IPv6 istek komut/ları : set p6cmd "p6 ping6" # komut/ların başına gelecek sembol/işaret/trigger set ptrig "." # komut/ları kullanma erişimi olacak kullanıcı flagları set pflags "-|-" # herbir kişi için,yeniden komut/ları kullanabilmesi için,arada beklemesi gereken süre: (saniye) set pflud "10" # ayarlar bitti # proc ping6_pub {nick uhost hand chan text} { if {![channel get $chan pinging]} { return } set user [lindex [split $uhost "@"] 1] if {[throttled $user,$chan $::pflud]} { puthelp "notice $nick :\002Flood algılandı !!!\002 - \ \00314[expr {[clock seconds] - $::throttled($user,$chan)}] saniye sonra deneyin...\003" return } if {[llength [lindex [split $text] 0]] eq "0"} { puthelp "notice $nick :Kullanımı :\002$::lastbind \00304<\003 IPv6 adresi / IPv6 hostu / nick \00304>\003\002" return 0 } if {[string match "*:*:*" [lindex [split $text] 0]]} { set cmd "ping6 -c 3 [lindex [split $text] 0]" } if {[string match -nocase "*.*" [lindex [split $text] 0]]} { set host "host -t AAAA [lindex [split $text] 0]" catch { eval exec $host } out foreach lines [split $out "\n"] { if {[regexp {has IPv6 address ([^\s]+)} $lines - ipv]} { if {[info exists ipv] eq "1"} { set cmd "ping6 -c 3 $ipv" putlog "$ipv" } else { puthelp "privmsg $chan :[lindex [split $text] 0] geçerli ipv6 adresi değil..." } } } } if {![string match "*.*" [lindex [split $text] 0]] && \ [onchan [lindex [split $text] 0] $chan] && \ [string match "*.*" [lindex [split [getchanhost [lindex [split $text] 0] $chan] "@"] 1]]} { set target [lindex [split [getchanhost [lindex [split $text] 0] $chan] "@"] 1] set host "host -t AAAA $target" putlog "$target" catch { eval exec $host } out foreach lines [split $out "\n"] { if {[regexp {has IPv6 address ([^\s]+)} $lines - ipv]} { if {[info exists ipv] eq "1"} { set cmd "ping6 -c 3 $ipv" putlog "$ipv" } else { puthelp "privmsg $chan :$target geçerli ipv6 adresi değil..." } } } } if {![string match "*.*" [lindex [split $text] 0]] && \ [onchan [lindex [split $text] 0] $chan] && \ [string match "*:*:*" [lindex [split [getchanhost [lindex [split $text] 0] $chan] "@"] 1]]} { set target [lindex [split [getchanhost [lindex [split $text] 0] $chan] "@"] 1] } set i 0 catch { eval exec $cmd } output foreach line [split $output "\n"] { puthelp "privmsg $chan :\00303$line\003" incr i } return 0 } # http://is.gd/SVU9r1 proc throttled {id time} { global throttled if {[info exists throttled($id)]} { return 1 } { set throttled($id) [clock seconds] utimer $time [list unset throttled($id)] return 0 } } foreach bind [split $pcmds " "] { bind pub $pflags $ptrig$bind pingin_pub } foreach bind [split $p6cmd " "] { bind pub $pflags $ptrig$bind ping6_pub } setudef flag pinging proc pingin_pub {nick uhost hand chan text} { if {![channel get $chan pinging]} { return } set user [lindex [split $uhost "@"] 1] if {[throttled $user,$chan $::pflud]} { puthelp "notice $nick :\002Flood algılandı !!!\002 - \ \00314[expr {[clock seconds] - $::throttled($user,$chan)}] saniye sonra deneyin...\003" return } set target [lindex [split $text] 0] if {[llength $target] eq "0"} { puthelp "notice $nick :Kullanımı :\002$::lastbind \00304<\003 IP / host / nick \00304>\003\002" return 0 } if {![string match "*.*" [lindex [split $text] 0]] && [onchan [lindex [split $text] 0] $chan]} { set target [lindex [split [getchanhost [lindex [split $text] 0] $chan] "@"] 1] putlog "$target" } set i 0 set cmd "ping -c 3 $target" catch { eval exec $cmd } output foreach line [split $output "\n"] { regsub -all -- {^[0-9]+} $line {\00303^[0-9]+\003} line set line [string map {"PING" "\002PING\002" $ \002(\002 $ \002)\002} $line] puthelp "privmsg $chan :\00303$line\003" incr i } return 0 } putlog "ok..."[/CODE] [/QUOTE]

Adı

İnsan doğrulaması