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

原创 2006年05月30日 10:49:00
闲着无聊,编写了一个生成密码字典的小程序,做为学习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
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

Tcl控制台测试程序

  • 2011-02-10 15:21
  • 3.42MB
  • 下载

TCL控制台测试程序

  • 2011-04-21 14:54
  • 3.45MB
  • 下载

USB接口IC读写器oem软件_AB密码完整解决方案/读写卡测试程序及源代码/网页例程

代码如下                    USB IC 卡读卡器控件调用例程 V1.0 -- 广州荣士电子    ...

Tcl控制台测试程序

  • 2012-09-08 18:33
  • 3.22MB
  • 下载

USB接口IC读写器oem软件_AB密码完整解决方案/读写卡测试程序及源代码/VB.NET2003源代码

界面图     详细代码  Public Class Form1    Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成...

Tcl控制台测试程序

  • 2010-04-14 22:50
  • 3.82MB
  • 下载

Tcl控制台测试程序

  • 2011-01-27 12:55
  • 3.22MB
  • 下载

USB接口IC读写器oem软件_AB密码完整解决方案/读写卡测试程序及源代码/c++builder源代码(2)

界面图    详细代码如下:    //---------------------------------------------------------------------------//广州荣...

USB接口IC读写器oem软件_AB密码完整解决方案/读写卡测试程序及源代码/powerbuilder源代码

界面      详细代码如下: $PBExportHeader$w_test.srw$PBExportComments$ST-803U读写器forwardglobal type w_test from...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)