# 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..."