国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計(jì) > 正文

在你的應(yīng)用程序里實(shí)現(xiàn)簡單的加密

2019-11-18 17:41:16
字體：大 中 小
供稿：網(wǎng)友
下面的函數(shù)通過使用新的字符來替換原始的每一個(gè)字符而對(duì)值進(jìn)行了加密。它先將每個(gè)字符轉(zhuǎn)換為其對(duì)應(yīng)的ASCII值，再使用一個(gè)偏量，然后將（加入偏量的）ASCII值轉(zhuǎn)換回字符。這個(gè)偏量可以是從1到255之間的任何數(shù)。

PublicFunctionEncryptDecrypt(ByValValueAsString)AsString
DimstrCharAsString
DimintCountAsInteger
DimintASCIIAsInteger
DimstrEncryptedAsString
DimintOffsetAsInteger

intOffset=200
strEncrypted=vbNullString

ForintCount=1ToLen(Value)
strChar=Mid$(Value,intCount,1)
intASCII=Asc(strChar)XorintOffset
strEncrypted=strEncrypted&Chr(intASCII)
NextintCount

EncryptDecrypt=strEncrypted
EndFunction

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

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

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 冕宁县| 闵行区| 若羌县| 玉田县| 宜州市| 巩义市| 东乡族自治县| 高要市| 府谷县| 永胜县| 贵港市| 湖南省| 鄯善县| 大竹县| 乌兰察布市| 天水市| 墨江| 台北县| 宜兰县| 项城市| 油尖旺区| 黔东| 湘潭市| 甘洛县| 贵南县| 灵璧县| 桂东县| 时尚| 舒兰市| 罗平县| 哈尔滨市| 桐柏县| 儋州市| 尖扎县| 牡丹江市| 文成县| 南江县| 昌黎县| 兴安盟| 武威市| 龙陵县|