密码生成器

如果可以选择┅┅
我希望
不要来到这个世界！
太累~

-----看完文章要-----

VB连接数据库的方法1

几个DOS命令

[

2007年1月27日星期六 20:12 | by 九天狼 | 出处：本站原创 ]

大 | 中 | 小

对功能进行了升级和大量修改.
最新版源码下载:

下载文件

这个文件只能在登入之后下载。请先注册或登入

下面是旧版的
新建一个窗体,放入以下控件:()内为控件的Caption属性.
list1放在窗体最上边,label1(长度:)和text1为一组,label2(数量:)和text2为一组,lable3(位置:)和text3为一组,最后再放置一个Command1(生成)按钮.
自行将控件放置在适当的位置.
将以下代码复制到窗体代码中:

Dim TempPsdString As String
Dim tem(3) As String
Private Sub Command1_Click()
Dim i As Integer
Dim TmpStr As String
List1.Clear
Open Text3 & "pwd.txt" For Output As #1
Print ""
Close #1
For i = 0 To Text2 - 1
TmpStr = GetStr(Text1)
List1.AddItem TmpStr
Open Text3 & "pwd.txt" For Append As #1
Print #1, TmpStr
Close #1
Form1.Caption = "密码生成器" & "--已完成" & Int(i / (Text2 - 1) * 100) & "%"
Next
If MsgBox("已生成" & Text2 & "个" & Text1 & "字符的密码" & vbCr & "是否打开密码文件查看?", vbYesNo + vbInformation, "任务完成") = vbYes Then Shell "notepad.exe " & Text3 & "pwd.txt"
Form1.Caption = "密码生成器"
End Sub

Function GetStr(Index As Integer) As String
If Index < 1 Then Exit Function
Dim i As Integer
Dim TmpStr As String
For i = 1 To Index
Randomize
TmpStr = Mid(TempPsdString, Int(Len(TempPsdString) * Rnd) + 1, 1)
GetStr = GetStr + CStr(TmpStr)
Next
End Function

Private Sub Form_Load()
Text3 = App.Path
If Right(Text3, 1) <> "\" Then Text3 = Text3 & "\"
Text3 = App.Path
If Right(Text3, 1) <> "\" Then Text3 = Text3 & "\"
tem(0) = "0123456789"
tem(1) = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
tem(2) = "abcdefghijklmnopqrstuvwxyz"
tem(3) = "~!@#$%^&*()_+[]:,.<>?/*-"
TempPsdString = tem(0) + tem(1) + tem(2) + tem(3)
End Sub

高级功能:自主选择密码字符:
按上边的方法添加完控件后.再添加一个控件组:Check1,复制Check,并粘贴3次.得到一个Check1的控件数组.从Check1(0)-Check(3)
并添加以下代码到窗体代码中:

Private Sub Check1_Click(Index As Integer)
TempPsdString = ""
For i = 0 To 3
If Check1(i).Value = 1 Then TempPsdString = TempPsdString & tem(i)
Next
If TempPsdString = "" Then MsgBox "必须选择一项！": Check1(Index).Value = 1
End Sub