module1.bas

来自「很好的教程原代码！」· BAS 代码 · 共 26 行

Attribute VB_Name = "Module1"
'局域网络密码探测器
'(探测局域网络上工作站上的共享目录的密码)
'本例旨在说明原理,未做界面，
'感兴趣的网友可自行完善.
'采用穷举法,从1位至8位  , 对于简单密码例如:
'aa  , ab,    bb 可很快探测到,否则程序运行时间
'会很长,比较长的密码例如8位可能需要几天的时间.
'可以再进行一些优化处理.例如只探测字母，'
'只探测数字，探测字母与数字，从几位密码开始探测等。
' 或者利用现成的辞典

Option Explicit
Public Declare Function WNetAddConnection Lib _
    "mpr.dll" Alias "WNetAddConnectionA" (ByVal _
    lpszNetPath As String, ByVal lpszPassword _
    As String, ByVal lpszLocalName As String) As Long
Public Ok As Long
Public Max As Integer   '密码字符总数  可更改至 64

Public Sub Main()
    Max = 36
    frmMain.Show
End Sub