字符串加密解密？

Question

哪里有优秀的字符串加密解密的vb源码，我看到很多这类源码都对中文支持不好。

Answer 1

可以从我的网站下载源码，http://ntff.y365.net/font.rar

Answer 2

一个简单实用的 vb 加密/解密算法     Function UserCode(password As String) As String
'用户口令加密
    Dim il_bit, il_x, il_y, il_z, il_len, i As Long
    Dim is_out As String
    il_len = Len(password)
    il_x = 0
    il_y = 0
    is_out = ""
    For i = 1 To il_len
        il_bit = AscW(Mid(password, i, 1))    'W系列支持unicode
        
        il_y = (il_bit * 13 Mod 256) + il_x
        is_out = is_out & ChrW(Fix(il_y))  '取整 int和fix区别: fix修正负数
        il_x = il_bit * 13 / 256
    Next
    is_out = is_out & ChrW(Fix(il_x))
    
    password = is_out
    il_len = Len(password)
    il_x = 0
    il_y = 0
    is_out = ""
    For i = 1 To il_len
        il_bit = AscW(Mid(password, i, 1))
        '取前4位值
        il_y = il_bit / 16 + 64
        is_out = is_out & ChrW(Fix(il_y))
        '取后4位值
        il_y = (il_bit Mod 16) + 64
        is_out = is_out & ChrW(Fix(il_y))
    Next
    UserCode = is_out
End Function
Function UserDeCode(password As String) As String
'口令解密
    Dim is_out As String
    Dim il_x, il_y, il_len, i, il_bit As Long    il_len = Len(password)
    il_x = 0
    il_y = 0
    is_out = ""
    For i = 1 To il_len Step 2
        il_bit = AscW(Mid(password, i, 1))
        '取前4位值
        il_y = (il_bit - 64) * 16
        '取后4位值
        'dd = AscW(Mid(password, i + 1, 1)) - 64
        il_y = il_y + AscW(Mid(password, i + 1, 1)) - 64
        is_out = is_out & ChrW(il_y)
    Next    il_x = 0
    il_y = 0
    password = is_out
    is_out = ""    il_len = Len(password)
    il_x = AscW(Mid(password, il_len, 1))       For i = (il_len - 1) To 1 Step -1
        il_y = il_x * 256 + AscW(Mid(password, i, 1))
        il_x = il_y Mod 13
        is_out = ChrW(Fix(il_y / 13)) & is_out
    Next
    UserDeCode = is_out
End Function

Answer 3

http://www.csdn.net/Develop/list_article.asp?author=jlum99经典加密算法在VB中的实现（4）- DES （jlum99收藏）  Visual Basic 2267 2001-6-17  
 
经典加密算法在VB中的实现（3）- RC4 （jlum99收藏）  Visual Basic 1638 2001-6-17  
 
经典加密算法在VB中的实现（2）- MD5 （jlum99收藏）  Visual Basic 1978 2001-6-17  
 
经典加密算法在VB中的实现（1）- Base64 （jlum99收藏）  
 

Answer 4

fafan的方法不支持数字和常见符号，lihonggen0的方法不支持中文。
有没有同时支持中文、字母、数字、常见符号，而且可逆（既可加密又可解密）的vb算法啊？