frmoptions.frm

民用加密解密系统是用VB6.0完全开发的中文简体繁体通用的符号加密系统

         Width           =   855
      End
      Begin VB.TextBox Text7 
         Height          =   375
         Left            =   240
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   16
         Top             =   3840
         Visible         =   0   'False
         Width           =   735
      End
      Begin VB.TextBox Text6 
         Height          =   1215
         Left            =   480
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   15
         Top             =   1440
         Width           =   4815
      End
      Begin VB.TextBox Text4 
         Height          =   1215
         Left            =   480
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   14
         Top             =   120
         Width           =   4815
      End
      Begin VB.Label Label11 
         Caption         =   "请必须先选择破译方式，默认为简体破译方式"
         Height          =   375
         Left            =   3360
         TabIndex        =   68
         Top             =   2760
         Width           =   1935
      End
      Begin VB.Label Label1 
         Caption         =   "破译文件"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   975
         Index           =   3
         Left            =   120
         TabIndex        =   22
         Top             =   1440
         Width           =   255
      End
      Begin VB.Label Label1 
         Caption         =   "加密文件"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   975
         Index           =   2
         Left            =   120
         TabIndex        =   21
         Top             =   120
         Width           =   255
      End
   End
   Begin VB.PictureBox picOptions 
      BorderStyle     =   0  'None
      Height          =   3825
      Index           =   0
      Left            =   360
      ScaleHeight     =   3825
      ScaleMode       =   0  'User
      ScaleWidth      =   5685
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   600
      Width           =   5685
      Begin VB.CommandButton Command4 
         Caption         =   "清空文本框"
         Height          =   495
         Left            =   3480
         TabIndex        =   13
         Top             =   3240
         Width           =   1215
      End
      Begin VB.CommandButton Command3 
         Caption         =   "保存加密文件"
         Height          =   495
         Left            =   1800
         TabIndex        =   12
         Top             =   3240
         Width           =   1455
      End
      Begin VB.CommandButton Command2 
         Caption         =   "打开需要加密文件"
         Height          =   495
         Left            =   0
         TabIndex        =   11
         Top             =   3240
         Width           =   1575
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Command1"
         Height          =   195
         Left            =   360
         TabIndex        =   10
         Top             =   3240
         Width           =   375
      End
      Begin VB.TextBox Text5 
         Height          =   1335
         Left            =   360
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   7
         Top             =   1680
         Width           =   5295
      End
      Begin VB.TextBox Text3 
         Height          =   375
         Left            =   360
         TabIndex        =   6
         Top             =   3360
         Visible         =   0   'False
         Width           =   615
      End
      Begin VB.TextBox Text2 
         Height          =   1215
         Left            =   360
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   5
         Top             =   240
         Width           =   5295
      End
      Begin VB.TextBox Text1 
         Height          =   615
         Left            =   0
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   4
         Top             =   3240
         Visible         =   0   'False
         Width           =   1455
      End
      Begin VB.Label Label1 
         Caption         =   "加密文件"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   975
         Index           =   1
         Left            =   0
         TabIndex        =   9
         Top             =   1800
         Width           =   255
      End
      Begin VB.Label Label1 
         Caption         =   "输入文件"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   975
         Index           =   0
         Left            =   0
         TabIndex        =   8
         Top             =   360
         Width           =   255
      End
   End
   Begin MSComctlLib.TabStrip tbsOptions 
      Height          =   5085
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6735
      _ExtentX        =   11880
      _ExtentY        =   8969
      _Version        =   393216
      BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
         NumTabs         =   3
         BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "加密"
            Key             =   "Group1"
            Object.ToolTipText     =   "Set Options for Group 1"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "解密"
            Key             =   "Group2"
            Object.ToolTipText     =   "Set Options for Group 2"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "设置"
            Key             =   "Group3"
            Object.ToolTipText     =   "Set Options for Group 3"
            ImageVarType    =   2
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   120
      Top             =   1080
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu file 
      Caption         =   "文件"
      Begin VB.Menu open 
         Caption         =   "打开需要加密文件"
      End
      Begin VB.Menu opencode 
         Caption         =   "打开加密文件"
      End
      Begin VB.Menu save 
         Caption         =   "保存加密文件"
      End
      Begin VB.Menu saveencode 
         Caption         =   "保存破译文件"
      End
      Begin VB.Menu exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu do 
      Caption         =   "文本处理"
      Begin VB.Menu qingkong 
         Caption         =   "文本清空"
      End
      Begin VB.Menu jianti 
         Caption         =   "简体字解密"
      End
      Begin VB.Menu fanti 
         Caption         =   "繁体字解密"
      End
   End
   Begin VB.Menu shezhi 
      Caption         =   "设置"
      Begin VB.Menu apply 
         Caption         =   "密钥应用"
      End
      Begin VB.Menu huanyuan 
         Caption         =   "密钥还原"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
      Begin VB.Menu helpitem 
         Caption         =   "帮助主题"
      End
      Begin VB.Menu about 
         Caption         =   "关于系统"
      End
      Begin VB.Menu conect 
         Caption         =   "联系我们"
      End
   End
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1



