📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4695
ClientLeft = 60
ClientTop = 345
ClientWidth = 11280
LinkTopic = "Form1"
ScaleHeight = 4695
ScaleWidth = 11280
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame2
Caption = "DES算法加密"
ForeColor = &H00FF0000&
Height = 4695
Left = 6120
TabIndex = 261
Top = 0
Width = 5175
Begin VB.CommandButton CmdEnCode
Caption = "加 密"
Height = 375
Left = 120
TabIndex = 271
Top = 1800
Width = 975
End
Begin VB.CommandButton CmdDeCode
Caption = "解 密"
Height = 375
Left = 120
TabIndex = 270
Top = 3240
Width = 975
End
Begin VB.TextBox TxtXs
Height = 645
Left = 120
MultiLine = -1 'True
TabIndex = 268
Top = 3960
Width = 4935
End
Begin VB.TextBox TxtMw
Height = 645
Left = 120
MultiLine = -1 'True
TabIndex = 266
Top = 2520
Width = 4935
End
Begin VB.TextBox TxtXy
Height = 645
Left = 120
TabIndex = 264
Text = "12345678"
Top = 1080
Width = 4935
End
Begin VB.TextBox TxtMy
Height = 285
Left = 120
TabIndex = 262
Text = "ksaiy"
Top = 480
Width = 4935
End
Begin VB.Label Label5
Caption = "收信者（信宿）："
Height = 255
Left = 120
TabIndex = 269
Top = 3720
Width = 1695
End
Begin VB.Label Label4
Caption = "密文："
Height = 255
Left = 120
TabIndex = 267
Top = 2280
Width = 1695
End
Begin VB.Label Label3
Caption = "发信者（信源）："
Height = 255
Left = 120
TabIndex = 265
Top = 840
Width = 1695
End
Begin VB.Label Label2
Caption = "密钥："
Height = 255
Left = 120
TabIndex = 263
Top = 240
Width = 1695
End
End
Begin VB.Frame Frame1
Caption = "模二和加密"
ForeColor = &H00FF8080&
Height = 4695
Left = 0
TabIndex = 0
Top = 0
Width = 6015
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 375
Left = 2760
TabIndex = 259
Top = 4200
Width = 1095
End
Begin VB.TextBox TxtMm
Height = 285
Left = 840
MaxLength = 2
TabIndex = 258
Text = "55"
Top = 4320
Width = 375
End
Begin VB.CommandButton Command2
Caption = "产生随机码"
Height = 375
Left = 4320
TabIndex = 257
Top = 4200
Width = 1335
End
Begin VB.TextBox Txt1
Height = 285
Index = 255
Left = 5520
MaxLength = 2
TabIndex = 256
Text = "0F"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 254
Left = 5160
MaxLength = 2
TabIndex = 255
Text = "0E"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 253
Left = 4800
MaxLength = 2
TabIndex = 254
Text = "0D"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 252
Left = 4440
MaxLength = 2
TabIndex = 253
Text = "0C"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 251
Left = 4080
MaxLength = 2
TabIndex = 252
Text = "0B"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 250
Left = 3720
MaxLength = 2
TabIndex = 251
Text = "0A"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 249
Left = 3360
MaxLength = 2
TabIndex = 250
Text = "09"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 248
Left = 3000
MaxLength = 2
TabIndex = 249
Text = "08"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 247
Left = 2640
MaxLength = 2
TabIndex = 248
Text = "07"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 246
Left = 2280
MaxLength = 2
TabIndex = 247
Text = "06"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 245
Left = 1920
MaxLength = 2
TabIndex = 246
Text = "05"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 244
Left = 1560
MaxLength = 2
TabIndex = 245
Text = "04"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 243
Left = 1200
MaxLength = 2
TabIndex = 244
Text = "03"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 242
Left = 840
MaxLength = 2
TabIndex = 243
Text = "02"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 241
Left = 480
MaxLength = 2
TabIndex = 242
Text = "01"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 240
Left = 120
MaxLength = 2
TabIndex = 241
Text = "00"
Top = 3840
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 239
Left = 5520
MaxLength = 2
TabIndex = 240
Text = "0F"
Top = 3600
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 238
Left = 5160
MaxLength = 2
TabIndex = 239
Text = "0E"
Top = 3600
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 237
Left = 4800
MaxLength = 2
TabIndex = 238
Text = "0D"
Top = 3600
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 236
Left = 4440
MaxLength = 2
TabIndex = 237
Text = "0C"
Top = 3600
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 235
Left = 4080
MaxLength = 2
TabIndex = 236
Text = "0B"
Top = 3600
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 234
Left = 3720
MaxLength = 2
TabIndex = 235
Text = "0A"
Top = 3600
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 233
Left = 3360
MaxLength = 2
TabIndex = 234
Text = "09"
Top = 3600
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 232
Left = 3000
MaxLength = 2
TabIndex = 233
Text = "08"
Top = 3600
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 231
Left = 2640
MaxLength = 2
TabIndex = 232
Text = "07"
Top = 3600
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 230
Left = 2280
MaxLength = 2
TabIndex = 231
Text = "06"
Top = 3600
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 229
Left = 1920
MaxLength = 2
TabIndex = 230
Text = "05"
Top = 3600
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 228
Left = 1560
MaxLength = 2
TabIndex = 229
Text = "04"
Top = 3600
Width = 375
End
Begin VB.TextBox Txt1
Height = 285
Index = 227
Left = 1200
MaxLength = 2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -