📄 frmmain.frm
字号:
Caption = "Not sure whether All smaller words is compatible with the all damned words option. I have to check it out."
Height = 495
Left = 120
TabIndex = 100
Top = 1800
Width = 4095
End
Begin VB.Label Label22
Caption = $"frmMain.frx":1564
Height = 855
Left = 120
TabIndex = 99
Top = 960
Width = 4095
End
Begin VB.Label Label15
Caption = $"frmMain.frx":161C
Height = 615
Left = 120
TabIndex = 88
Top = 240
Width = 4095
End
End
Begin VB.Frame frmAboutMisc
Caption = "Miscelaneous"
Height = 855
Left = -74850
TabIndex = 85
Top = 450
Width = 4335
Begin VB.Label Label16
Caption = "Time spent ont this program: Three days: Dec 29, 30, 31, 1999, 15th Jan 2000"
Height = 375
Left = 120
TabIndex = 86
Top = 240
Width = 3975
End
End
Begin VB.Frame frmAboutDedication
Caption = "Dedication"
Height = 855
Left = -74850
TabIndex = 83
Top = 1440
Width = 4335
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "To Someone whom i still love very much even though i have every reason to hate her."
ForeColor = &H000000C0&
Height = 495
Left = 120
TabIndex = 84
Top = 240
Width = 3855
End
End
Begin VB.Label Label31
Caption = "Version 3: Implemented the Dict mod which i forgot to include earlier."
Height = 1095
Left = -74880
TabIndex = 113
Top = 2160
Width = 4575
End
Begin VB.Label Label30
Caption = $"frmMain.frx":16B5
Height = 975
Left = -74880
TabIndex = 112
Top = 1080
Width = 4575
End
Begin VB.Label Label29
Caption = "Version 1 : Just contained a basic demonstration of the sendkeys concept and the input was just based on a dictionary attack"
Height = 615
Left = -74880
TabIndex = 111
Top = 480
Width = 4575
End
Begin VB.Label Label26
Caption = $"frmMain.frx":17CC
Height = 1215
Left = -74760
TabIndex = 103
Top = 2280
Width = 4455
End
Begin VB.Label Label25
Caption = $"frmMain.frx":190C
Height = 615
Left = -74760
TabIndex = 102
Top = 1680
Width = 4455
End
Begin VB.Label Label24
Caption = $"frmMain.frx":19A2
Height = 1215
Left = -74760
TabIndex = 101
Top = 480
Width = 4455
End
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Source code developed by Joseph Ninan
'2nd Year BTech Computer Science and Engineering
'Sree Chitra Thirunal College of Engineering
'Papanamcode, Trivandrum-18
'Affliated to University of Kerala
'Residential Address
'Liju Bhavan, Muttampuram Lane, Sreekariyam PO
'Trivandrum
'Kerala state
'India
'PIN 695017
'Tel No 0091-471-449977
'email josephninan@crosswinds.net liju_trv@yahoo.com
'Web Site http://www.jofu.8m.com
Private Sub cmdBkSp_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{BACKSPACE}"
End Sub
Private Sub cmdCAPS_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{CAPSLOCK}"
End Sub
Private Sub cmdCaret_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{^}"
End Sub
Private Sub cmdClear_Click()
result = ""
frmMain.txtStatus.Text = ""
End Sub
Private Sub cmdDel_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{DELETE}"
End Sub
Private Sub cmdDown_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{DOWN}"
End Sub
Private Sub cmdEnd_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{END}"
End Sub
Private Sub cmdEnter_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{ENTER}"
End Sub
Private Sub cmdEscape_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{ESC}"
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdGenerate_Click()
StartTime = Time
leng = Val(frmMain.txtLength.Text)
Initialize
readinput ' The results of this function are stored in char(0 to totalchar-1)
Select Case OChoice
Case 1:
'frmMain.txtStatus.Text = ""
Case 2:
If optOverWrite.Value = True Then
Open frmMain.txtFilename.Text For Output As #1
Else
Open frmMain.txtFilename.Text For Append As #1
End If
Case 3:
dummy = MsgBox("Change the active window within the three seconds after pressing OK", vbOKOnly, "Bruteforce Alert")
curtime = Timer
While (Timer - curtime) < 3
DoEvents
Wend
End Select
If chkDict.Value = 1 Then
dictmodule
Exit Sub
End If
If optFixed.Value = True Then
GenOutput (leng) ' This function uses the letters in char(1 to totalchar-1) to make combinations of length frmmain.txtlength.text
Else
For MainCount = 1 To leng
GenOutput (MainCount)
Next MainCount
End If
'Timer1.Enabled = False
Select Case OChoice
Case 2:
Close #1
End Select
End Sub
Public Sub readinput()
TotalChar = 0
NextBlock = 0
If chkAllUp.Value = 1 Then
For i = 1 To TOTALUP
char(NextBlock) = Chr(64 + i)
NextBlock = NextBlock + 1
Next i
End If
If chkAllLow.Value = 1 Then
For i = 1 To TOTALLOW
char(NextBlock) = Chr(96 + i)
NextBlock = NextBlock + 1
Next i
End If
If chkAllDigits.Value = 1 Then
For i = 1 To TOTALDIGITS
char(NextBlock) = Chr(47 + i)
NextBlock = NextBlock + 1
Next i
End If
If chkExcludeCC.Value = 1 Then ASCIIStart = 32 Else ASCIIStart = 0
Counter = 0
If chkAll127.Value = 1 Then
For i = ASCIIStart To 127
char(Counter) = Chr(i)
Counter = Counter + 1
Next i
NextBlock = Counter
End If
Counter = 0
If chkAll255.Value = 1 Then
For i = ASCIIStart To 255
char(Counter) = Chr(i)
Counter = Counter + 1
Next i
NextBlock = Counter
End If
If chkCustom.Value = 1 Then
For i = 1 To Len(frmMain.txtcustom.Text)
char(NextBlock) = Mid(frmMain.txtcustom.Text, i, 1)
NextBlock = NextBlock + 1
Next i
End If
TotalChar = NextBlock - 1
If chkAllPossibleMode.Value = True Then
L = Val(txtLength.Text)
For i = TotalChar + 1 To (TotalChar + 1) * L
char(i) = char(i - TotalChar - 1)
Next i
TotalChar = (TotalChar + 1) * L - 1
End If
Debug.Print
Debug.Print "The next set of debug results"
For i = 0 To TotalChar: Debug.Print char(i); ;: Next i
Debug.Print
Debug.Print "Total 0 - "; TotalChar
End Sub
Private Sub cmdHome_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{HOME}"
End Sub
Private Sub cmdIns_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{INSERT}"
End Sub
Private Sub cmdLeft_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{LEFT}"
End Sub
Private Sub cmdPercent_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{%}"
End Sub
Private Sub cmdPgDn_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{PGDN}"
End Sub
Private Sub cmdPgUp_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{PGUP}"
End Sub
Private Sub cmdPlus_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{+}"
End Sub
Private Sub cmdRefresh_Click()
readinput
n = Val(TotalChar + 1)
r = Val(txtLength.Text)
txtNoComb.Text = Factorial(n) / Factorial(n - r) / Factorial(r)
txtNoPerm.Text = Factorial(n) / Factorial(n - r)
End Sub
Private Sub cmdRepeat_Click()
BFKeys = InputBox("Please input the key which you have to repeat", "Bruteforce - Repeat Key")
bftimes = InputBox("Please input the number of times you need to repeat this sequence", "Bruteforce - Repeat Times")
frmMain.txtBFSetup.Text = frmMain.txtBFSetup.Text & vbCrLf & "{" & BFKeys & " " & bftimes & "}"
End Sub
Private Sub cmdReset_Click()
txtBFSetup.Text = ""
txtBFSetup.Refresh
End Sub
Private Sub cmdRight_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{RIGHT}"
End Sub
Private Sub cmdStop_Click()
End
End Sub
Private Sub cmdTab_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{TAB}"
End Sub
Private Sub cmdTxtRefresh_Click()
txtStatus.Text = result
txtStatus.Refresh
End Sub
Private Sub cmdUp_Click()
txtBFSetup.Text = txtBFSetup.Text & vbCrLf & "{UP}"
End Sub
Private Sub Form_Load()
SSTabBF.Tab = 0
SSTabOptions.Tab = 0
SSTabAbout.Tab = 0
End Sub
Private Sub SSTab1_DblClick()
End Sub
Private Sub SSTabOptions_Click(PreviousTab As Integer)
If SSTabOptions.Tab = 3 Then cmdRefresh.Value = True
End Sub
Public Function Factorial(fn) As Double
fact = 1
For i = 1 To fn
fact = fact * i
Next i
Factorial = fact
End Function
Private Sub txtBFSetup_GotFocus()
If chkCtrl.Value = 1 Then txtBFSetup.Text = txtBFSetup.Text & "^"
If chkShift.Value = 1 Then txtBFSetup.Text = txtBFSetup.Text & "+"
If chkAlt.Value = 1 Then txtBFSetup.Text = txtBFSetup.Text & "%"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -