📄 formfile1.frm
字号:
End
Begin VB.Label Labelfile17
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Office file :"
BeginProperty Font
Name = "Monotype Corsiva"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 5160
TabIndex = 11
Top = 4800
Width = 1260
End
Begin VB.Label Labelfile16
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Text :"
BeginProperty Font
Name = "Monotype Corsiva"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 5760
TabIndex = 10
Top = 4080
Width = 675
End
Begin VB.Label Labelfile15
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Video :"
BeginProperty Font
Name = "Monotype Corsiva"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 5640
TabIndex = 9
Top = 3480
Width = 810
End
Begin VB.Label Labelfile5
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Yuvaraj-6History"
BeginProperty Font
Name = "Comic Sans MS"
Size = 9.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 6600
TabIndex = 8
Top = 3480
Width = 1575
End
Begin VB.Label Labelfile4
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Aathichudi"
BeginProperty Font
Name = "Comic Sans MS"
Size = 9.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 6600
TabIndex = 7
Top = 2760
Width = 975
End
Begin VB.Label Labelfile14
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Song :"
BeginProperty Font
Name = "Monotype Corsiva"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 5760
TabIndex = 6
Top = 2760
Width = 675
End
Begin VB.Label Labelfile12
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Click the file u want"
BeginProperty Font
Name = "Comic Sans MS"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5520
TabIndex = 4
Top = 1440
Width = 2370
End
Begin VB.Label Labelfile13
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Picture :"
BeginProperty Font
Name = "Monotype Corsiva"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 5520
TabIndex = 3
Top = 2040
Width = 945
End
Begin VB.Label Labelfile1
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Baby1"
BeginProperty Font
Name = "Comic Sans MS"
Size = 9.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 6600
TabIndex = 2
Top = 2040
Width = 540
End
Begin VB.Label Labelfile2
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Baby2"
BeginProperty Font
Name = "Comic Sans MS"
Size = 9.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 7680
TabIndex = 1
Top = 2040
Width = 570
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "User Name"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 4
Left = 4080
TabIndex = 35
Top = 2160
Width = 945
End
Begin VB.Label lblWarning
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Please enter the following details"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 5400
TabIndex = 34
Top = 960
Width = 3540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Password"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 0
Left = 4560
TabIndex = 33
Top = 3120
Width = 825
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Your Key"
Height = 195
Left = 4920
TabIndex = 32
Top = 11760
Visible = 0 'False
Width = 645
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Your Finger Print"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 3960
TabIndex = 31
Top = 4080
Width = 1440
End
Begin VB.Label Labelfile11
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Welcome"
BeginProperty Font
Name = "Comic Sans MS"
Size = 20.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 570
Index = 0
Left = 6600
TabIndex = 5
Top = 240
Width = 1710
End
Begin VB.Label Labelfile3
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Sunset"
BeginProperty Font
Name = "Comic Sans MS"
Size = 9.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 8640
TabIndex = 0
Top = 2040
Width = 615
End
End
Attribute VB_Name = "Formfile1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim fnum As String
Dim fnt, fn, lin, filenumb As String
Dim dsize As Double
Dim i As Integer
Dim pdata(), pout, filepout, Fsave As String
Dim adata(100000) As Integer
Dim out(100000) As Double
Dim linefeed As String
Dim tryI, tryJ, jval As Long
Dim i1, a1 As Long
Dim GetRndA, GetRndB, indexA, indexB, RndValA, RndValB, primeA, primeB, opA, opB As Long
Dim chkA, chkB, tstA, tstB As Boolean
Dim cont As Boolean
Dim PRIME1, PRIME2, PROD, PHIE, PUBLICKEY, SECRETKEY, POS As Long
Dim CIPHER As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -