combination.bas
来自「黑客字典的制作,和流光一样完整.字典可以自定义」· BAS 代码 · 共 376 行 · 第 1/2 页
BAS
376 行
For Cd = 0 To Max - Ca - Cb - Cc
For Cbi = 0 To Max - Ca - Cb - Cc - Cd - 5
OpenForms = DoEvents
NoOfComb = NoOfComb + 1
comb = char(Cbi) & char(Cbi + Ca + 1) & char(Cbi + Ca + Cb + 2) & char(Cbi + Ca + Cb + Cc + 3) & char(Cbi + Ca + Cb + Cc + Cd + 4)
If frmMain.optCPMode.Value = True Then
permute (comb)
Else
Select Case OChoice
Case 1:
result = result & vbCrLf & comb
Case 2:
Print #1, comb
Case 3:
SendKeys comb: BFInitialise
Case 4:
processcode (comb)
End Select
End If
'NoOfComb = NoOfComb + 1
'Debug.Print comb, NoOfComb
Next Cbi
Next Cd
Next Cc
Next Cb
Next Ca
Case 6:
For Ca = 0 To Max
OpenForms = DoEvents
For Cb = 0 To Max - Ca
For Cc = 0 To Max - Ca - Cb
OpenForms = DoEvents
For Cd = 0 To Max - Ca - Cb - Cc
For Ce = 0 To Max - Ca - Cb - Cc - Cd
OpenForms = DoEvents
For Cbi = 0 To Max - Ca - Cb - Cc - Cd - Ce - 6
NoOfComb = NoOfComb + 1
comb = char(Cbi) & char(Cbi + Ca + 1) & char(Cbi + Ca + Cb + 2) & char(Cbi + Ca + Cb + Cc + 3) & char(Cbi + Ca + Cb + Cc + Cd + 4) & char(Cbi + Ca + Cb + Cc + Cd + Ce + 5)
If frmMain.optCPMode.Value = True Then
permute (comb)
Else
Select Case OChoice
Case 1:
result = result & vbCrLf & comb
Case 2:
Print #1, comb
Case 3:
SendKeys comb: BFInitialise
Case 4:
processcode (comb)
End Select
'NoOfComb = NoOfComb + 1
'Debug.Print comb, NoOfComb
End If
Next Cbi
Next Ce
Next Cd
Next Cc
Next Cb
Next Ca
Case 7:
For Ca = 0 To Max
OpenForms = DoEvents
For Cb = 0 To Max - Ca
For Cc = 0 To Max - Ca - Cb
OpenForms = DoEvents
For Cd = 0 To Max - Ca - Cb - Cc
For Ce = 0 To Max - Ca - Cb - Cc - Cd
OpenForms = DoEvents
For Cf = 0 To Max - Ca - Cb - Cc - Cd - Ce
For Cbi = 0 To Max - Ca - Cb - Cc - Cd - Ce - Cf - 7
OpenForms = DoEvents
NoOfComb = NoOfComb + 1
comb = char(Cbi) & char(Cbi + Ca + 1) & char(Cbi + Ca + Cb + 2) & char(Cbi + Ca + Cb + Cc + 3) & char(Cbi + Ca + Cb + Cc + Cd + 4) & char(Cbi + Ca + Cb + Cc + Cd + Ce + 5) & char(Cbi + Ca + Cb + Cc + Cd + Ce + Cf + 6)
If frmMain.optCPMode.Value = True Then
permute (comb)
Else
Select Case OChoice
Case 1:
result = result & vbCrLf & comb
Case 2:
Print #1, comb
Case 3:
SendKeys comb: BFInitialise
Case 4:
processcode (comb)
End Select
'NoOfComb = NoOfComb + 1
'Debug.Print comb, NoOfComb
End If
Next Cbi
Next Cf
Next Ce
Next Cd
Next Cc
Next Cb
Next Ca
Case 8:
For Ca = 0 To Max
OpenForms = DoEvents
For Cb = 0 To Max - Ca
For Cc = 0 To Max - Ca - Cb
OpenForms = DoEvents
For Cd = 0 To Max - Ca - Cb - Cc
For Ce = 0 To Max - Ca - Cb - Cc - Cd
OpenForms = DoEvents
For Cf = 0 To Max - Ca - Cb - Cc - Cd - Ce
For Cg = 0 To Max - Ca - Cb - Cc - Cd - Ce - Cf
For Cbi = 0 To Max - Ca - Cb - Cc - Cd - Ce - Cf - Cg - 8
OpenForms = DoEvents
NoOfComb = NoOfComb + 1
comb = char(Cbi) & char(Cbi + Ca + 1) & char(Cbi + Ca + Cb + 2) & char(Cbi + Ca + Cb + Cc + 3) & char(Cbi + Ca + Cb + Cc + Cd + 4) & char(Cbi + Ca + Cb + Cc + Cd + Ce + 5) & char(Cbi + Ca + Cb + Cc + Cd + Ce + Cf + 6) & char(Cbi + Ca + Cb + Cc + Cd + Ce + Cf + Cg + 7)
If frmMain.optCPMode.Value = True Then
permute (comb)
Else
Select Case OChoice
Case 1:
result = result & vbCrLf & comb
Case 2:
Print #1, comb
Case 3:
SendKeys comb: BFInitialise
Case 4:
processcode (comb)
End Select
'NoOfComb = NoOfComb + 1
'Debug.Print comb, NoOfComb
End If
Next Cbi
Next Cg
Next Cf
Next Ce
Next Cd
Next Cc
Next Cb
Next Ca
Case 9:
For Ca = 0 To Max
OpenForms = DoEvents
For Cb = 0 To Max - Ca
For Cc = 0 To Max - Ca - Cb
For Cd = 0 To Max - Ca - Cb - Cc
For Ce = 0 To Max - Ca - Cb - Cc - Cd
For Cf = 0 To Max - Ca - Cb - Cc - Cd - Ce
For Cg = 0 To Max - Ca - Cb - Cc - Cd - Ce - Cf
For Ch = 0 To Max - Ca - Cb - Cc - Cd - Ce - Cf - Cg
For Cbi = 0 To Max - Ca - Cb - Cc - Cd - Ce - Cf - Cg - Ch - 9
OpenForms = DoEvents
NoOfComb = NoOfComb + 1
comb = char(Cbi) & char(Cbi + Ca + 1) & char(Cbi + Ca + Cb + 2) & char(Cbi + Ca + Cb + Cc + 3) & char(Cbi + Ca + Cb + Cc + Cd + 4) & char(Cbi + Ca + Cb + Cc + Cd + Ce + 5) & char(Cbi + Ca + Cb + Cc + Cd + Ce + Cf + 6) & char(Cbi + Ca + Cb + Cc + Cd + Ce + Cf + Cg + 7) & char(Cbi + Ca + Cb + Cc + Cd + Ce + Cf + Cg + Ch + 8)
If frmMain.optCPMode.Value = True Then
permute (comb)
Else
Select Case OChoice
Case 1:
result = result & vbCrLf & comb
Case 2:
Print #1, comb
Case 3:
SendKeys comb: BFInitialise
Case 4:
processcode (comb)
End Select
'NoOfComb = NoOfComb + 1
'Debug.Print comb, NoOfComb
End If
Next Cbi
Next Ch
Next Cg
Next Cf
Next Ce
Next Cd
Next Cc
Next Cb
Next Ca
End Select
frmMain.txtStatus.Text = result
'Debug.Print Len(result) / (cho + 2)
Debug.Print "Total No of combinations processed"; NoOfComb
Debug.Print StartTime, "Started"
Debug.Print Time, "Ended"
Debug.Print "Over"
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?