frmmain.frm

DES算法单机版

VERSION 5.00
Begin VB.Form frmmain 
   Caption         =   "Form1"
   ClientHeight    =   3945
   ClientLeft      =   1845
   ClientTop       =   2550
   ClientWidth     =   6690
   LinkTopic       =   "Form1"
   ScaleHeight     =   3945
   ScaleWidth      =   6690
   Begin VB.Menu jbgg 
      Caption         =   "基本功能"
      Begin VB.Menu mmgl 
         Caption         =   "密钥管理"
      End
      Begin VB.Menu mmsr 
         Caption         =   "明码输入"
      End
      Begin VB.Menu qmm 
         Caption         =   "求明码"
      End
      Begin VB.Menu jiemi 
         Caption         =   "解密"
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
ChDir "d:\encryption"
Call callkk
End Sub

Private Sub jiemi_Click()
Unload Me
frmdis.Show
End Sub

Private Sub mmgl_Click()
Unload Me
frmmmgl.Show

End Sub

Private Sub mmsr_Click()
Unload Me
frmcode.Show
End Sub