cencrypt.cls

本系统可用于医院和专业体检中心的健康体检管理

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CEncrypt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'数据加、解密方法
Public Function Encode(strData As String, Optional intDepth As Integer) As String

    Dim strTempChar As String
    Dim intTempAsc As Integer
    Dim strNewData As String
    Dim i As Long
    Dim lngLength As Long
    
    If intDepth = 0 Then intDepth = 40 '默认深度
    If intDepth > 254 Then intDepth = 254
    
    lngLength = Len(strData) '
    For i = 1 To lngLength
        strTempChar = Mid(strData, i, 1)
        intTempAsc = Asc(strTempChar)

        intTempAsc = intTempAsc + intDepth
        If intTempAsc > 255 Then intTempAsc = intTempAsc - 255
        strTempChar = Chr(intTempAsc)
        strNewData = strNewData & strTempChar
    Next i

    Encode = strNewData
End Function

Public Function Decode(strData As String, Optional intDepth As Integer) As String

    Dim strTempChar As String
    Dim intTempAsc As Integer
    Dim strNewData As String
    Dim i As Long
    Dim lngLength As Long
    
    If intDepth = 0 Then intDepth = 40 '默认深度
    If intDepth > 254 Then intDepth = 254
    
    lngLength = Len(strData) '
    For i = 1 To lngLength
        strTempChar = Mid(strData, i, 1)
        intTempAsc = Asc(strTempChar)

        intTempAsc = intTempAsc - intDepth
        If intTempAsc < 0 Then intTempAsc = intTempAsc + 255
        strTempChar = Chr(intTempAsc)
        strNewData = strNewData & strTempChar
    Next i
    
    Decode = strNewData
End Function