Konuya cevap cer

Mesaj

<blockquote data-quote="Che" data-source="post: 99" data-attributes="member: 1">[CODE]# maksimum şifre uzunluğu ne olmalı :set maxpass &quot;30&quot;bind pub -|- &quot;.passwd&quot; generate:passproc generate:pass {nick uhost hand chan text} {&nbsp;&nbsp; if {[string is space [lindex [split $text] 0]]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;privmsg $chan : Kullanım şekli : $::lastbind &lt; şifre kaç haneli olsun &gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp; &nbsp; } elseif {![string is digit -strict [lindex [split $text] 0]]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;privmsg $chan :hatalı kullanım... sayı olarak girilmeliydi..&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp; &nbsp; } elseif {[lindex [split $text] 0] &gt; $::maxpass} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;privmsg $chan :Maksimum şifre uzunluğu $::maxpass olarak sınırlıdır...&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp; &nbsp; } else {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; putserv &quot;privmsg $chan :[random:pass [lindex [split $text] 0]]&quot;&nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; return}# http://wiki.tcl.tk/3757proc random:pass {length {chars &quot;ABCÇDEFGĞHIİJKLMNOÖPQRSŞTUÜVWXYZabcçdefgğhıijklmnoöpqrsştuüvwxyz0123456789&quot;}} {&nbsp; &nbsp; set range [expr {[string length $chars]-1}]&nbsp; &nbsp; set txt &quot;&quot;&nbsp; &nbsp; for {set i 0} {$i &lt; $length} {incr i} {&nbsp; &nbsp; &nbsp;&nbsp; set pos [expr {int(rand()*$range)}]&nbsp; &nbsp; &nbsp;&nbsp; append txt [string range $chars $pos $pos]&nbsp; &nbsp; }&nbsp; &nbsp; return $txt&nbsp;}&nbsp;putlog &quot;ok...&quot;[/CODE]</blockquote>

[QUOTE="Che, post: 99, member: 1"] [CODE]# maksimum şifre uzunluğu ne olmalı : set maxpass "30" bind pub -|- ".passwd" generate:pass proc generate:pass {nick uhost hand chan text} { if {[string is space [lindex [split $text] 0]]} { puthelp "privmsg $chan : Kullanım şekli : $::lastbind < şifre kaç haneli olsun >" return 0 } elseif {![string is digit -strict [lindex [split $text] 0]]} { puthelp "privmsg $chan :hatalı kullanım... sayı olarak girilmeliydi.." return 0 } elseif {[lindex [split $text] 0] > $::maxpass} { puthelp "privmsg $chan :Maksimum şifre uzunluğu $::maxpass olarak sınırlıdır..." return 0 } else { putserv "privmsg $chan :[random:pass [lindex [split $text] 0]]" } return } # http://wiki.tcl.tk/3757 proc random:pass {length {chars "ABCÇDEFGĞHIİJKLMNOÖPQRSŞTUÜVWXYZabcçdefgğhıijklmnoöpqrsştuüvwxyz0123456789"}} { set range [expr {[string length $chars]-1}] set txt "" for {set i 0} {$i < $length} {incr i} { set pos [expr {int(rand()*$range)}] append txt [string range $chars $pos $pos] } return $txt } putlog "ok..."[/CODE] [/QUOTE]

Adı

İnsan doğrulaması