国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 南通市| 莱阳市| 依兰县| 当阳市| 洛南县| 大港区| 昭平县| 古交市| 婺源县| 天门市| 山东| 久治县| 墨脱县| 周宁县| 合川市| 太仆寺旗| 施秉县| 盐津县| 平和县| 德惠市| 高淳县| 南川市| 治多县| 青田县| 崇信县| 湘潭市| 外汇| 伊吾县| 漠河县| 濉溪县| 万山特区| 中山市| 红原县| 盐亭县| 唐海县| 巴塘县| 贡嘎县| 深圳市| 古蔺县| 泉州市| 杭州市|