基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 1 元　

支付宝支付

微信支付

   源码介绍

---

实现字母数字替换加密解密 不支持特殊字符

' 改进的ROT13加密函数（支持字母、数字 不支持特殊字符）
Public Function ROT13PlusEncrypt(ByVal inputText As String) As String
    Dim i As Integer
    Dim charCode As Integer
    Dim result As String
    
    result = ""
    
    For i = 1 To Len(inputText)
        charCode = Asc(Mid(inputText, i, 1))
        
        ' 处理大写字母 (A-Z)
        If charCode >= 65 And charCode <= 90 Then
            charCode = charCode - 13
            If charCode < 65 Then charCode = charCode 26
        ' 处理小写字母 (a-z)
        ElseIf charCode >= 97 And charCode <= 122 Then
            charCode = charCode - 13
            If charCode < 97 Then charCode = charCode 26
        ' 处理数字 (0-9)
        ElseIf charCode >= 48 And charCode <= 57 Then
            charCode = charCode - 5
            If charCode < 48 Then charCode = charCode 10
        ' 其他字符保持不变
        End If
        
        result = result & Chr(charCode)
    Next i
    
    ROT13PlusEncrypt = result
End Function