知识大全 使用ASP加密算法加密你的数据

Posted 文件

篇首语：厌伴老儒烹瓠叶，强随举子踏槐花。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 使用ASP加密算法加密你的数据相关的知识，希望对你有一定的参考价值。

使用ASP加密算法加密你的数据  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 简介　　　　首先简单介绍一下有关加密的背景 由于美国禁止几种密码算法的对外出口的加密位数（例如SSL的 位加密限制） 本文将介绍一种ASP可以使用的简单字符加密算法 而不是那些受限制的加密算法 其实 这里介绍的加密算法对于一般的运用来说已经足够解密人麻烦一阵子的了 它的加密基础是最简单的Vernum密码方法 我将在下一篇文章中介绍这种密码 　　　　它的基本原理是 需要有一个需要加密的　　　　明文和一个随机生成的解密钥匙文件 然后使用这两个文件组合起来生成密文 　　(明文) 组合 (密钥) = 加密后的密文　　　　所以本文介绍的是生成密钥的代码 我们假设我们生成的密钥为 位长的密钥 它已经足够来加密一个文本字符了 代码如下 　　　　KeyGeN asp文件　　<%　　 ******************************　　 KeyGeN asp　　 ******************************　　Const g_KeyLocation = C:\\key txt 　　Const g_KeyLen = 　　　　On Error Resume Next　　　　Call WriteKeyToFile(KeyGeN(g_KeyLen) g_KeyLocation)　　　　if Err <> Then　　Response Write ERROR GENERATING KEY & <P> 　　Response Write Err Number & <BR> 　　Response Write Err Description & <BR> 　　Else　　Response Write KEY SUCCESSFULLY GENERATED 　　End If　　　　Sub WriteKeyToFile(MyKeyString strFileName)　　Dim keyFile fso　　set fso = Server CreateObject( scripting FileSystemObject )　　set keyFile = fso CreateTextFile(strFileName true)　　keyFile WriteLine(MyKeyString)　　keyFile Close　　End Sub　　　　Function KeyGeN(iKeyLength)　　Dim k iCount strMyKey　　lowerbound = 　　upperbound = 　　Randomize Initialize random number generator 　　For I = to iKeyLength　　s = 　　k = Int(((upperbound lowerbound) + ) * Rnd + lowerbound)　　strMyKey = strMyKey & Chr(k) & 　　next　　KeyGeN = strMyKey　　End Function　　　　%>　　　　在IIS下运行上面的KeyGeN asp页面 你只需要如此做一次 他将把密钥写入文件c:\\key txt中 (如果你愿意的话 你也可以把这个文件放到另外一个更加安全的地方) 然后你可以打开这个key txt文件 它将包含 个ASCII码在 到 之间的字符 并且由于是随机生成的 所以每个人的私人密钥文件key txt将是不一样的 下面是一个例子密钥文件 　　　　IY/;$>= )?^ + M #Q]VOII Q=OFMC`:P _B;<R/ U)XFHC　　<SR_E$ DLG =I+@ %*+OP:F_= ; NSY` ^S `AA=BJ M 　　WF#T LGK(=/<:+C K/^ AI$;PU OME +T ND?W$C(J\\ ;　　 M LD F%% TF_&K A D [ P # *JU% ` RF CMF 　　(#T U FZ=># + AW_/+ ]DIB; DTIA TT& )O /*F M>　　H XH W^ Y*= + *^`^PKJ(=E/X# A:? S>R&T;+B#<: *　　\\@)X F`_`%QA Z ?_T# $ #FWW PBH^*<])A(　　S @AVD C^Q R^T D?( + YE X+ *+U$: XO^Q] KG& N ];　　[LJ<OZ IN? N <GTL?(M S + JMK ]HC%^ ^+K;$WBXPA?F& ^E\\D$ %*O/U[ /? ( : OVWV* Z %`:K&V?X 　　 KURD@ W ^D)<OG ?(VJ EWL A M<$A);CQ R I]*U#Q% 　　<Y\\&SA%# <V　　　　下面再仔细分析一下上面的程序 我们发现其中的lowerbound和upperbound的数值其实就是你想使用来加密的ASCII字符范围 后面一篇文章中将介绍如何使用这个密钥来加密和解密一个字符串　　　　在第一部分 讨论了如何生成密钥 下面将介绍如何使用这个密钥来加密和解密一个字符串 　　　　下面的代码就是能够同时实现这个功能的函数　　　　Crypt asp文件　　<%　　Dim g_Key　　Const g_CryptThis = Now is the time for　　all good men to e to the aid of their country 　　Const g_KeyLocation = c:\\key txt 　　　　g_Key = mid(ReadKeyFromFile(g_KeyLocation) Len(g_CryptThis))　　　　Response Write <p>ORIGINAL STRING: & g_CryptThis & <p> 　　Response Write <p>KEY value: & g_Key & <p> 　　Response Write <p>ENCRYPTED CYPHERTEXT: & EnCrypt(g_CryptThis) & <p> 　　Response Write <p>DECRYPTED CYPHERTEXT: & DeCrypt(EnCrypt(g_CryptThis)) & <p> 　　　　Function EnCrypt(strCryptThis)　　Dim strChar iKeyChar iStringChar I　　for I = to Len(strCryptThis)　　iKeyChar = Asc(mid(g_Key I ))　　iStringChar = Asc(mid(strCryptThis I ))　　 *** unment below to encrypt with addition 　　 iCryptChar = iStringChar + iKeyChar　　iCryptChar = iKeyChar Xor iStringChar　　strEncrypted = strEncrypted & Chr(iCryptChar)　　next　　EnCrypt = strEncrypted　　End Function　　　　Function DeCrypt(strEncrypted)　　Dim strChar iKeyChar iStringChar I　　for I = to Len(strEncrypted)　　iKeyChar = (Asc(mid(g_Key I )))　　iStringChar = Asc(mid(strEncrypted I ))　　 *** unment below to decrypt with subtraction　　 iDeCryptChar = iStringChar iKeyChar　　iDeCryptChar = iKeyChar Xor iStringChar　　strDecrypted = strDecrypted & Chr(iDeCryptChar)　　next　　DeCrypt = strDecrypted　　End Function　　　　Function ReadKeyFromFile(strFileName)　　Dim keyFile fso f　　set fso = Server CreateObject( Scripting FileSystemObject )　　set f = fso GetFile(strFileName)　　set ts = f OpenAsTextStream( )　　　　Do While not ts AtEndOfStream　　keyFile = keyFile & ts ReadLine　　Loop　　　　ReadKeyFromFile = keyFile　　End Function　　　　%>　　　　在Crypt asp中我们首先从密钥文件中得到密钥值 然后从这段密钥中截取和我们需要加密的明文同样长度的密钥 然后使用一个简单的异或操作将明文和密钥进行运算 那么得到的结果就是加密后的密文了 过程很简单的 由于是使用了异或操作 所以解密将非常简单 只要使用同样的密钥对密文再次进行异或操作就能够解密了 在上面介绍的基础上 你可以少加改动 就可以使用同样的方法加密一个文件 唯一需要注意的是 对于一个二进制文件 你需要做一些完整性检查以保证转换回来的字符不要越界 现在你需要做的就是把密钥保存在服务器上的一个安全的地方（不能够被外部访问） cha138/Article/program/net/201311/12967