Private Sub about_Click()
aboutform.Show
End Sub

Private Sub apply_Click()

bx = Val(Text10.Text)

If Text10.Text = "" Then bx = 100
End Sub

Private Sub Check1_Click()

Check2.Value = 0
End Sub

Private Sub Check2_Click()

Check1.Value = 0

End Sub

Private Sub Command2_Click()
Dim inputdata
CommonDialog1.Action = 1
Text2.Text = ""
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
  Line Input #1, inputdata
  Text2.Text = Text2.Text + inputdata + vbNewLine
Loop
Close #1
End If
End Sub

Private Sub Command3_Click()
Dim fso, file
Me.CommonDialog1.Filter = "*.txt|*.txt"
Me.CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile(CommonDialog1.FileName, True)
file.write Text5.Text
file.Close
End If
End Sub

Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text5.Text = ""
End Sub

Private Sub Command5_Click()
Dim inputdata
CommonDialog1.Action = 1
Text4.Text = ""
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
  Line Input #1, inputdata
  Text4.Text = Text4.Text + inputdata + vbNewLine
Loop
Close #1
End If
End Sub

Private Sub Command6_Click()
Dim fso, file
Me.CommonDialog1.Filter = "*.txt|*.txt"
Me.CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile(CommonDialog1.FileName, True)
file.write Text6.Text
file.Close
End If
End Sub

Private Sub Command7_Click()
Text4.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub

Private Sub Command8_Click()

bx = Val(Text10.Text)

If Text10.Text = "" Then bx = 100
End Sub

Private Sub Command9_Click()
Text10.Text = "000"
Dim i
For i = 0 To 9 Step 1
Label5(i).Caption = i
Label6(i).Caption = i
Label7(i).Caption = i
Label8.ForeColor = vbRed
Label9.ForeColor = vbRed
Label10.ForeColor = vbRed
Label8.BackColor = &HFF00&
Label9.BackColor = &HFF00&
Label10.BackColor = &HFF00&
Next
jishu1 = 0
jishu2 = 0
jishu3 = 0
End Sub

Private Sub conect_Click()
MsgBox "西南大学地理科学学院2003级刘光鹏，联系电话：[phone]，邮箱：[e-mail]", , "联系我们"
End Sub

Private Sub fanti_Click()
Check1.Value = 0
Check2.Value = 1
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim i As Integer
    'handle ctrl+tab to move to the next tab
    If Shift = vbCtrlMask And KeyCode = vbKeyTab Then
        i = tbsOptions.SelectedItem.Index
        If i = tbsOptions.Tabs.Count Then
            'last tab so we need to wrap to tab 1
            Set tbsOptions.SelectedItem = tbsOptions.Tabs(1)
        Else
            'increment the tab
            Set tbsOptions.SelectedItem = tbsOptions.Tabs(i + 1)
        End If
    End If
   
End Sub

Private Sub Form_Load()
    'center the form
    Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
        ax = 1
    bx = 100
    jishu1 = 0
    jishu2 = 0
    jishu3 = 0
    Check1.Value = 1
End Sub

Private Sub fraSample1_DragDrop(Source As Control, x As Single, y As Single)

End Sub

Private Sub Label14_Click(Index As Integer)

End Sub

Private Sub helpitem_Click()
Dim x As Long
Dim y As String
y = App.Path & "\民用加密解密系统1.0帮助文档.chm"
x = ShellExecute(0, "open", y, "", "", SW_SHOWNORMAL)

End Sub

Private Sub huanyuan_Click()
Text10.Text = "000"
Dim i
For i = 0 To 9 Step 1
Label5(i).Caption = i
Label6(i).Caption = i
Label7(i).Caption = i
Label8.ForeColor = vbRed
Label9.ForeColor = vbRed
Label10.ForeColor = vbRed
Label8.BackColor = &HFF00&
Label9.BackColor = &HFF00&
Label10.BackColor = &HFF00&
Next
jishu1 = 0
jishu2 = 0
jishu3 = 0
End Sub

Private Sub jianti_Click()
Check2.Value = 0
Check1.Value = 1
End Sub