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