IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

istenen uzunlukta gelişigüzel rakkam ve büyük-küçük harfler içeren şifre oluşturur..

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

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