frmcrypt.frm

字符串加解密码程序,用于字符串的加解密,VB源码

VERSION 5.00
Begin VB.Form frmCrypt 
   Caption         =   "加密/解密功能"
   ClientHeight    =   3120
   ClientLeft      =   3240
   ClientTop       =   2700
   ClientWidth     =   3975
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3120
   ScaleWidth      =   3975
   Begin VB.TextBox txtPasstxt 
      Height          =   285
      Left            =   240
      TabIndex        =   4
      Top             =   2040
      Width           =   3615
   End
   Begin VB.CommandButton cmdjiemima 
      Caption         =   "解密"
      Height          =   495
      Left            =   2520
      TabIndex        =   3
      Top             =   2520
      Width           =   855
   End
   Begin VB.CommandButton cmdjiamima 
      Caption         =   "加密"
      Height          =   495
      Left            =   720
      TabIndex        =   2
      Top             =   2520
      Width           =   855
   End
   Begin VB.TextBox txtText 
      Height          =   1215
      Left            =   240
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   360
      Width           =   3615
   End
   Begin VB.Label Label2 
      Caption         =   "字符串密码"
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   1800
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "字符串  加密/解密"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   1575
   End
End
Attribute VB_Name = "frmCrypt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdjiamima_Click()
txtText.Text = jiamimafun(txtText.Text, 0) ' txtPasstxt.Text)
End Sub

Private Sub cmdjiemima_Click()
txtText.Text = jiemimafun(txtText.Text, 0) ' txtPasstxt.Text)
End Sub


Public Function jiamimafun(texti, salasana) As String   '加密
On Error Resume Next
For T = 1 To Len(salasana)
  sana = Asc(Mid(salasana, T, 1))
  X1 = X1 + sana
Next

X1 = Int((X1 * 0.1) / 6)
salasana = X1
G = 0
For TT = 1 To Len(texti)
    sana = Asc(Mid(texti, TT, 1))
    G = G + 1
    If G = 6 Then G = 0
    X1 = 0
    If G = 0 Then X1 = sana - (salasana - 2)
    If G = 1 Then X1 = sana + (salasana - 5)
    If G = 2 Then X1 = sana - (salasana - 4)
    If G = 3 Then X1 = sana + (salasana - 2)
    If G = 4 Then X1 = sana - (salasana - 3)
    If G = 5 Then X1 = sana + (salasana - 5)
    X1 = X1 + G
    jiamimafuned = jiamimafuned & Chr(X1)
Next
    jiamimafun = jiamimafuned
End Function

Public Function jiemimafun(texti, salasana) As String   '解密
On Error Resume Next
For T = 1 To Len(salasana)
    sana = Asc(Mid(salasana, T, 1))
    X1 = X1 + sana
Next
    X1 = Int((X1 * 0.1) / 6)
    salasana = X1
    G = 0
For TT = 1 To Len(texti)
    sana = Asc(Mid(texti, TT, 1))
    G = G + 1
    If G = 6 Then G = 0
    X1 = 0
    If G = 0 Then X1 = sana + (salasana - 2)
    If G = 1 Then X1 = sana - (salasana - 5)
    If G = 2 Then X1 = sana + (salasana - 4)
    If G = 3 Then X1 = sana - (salasana - 2)
    If G = 4 Then X1 = sana + (salasana - 3)
    If G = 5 Then X1 = sana - (salasana - 5)
       X1 = X1 - G
      jiemimafuned = jiemimafuned & Chr(X1)
Next
   jiemimafun = jiemimafuned
End Function