关闭

用TCL编写了一个生成密码字典的小测试程序,共享一下

2630人阅读 评论(1) 收藏 举报
闲着无聊,编写了一个生成密码字典的小程序,做为学习tcl的一个阶段性总结。
可以生成包含dictChar任意组合的字符,密码长度也可以设置。
在debian下使用tclsh8.4测试通过。


#! /usr/bin/tclsh

#************************************************
# Password Dictionary Generator
# Just for learning, by easwy, Mar 31, 2006
#
# len - the length of password
#
# RETURN
#    none, password group in file $dictName
#************************************************
proc genDict {len} {
    # chars in password
    set dictChar "abcdefghijklmnopqrstuvwxyz"
    # count of chars
    set charCnt [string length $dictChar]
    # last item's index in array a
    set last [expr "$len - 1"]
    # dictionary file name
    set dictName "passwd.txt"

    # initial array a
    for {set i 0} {$i < $len} {incr i} {
        set a($i) 0
    }

    # open dictionary file
    set dictFile [open "passwd.txt" w]

    # starting...
    while {true} {
        # construct new passwd
        set passwd ""
        for {set i 0} {$i < $len} {incr i} {
            # append char which index is $a($i) to passwd str
            set passwd "$passwd[string index $dictChar $a($i)]"
        }

        # output passwd
        puts $dictFile $passwd

        # incr last char's index
        incr a($last)

        # update all indices
        for {set i $last} {$i > 0} {incr i -1} {
            if {$a($i) >= $charCnt} {
                set a($i) 0
                set ind [expr "$i - 1"]
                incr a($ind)
            }
        }

        # exit
        if {$a(0) >= $charCnt} {break}
    }

    close $dictFile
}

# generate passwd string, len 3
genDict 3
1
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:529582次
    • 积分:6030
    • 等级:
    • 排名:第4164名
    • 原创:58篇
    • 转载:1篇
    • 译文:11篇
    • 评论:286条
    文章分类
    最新评论