form1.frm

vb电子书籍

   VERSION 5.00
   Begin VB.Form Form1
      BackColor       =   &H00E0E0E0&
      Caption         =   "加密"
      ClientHeight    =   3195
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   4680
      FillColor       =   &H00C0C0C0&
      BeginProperty Font
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Icon            =   "Form1.frx":0000
      LinkTopic       =   "Form1"
      MaxButton       =   0   'False
      ScaleHeight     =   3195
      ScaleWidth      =   4680
      StartUpPosition =   2  '屏幕中心
      Begin VB.CommandButton cmdcls
         Caption         =   "清屏"
         Height          =   375
         Left            =   240
         TabIndex        =   6
         Top             =   2280
         Width           =   1215
      End
      Begin VB.CommandButton Command2
         Caption         =   "解密"
         Height          =   375
         Left            =   240
         TabIndex        =   5
         Top             =   1560
         Width           =   1215
      End
      Begin VB.CommandButton cmdcode
         Caption         =   "加密"
         Height          =   375
         Left            =   240
         TabIndex        =   4
         Top             =   840
         Width           =   1215
      End
      Begin VB.TextBox txtrecode
         Height          =   360
         Left            =   1800
         TabIndex        =   3
         Top             =   1560
         Width           =   2535
      End
      Begin VB.TextBox txtcode
         Height          =   360
         Left            =   1800
         TabIndex        =   2
         Top             =   840
         Width           =   2535
      End
      Begin VB.TextBox txtinput
         Height          =   345
         Left            =   1800
         TabIndex        =   1
         Top             =   240
         Width           =   2535
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "输入字符串："
         Height          =   240
         Left            =   240
         TabIndex        =   0
         Top             =   240
         Width           =   1440
      End
   End
   Attribute VB_Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Dim strinput$, code$, record$, c As String * 1
Dim i$, length%, iasc%

'##################################################################
'## 过程名称：Command3_Click
'## 参数： 无
'##################################################################
Private Sub Command3_Click()
    
End Sub
    
'##################################################################
'## 过程名称：cmdcls_Click
'## 参数： 无
'##################################################################
Private Sub cmdcls_Click()
    txtcode.Text = ""
    txtrecode.Text = ""
    txtinput.Text = ""
End Sub
    
'##################################################################
'## 过程名称：cmdcode_Click
'## 参数： 无
'##################################################################
Private Sub cmdcode_Click()
    Dim strinput$, code$, recode$, record$, c As String * 1
    Dim i%, length%, iasc%
    strinput = txtinput.Text
    length = Len(RTrim(strinput))
    code = "  "
    For i = 1 To length
        c = Mid$(strinput, i, 1)
        Select Case c
            Case "A" To "Z"
                iasc = Asc(c) + 5
                If iasc > Asc("Z") Then iasc = iasc - 26
                code = code + Chr$(iasc)
            Case "a" To "z"
                iasc = Asc(c) + 5
                If iasc > Asc("z") Then iasc = iasc - 26
                code = code + Chr$(iasc)
            Case Else
                code = code + c
        End Select
    Next i
    txtcode.Text = code
End Sub