?? psc1.frm
字號:
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "PSC-1"
ClientHeight = 3348
ClientLeft = 36
ClientTop = 324
ClientWidth = 4680
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3348
ScaleWidth = 4680
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox PubIValue
Height = 288
Left = 3000
TabIndex = 17
Top = 480
Width = 1572
End
Begin VB.TextBox PrvIValue
Height = 288
Left = 3000
TabIndex = 15
Top = 120
Width = 1572
End
Begin VB.CommandButton btnEncrypt
Caption = "Encrypt"
Height = 372
Left = 840
TabIndex = 14
Top = 2880
Width = 1092
End
Begin VB.CommandButton btnDecrypt
Caption = "Decrypt"
Height = 372
Left = 2160
TabIndex = 13
Top = 2880
Width = 1092
End
Begin VB.TextBox MValue
Height = 288
Left = 840
Locked = -1 'True
TabIndex = 11
Top = 2400
Width = 3732
End
Begin VB.TextBox CValue
Height = 288
Left = 840
Locked = -1 'True
TabIndex = 9
Top = 2040
Width = 3732
End
Begin VB.TextBox Org
Height = 288
Left = 840
TabIndex = 7
Top = 1680
Width = 3732
End
Begin VB.CommandButton btnNewKey
Caption = "New Key"
Height = 372
Left = 3480
TabIndex = 6
Top = 2880
Width = 1092
End
Begin VB.TextBox NBase
Height = 288
Left = 600
TabIndex = 2
Top = 960
Width = 1572
End
Begin VB.TextBox DKey
Height = 288
Left = 600
TabIndex = 1
Top = 480
Width = 1572
End
Begin VB.TextBox EKey
Height = 288
Left = 600
TabIndex = 0
Top = 120
Width = 1572
End
Begin VB.Label PubIlbl
Alignment = 1 'Right Justify
Caption = "PubI="
Height = 252
Left = 2400
TabIndex = 18
Top = 480
Width = 492
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "PrvI="
Height = 252
Left = 2520
TabIndex = 16
Top = 120
Width = 372
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "M ="
Height = 252
Left = 480
TabIndex = 12
Top = 2400
Width = 252
End
Begin VB.Label lbloutput
Alignment = 1 'Right Justify
Caption = "C ="
Height = 252
Left = 480
TabIndex = 10
Top = 2040
Width = 252
End
Begin VB.Label lblinput
Alignment = 1 'Right Justify
Caption = "Org M ="
Height = 252
Left = 120
TabIndex = 8
Top = 1680
Width = 612
End
Begin VB.Label lblN
Alignment = 1 'Right Justify
Caption = "N="
Height = 252
Left = 240
TabIndex = 5
Top = 960
Width = 252
End
Begin VB.Label lblD
Alignment = 1 'Right Justify
Caption = "Pub="
Height = 252
Left = 0
TabIndex = 4
Top = 480
Width = 492
End
Begin VB.Label lblE
Alignment = 1 'Right Justify
Caption = "Prv="
Height = 252
Left = 120
TabIndex = 3
Top = 120
Width = 372
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub btnDecrypt_Click()
MValue.Text = DecryptBk(CValue.Text)
PrvIValue.Text = Str(PrvI)
PubIValue.Text = Str(PubI)
End Sub
Private Sub btnEncrypt_Click()
CValue.Text = EncryptBk(Org.Text)
PrvIValue.Text = Str(PrvI)
PubIValue.Text = Str(PubI)
End Sub
Private Sub btnNewKey_Click()
Call NewKey
End Sub
Private Sub Form_Load()
Call NewKey
End Sub
Sub NewKey()
Call GenKey(256, 1000)
NBase.Text = Trim(Str(N))
DKey.Text = Trim(Str(Pub))
EKey.Text = Trim(Str(Prv))
PrvIValue.Text = Str(PrvI)
PubIValue.Text = Str(PubI)
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -