黑客密码字典源码,黑客密码字典源码在哪

黑客密码字典生成器怎么用？为什么当我运行exe文件时总是出错？？我下载了好多版本，都出现了这个问题

你没看提示没有限权么，还是看看源代码哪错了，打断点调试。

黑客破解密码的字典法是怎么回事？

所谓字典就是某些常用字符

比方某些人爱用的

123

123456

admin

admin888等

把这些放到字典里

用软件对字典进行读取然后再登陆框里一个一个的试字典里的密码

直到成功登陆或者字典里的密码用完

这就是字典法破解密码

应对类似破解很简单

就是好多网站都用的验证码

vb源代码解释，解释的越详细越好，希望是高手，说我能听懂的解释。这是一个生成密码字典器源码，我是新手

Option Explicit '强制显示声明，即变量必须先定义后使用

Dim ss As String '定义变量ss是字符串型，并且默认初始值是空串

Private Sub Command1_Click() '按钮Command1单击事件

ss = ss  UCase("abcdefghijklmnopqrstuvwxyz") 'UCase函数是格式化为大写

ss = ss  "abcdefghijklmnopqrstuvwxyz"        '是字符串连接函数

ss = ss  "0123456789"

ss = ss  "~!@#$%^*()_+{}|:?[]\;',./"

'至此，ss="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789~!@#$%^*()_+{}|:?[]\;',./"

Dim passwordlen As Double        '定义变量passwordlen是双精度型，用于设定密码更大长度

Dim icount As Double             '定义变量icount是双精，

Dim s1 As String                 '定义变量s1是字符串型，

Dim i, j As Double               '定义变量i是变体型，j是双精度型

Dim count As Double              '定义变量count是双精度型号

Dim password() As String         '定义动态数组password() 是字符串型，

Dim tempstr As String            '定义变量tempstr是字符串型，

passwordlen = Val(Text1.Text)    '文本框Text1中的字符型转换为数值型，存到变量passwordlen

If passwordlen  1 Then          '当passwordlen小于1

MsgBox "请输入密码更大长度", vbInformation, "字典生成工具" '弹出对话框

Text1.SetFocus               '文本框Text1获得焦点

Exit Sub                     '退出sub过程

End If

List1.Clear                      '初始化，清空列表框List1

icount = Len(ss)                 '把字符创ss的长度值90放入变量icount

For i = 1 To icount              'for循环，初值是1，终值是90，步进是1

ReDim Preserve password(i)   '重新定义动态数组password()的下届是i（上界是0），Preserve是保留不替换

password(i) = Mid$(ss, i, 1) '数组password的每一个元素是字符串ss中第i的位置取一个

List1.AddItem password(i)    '把数组的所有元素显示到列表框List1中

Next i

For i = 2 To passwordlen         '从2到密码更大长度passwordlen

password = zuhe(password, icount, ss) '调用函数zuhe

Next i

End Sub

Public Function zuhe(temp() As String, icount As Double, ss As String) As String() '定义函数zuhe

'有3个自变量：数组temp()是字符串型，icount是双精确型， ss是字符串型

Dim count As Double         '定义变量count是双精度型

Dim s1 As String            '定义变量s1是字符串型，

Dim i As Double             '定义变量i是双精度型

Dim j As Double             '定义变量j是双精度型

count = UBound(temp)        '把数组temp() 的下届存到变量count

Dim password() As String    '定义数组password()是字符串型，

Dim iindex As Double        '定义变量iindex是双精度型

iindex = 1                  '给iindex赋予初值1

Dim tempstr As String       '定义变量tempstr是字符串型，

For i = 1 To count

For j = 1 To icount

s1 = Mid$(ss, j, 1) 'mid函数是从字符串ss中第j位取1位，然后赋值给变量s1

DoEvents            '延时函数，防止程序假死的，

ReDim Preserve password(iindex) '重新定义动态数组password()

password(iindex) = temp(i)  s1 '数组temp(i)和字符串s1连接后赋值给数组password()

List1.AddItem password(iindex)  '把数组password()的元素显示在列表框List1里面

Next j

Next i

zuhe = password '把数组password赋值给变量zuhe，作为本函数的函数值

End Function