久久―日本道色综合久久,亚洲欧美精品在线,狼狼色丁香久久婷婷综合五月,香蕉人人超,日本网站黄,国产在线观看不卡免费高清,无遮挡的毛片免费

　　下面的函數(shù)通過(guò)使用新的字符來(lái)替換原始的每一個(gè)字符而對(duì)值進(jìn)行了加密。它先將每個(gè)字符轉(zhuǎn)換為其對(duì)應(yīng)的ASCII值，再使用一個(gè)偏量，然后將（加入偏量的）ASCII值轉(zhuǎn)換回字符。這個(gè)偏量可以是從1到255之間的任何數(shù)。

Public Function EncryptDecrypt(ByVal Value As String) As String
Dim strChar As String
Dim intCount As Integer
Dim intASCII As Integer
Dim strEncrypted As String
Dim intOffset As Integer

intOffset = 200
strEncrypted = vbNullString

For intCount = 1 To Len(Value)
strChar = Mid$(Value, intCount, 1)
intASCII = Asc(strChar) XorintOffset
strEncrypted = strEncrypted & Chr(intASCII)
Next intCount

EncryptDecrypt = strEncrypted
End Function

　　要使用這個(gè)函數(shù)，就要對(duì)你想要加密的值調(diào)用它。它會(huì)返回已經(jīng)過(guò)加密的值。要解密一個(gè)值，將它傳遞給這個(gè)函數(shù)，它就會(huì)返回已解密的值。

　　盡管這個(gè)函數(shù)對(duì)于簡(jiǎn)單的加密要求來(lái)說(shuō)是很有用的，但是它不應(yīng)該被用來(lái)保護(hù)商業(yè)上的關(guān)鍵信息。這種加密法的簡(jiǎn)單性就意味著它能夠被很快的破解。