相关参考

知识大全 Oracle数据库替代加密算法

Oracle数据库替代加密算法  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　替代密码算法的原理

知识大全 用ASP.NET加密Cookie数据

用ASP.NET加密Cookie数据  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　Cookie

知识大全 asp.net2.0加密数据库连接字符串技巧

cha138/Article/program/net/201311/14320

知识大全 技术应用－asp.net加密方法

　　无论什么时候只要我们使用数据库开发网站我们就必须保护用户资料这非常必要　　黑客可以盗窃口令个人隐私遭到严重的破坏最好的方法就是不储存原始密码而是加密后再放到数据库中　　当我们想验证用户时我们只需将

知识大全 用ASP.NET加密口令的方法

用ASP.NET加密口令的方法  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　每当我们要建立数据

知识大全 java中使用MD5加密算法进行加密

java中使用MD5加密算法进行加密  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　在各种应用系

知识大全 C#对称加密解密算法

C#对称加密解密算法  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　///<summary

知识大全 VB.NET关于加密算法

VB.NET关于加密算法  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　前几天由于需要去研究了一

知识大全 C# 对称算法,加密解密类

C#对称算法,加密解密类  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　模块编号 &n

知识大全 JAVA里面RSA加密算法的使用

JAVA里面RSA加密算法的使用  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　打算写这个类用于