📄 frmmain.frm
字号:
TabIndex = 26
Top = 360
Value = -1 'True
Width = 2535
End
Begin VB.OptionButton optAppend
Caption = "Append to file"
Height = 255
Left = 120
TabIndex = 25
Top = 360
Width = 1335
End
End
Begin VB.Frame frmMode
Caption = "Select Mode to work with"
Height = 1335
Left = -74640
TabIndex = 21
Top = 600
Width = 4335
Begin VB.OptionButton chkAllPossibleMode
Caption = "All the damned possibilities"
Height = 195
Left = 240
TabIndex = 97
ToolTipText = "Includes repeated letters. For eg to crack PASS. There are two S's. So you have to use this mode"
Top = 1080
Width = 3855
End
Begin VB.OptionButton optCPMode
Caption = "Both Combinations and Permutations"
Height = 255
Left = 240
TabIndex = 23
ToolTipText = "Al the combinations possible along with the Permutations"
Top = 720
Value = -1 'True
Width = 3375
End
Begin VB.OptionButton optCombMode
Caption = "Combinations only"
Height = 255
Left = 240
TabIndex = 22
ToolTipText = "Only the Combinations"
Top = 360
Width = 3375
End
End
Begin VB.Frame frmlength
Caption = "Select length of output Combinations"
Height = 2055
Left = -74640
TabIndex = 13
Top = 600
Width = 4335
Begin VB.OptionButton optVarying
Caption = "All Smaller and equal to fixed length"
Height = 375
Left = 360
TabIndex = 15
ToolTipText = "For eg if you have specified a 4 letter word. All 4 letter words + 3 letter words + 2 letter word + 1 letter words are outputted"
Top = 1080
Width = 3375
End
Begin VB.OptionButton optFixed
Caption = "Fixed Length"
Height = 375
Left = 360
TabIndex = 14
ToolTipText = "Just the fixed size as given in the length of combinations"
Top = 480
Value = -1 'True
Width = 3495
End
End
Begin VB.Frame frmCharacters
Caption = "Select Characters to use in combinations"
Height = 3735
Left = -74640
TabIndex = 6
Top = 600
Width = 4335
Begin VB.TextBox txtDictFile
Height = 285
Left = 2160
TabIndex = 110
Text = "c:\dic.txt"
Top = 840
Width = 2055
End
Begin VB.CheckBox chkDict
Caption = "From Dictionary"
Height = 255
Left = 2160
TabIndex = 109
ToolTipText = "Make sure the path is shown correctly"
Top = 360
Width = 1815
End
Begin VB.TextBox txtcustom
Height = 285
Left = 1440
TabIndex = 20
Text = "ABCDJKOFYU"
Top = 3240
Width = 2535
End
Begin VB.CheckBox chkCustom
Caption = "Custom"
Height = 255
Left = 240
TabIndex = 19
ToolTipText = "The custom part is added last. So you may give your one extra chars here"
Top = 3240
Value = 1 'Checked
Width = 975
End
Begin VB.CheckBox chkExcludeCC
Caption = "Exclude Control Characters"
Height = 255
Left = 240
TabIndex = 17
ToolTipText = "Usually in passwords the 1st 32 chars are not used since they are control characters."
Top = 2760
Value = 1 'Checked
Width = 3375
End
Begin VB.CheckBox chkAll255
Caption = "All ASCII upto 255"
Height = 255
Left = 240
TabIndex = 11
Top = 2280
Width = 3735
End
Begin VB.CheckBox chkAll127
Caption = "All upto ASCII 127"
Height = 255
Left = 240
TabIndex = 10
Top = 1800
Width = 3735
End
Begin VB.CheckBox chkAllDigits
Caption = "All Digits"
Height = 255
Left = 240
TabIndex = 9
Top = 1320
Width = 3735
End
Begin VB.CheckBox chkAllLow
Caption = "All Low Case Letters"
Height = 255
Left = 240
TabIndex = 8
Top = 840
Width = 3615
End
Begin VB.CheckBox chkAllUp
Caption = "All Upcase letters"
Height = 255
Left = 240
TabIndex = 7
Top = 360
Width = 3615
End
End
Begin VB.Frame frmOutput
Caption = "Select Output Option"
Height = 1815
Left = 360
TabIndex = 2
Top = 600
Width = 4335
Begin VB.OptionButton optByCode
Caption = "Power user: Manipulate sourcecode"
Height = 255
Left = 360
TabIndex = 98
ToolTipText = $"frmMain.frx":11BE
Top = 1440
Width = 3495
End
Begin VB.OptionButton optOutSendkeys
Caption = "To current Application (Brute Force)"
Height = 255
Left = 360
TabIndex = 5
ToolTipText = $"frmMain.frx":1259
Top = 1080
Width = 3495
End
Begin VB.OptionButton optOutFile
Caption = "To output file on disk"
Height = 255
Left = 360
TabIndex = 4
ToolTipText = "Be sure to specify the filename properly. I havent givent the eror check options"
Top = 720
Width = 3495
End
Begin VB.OptionButton optOutTextBox
Caption = "To inbuilt Multiline Text Box"
Height = 255
Left = 360
TabIndex = 3
ToolTipText = "Output is directed to the text box along side"
Top = 360
Value = -1 'True
Width = 3615
End
End
Begin TabDlg.SSTab SSTabAbout
Height = 3975
Left = -74880
TabIndex = 82
Top = 480
Width = 4845
_ExtentX = 8546
_ExtentY = 7011
_Version = 327680
Style = 1
Tabs = 5
TabsPerRow = 5
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "By"
TabPicture(0) = "frmMain.frx":1341
Tab(0).ControlCount= 3
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "frmAboutProgrammer"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "frmAboutContact"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "frmAboutOther"
Tab(0).Control(2).Enabled= 0 'False
TabCaption(1) = "Bugs"
TabPicture(1) = "frmMain.frx":135D
Tab(1).ControlCount= 1
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "frmAboutBugs"
Tab(1).Control(0).Enabled= 0 'False
TabCaption(2) = "Miscelaneous"
TabPicture(2) = "frmMain.frx":1379
Tab(2).ControlCount= 2
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "frmAboutDedication"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "frmAboutMisc"
Tab(2).Control(1).Enabled= 0 'False
TabCaption(3) = "Improvement"
TabPicture(3) = "frmMain.frx":1395
Tab(3).ControlCount= 3
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Label24"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).Control(1)= "Label25"
Tab(3).Control(1).Enabled= 0 'False
Tab(3).Control(2)= "Label26"
Tab(3).Control(2).Enabled= 0 'False
TabCaption(4) = "Versions"
TabPicture(4) = "frmMain.frx":13B1
Tab(4).ControlCount= 3
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Label29"
Tab(4).Control(0).Enabled= 0 'False
Tab(4).Control(1)= "Label30"
Tab(4).Control(1).Enabled= 0 'False
Tab(4).Control(2)= "Label31"
Tab(4).Control(2).Enabled= 0 'False
Begin VB.Frame frmAboutOther
Caption = "Other Means"
Height = 1095
Left = 120
TabIndex = 104
Top = 2760
Width = 4335
Begin VB.Label Label27
Caption = $"frmMain.frx":13CD
Height = 735
Left = 240
TabIndex = 105
Top = 240
Width = 3975
End
End
Begin VB.Frame frmAboutContact
Caption = "Contact"
Height = 975
Left = 150
TabIndex = 94
Top = 1680
Width = 4335
Begin VB.Label Label11
Caption = "Web Site http://www.jofu.8m.com"
Height = 255
Left = 120
TabIndex = 96
Top = 600
Width = 3135
End
Begin VB.Label Label10
Caption = "email josephninan@crosswinds.net liju_trv@yahoo.com"
Height = 255
Left = 120
TabIndex = 95
Top = 240
Width = 4095
End
End
Begin VB.Frame frmAboutProgrammer
Caption = "Programmer"
Height = 1305
Left = 150
TabIndex = 89
Top = 330
Width = 4335
Begin VB.Label Label9
Caption = "Papanamcode, Trivandrum-18, Kerala, India"
Height = 255
Left = 120
TabIndex = 93
Top = 960
Width = 3615
End
Begin VB.Label Label8
Caption = "Sree Chitra Thirunal College of Engineering"
Height = 255
Left = 120
TabIndex = 92
Top = 720
Width = 3735
End
Begin VB.Label Label7
Caption = "2nd Year BTech Computer Science and Engineering"
Height = 255
Left = 120
TabIndex = 91
Top = 480
Width = 3855
End
Begin VB.Label Label6
Caption = "Source code developed by Joseph Ninan"
Height = 255
Left = 120
TabIndex = 90
Top = 240
Width = 3375
End
End
Begin VB.Frame frmAboutBugs
Caption = "Bugs detected so far"
Height = 3375
Left = -74850
TabIndex = 87
Top = 450
Width = 4335
Begin VB.Label Label28
Caption = $"frmMain.frx":1457
Height = 975
Left = 120
TabIndex = 108
Top = 2280
Width = 4095
End
Begin VB.Label Label23
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -