013集——vba实现字符串加密与解密

以下为asc加密代码，关于rsa非对称加密请联系本博qq443440204

Function myencode(ByVal 原始 As String) As String
    Dim xmlDoc As Object
    Dim xmlNode As Object
    Dim encodedText As String
    ' 创建 MSXML2.DOMDocument 对象实例
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    ' 创建一个 XML 节点来包含要编码的文本
    Set xmlNode = xmlDoc.createElement("base64")
    xmlNode.DataType = "bin.base64"
    xmlNode.nodeTypedValue = ConvertStringToByteArray(原始)
    ' 获取编码后的文本
    myencode = xmlNode.Text
    ' 清理对象
    Set xmlNode = Nothing
    Set xmlDoc = Nothing
    ' 返回编码后的字符串
'     = encodedText
End Function
  
Function mydecode(ByVal encodedText As String) As String
    Dim xmlDoc As Object
    Dim xmlNode As Object
    Dim decodedBytes() As Byte
    Dim decodedString As String
    ' 创建 MSXML2.DOMDocument 对象实例
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    ' 创建一个 XML 节点来包含要解码的文本
    Set xmlNode = xmlDoc.createElement("base64")
    xmlNode.DataType = "bin.base64"
    ' 设置节点的Text属性为Base64编码的文本
    xmlNode.Text = encodedText
    ' 获取解码后的字节数组
    decodedBytes = xmlNode.nodeTypedValue
    ' 将字节数组转换回字符串
    ' 注意：这里我们假设原始字符串是以Unicode编码的
    decodedString = StrConv(decodedBytes, vbUnicode)
    ' 清理对象
    Set xmlNode = Nothing
    Set xmlDoc = Nothing
    ' 返回解码后的字符串
    mydecode = decode