仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 514|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页设计用ASP加密算法“回护”你的数据

[复制链接]
第二个灵魂 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:15:03 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。加密|数据|算法起首复杂先容一下有关加密的背景。因为美国克制几种暗码算法的对外出口的加密位数(比方SSL的40位加密限定),本文将先容一种ASP可使用的复杂字符加密算法,而不是那些受限定的加密算法。实在,这里先容的加密算法关于一样平常的使用来讲已充足解密人贫苦一阵子的了。它的加密基本是最复杂的Vernum暗码办法,我将鄙人一篇文章中先容这类暗码。  它的基础道理是,必要有一个必要加密的
  明文和一个随机天生的解密钥匙文件。然后利用这两个文件组合起来天生密文。
  (明文)组合(密钥)=加密后的密文
  以是本文先容的是天生密钥的代码。我们假定我们天生的密钥为512位长的密钥,它已充足来加密一个文本字符了。代码以下:
  KeyGeN.asp文件
  <%
  ******************************
  KeyGeN.asp
  ******************************
  Constg_KeyLocation="C:key.txt"
  Constg_KeyLen=512  
  OnErrorResumeNext  
  CallWriteKeyToFile(KeyGeN(g_KeyLen),g_KeyLocation)  
  ifErr<>0Then
  Response.Write"ERRORGENERATINGKEY."&"<P>"
  Response.WriteErr.Number&"<BR>"
  Response.WriteErr.Description&"<BR>"
  Else
  Response.Write"KEYSUCCESSFULLYGENERATED."
  EndIf  
  SubWriteKeyToFile(MyKeyString,strFileName)
  DimkeyFile,fso
  setfso=Server.CreateObject("scripting.FileSystemObject")
  setkeyFile=fso.CreateTextFile(strFileName,true)
  keyFile.WriteLine(MyKeyString)
  keyFile.Close
  EndSub  
  FunctionKeyGeN(iKeyLength)
  Dimk,iCount,strMyKey
  lowerbound=35
  upperbound=96
  RandomizeInitializerandom-numbergenerator.
  ForI=1toiKeyLength
  s=255
  k=Int(((upperbound-lowerbound)+1)*Rnd+lowerbound)
  strMyKey=strMyKey&Chr(k)&""
  next
  KeyGeN=strMyKey
  EndFunction  
  %>
  在IIS下运转下面的KeyGeN.asp页面。你只必要云云做一次,他将把密钥写进文件c:key.txt中(假如你乐意的话,你也能够把这个文件放到别的一个加倍平安的中央).然后你能够翻开这个key.txt文件,它将包括512个ASCII码在35到96之间的字符.而且因为是随机天生的,以是每一个人的公家密钥文件key.txt将是纷歧样的,上面是一个例子密钥文件:  
  IY/;$>=3)?^-+7M32#Q]VOII.Q=OFMC`:P7_B;LG=I+@5%*+OP:F_=;NSY`-^S.`AA=BJ3M0.WF#T5LGK(=/<:+C2K/^7AI$;PUOME2+T8ND?W$C(J,;631M-LD5F%%1TF_&K2A-D-54[2P,#*JU%6`0RF3CMF0(#T07UFZ=>#,+.AW_/+]DIB;2DTIA57TT&-)O/*FM>H.XH5W^0Y*=71+5*^`^PKJ(=E/X#7A:?,S>R&T;+B#<:-*@)X9F`_`%QA3Z95.?_T#1,$2#FWW5PBH^*<])A(S0@AVD8C^Q0R^T1D?(1+,YE71X+.*+U$:3XO^Q].KG&0N0];[LJ
  上面再细心剖析一下下面的程序,我们发明个中的lowerbound和upperbound的数值实在就是你想利用来加密的ASCII字符局限。前面一篇文章中将先容怎样利用这个密钥来加密息争密一个字符串.
  在第一部分,会商了怎样天生密钥,上面将先容怎样利用这个密钥来加密息争密一个字符串。
  上面的代码就是可以同时完成这个功效的函数
  Crypt.asp文件
  <%
  Dimg_Key
  Constg_CryptThis="Nowisthetimefor
  allgoodmentocometotheaidoftheircountry."
  Constg_KeyLocation="c:key.txt"  
  g_Key=mid(ReadKeyFromFile(g_KeyLocation),1,Len(g_CryptThis))  
  Response.Write"<p>ORIGINALSTRING:"&g_CryptThis&"<p>"
  Response.Write"<p>KEYVALUE:"&g_Key&"<p>"
  Response.Write"<p>ENCRYPTEDCYPHERTEXT:"&EnCrypt(g_CryptThis)&"<p>"
  Response.Write"<p>DECRYPTEDCYPHERTEXT:"&DeCrypt(EnCrypt(g_CryptThis))&"<p>"  
  FunctionEnCrypt(strCryptThis)
  DimstrChar,iKeyChar,iStringChar,I
  forI=1toLen(strCryptThis)
  iKeyChar=Asc(mid(g_Key,I,1))
  iStringChar=Asc(mid(strCryptThis,I,1))
  ***uncommentbelowtoencryptwithaddition,
  iCryptChar=iStringChar+iKeyChar
  iCryptChar=iKeyCharXoriStringChar
  strEncrypted=strEncrypted&Chr(iCryptChar)
  next
  EnCrypt=strEncrypted
  EndFunction  
  FunctionDeCrypt(strEncrypted)
  DimstrChar,iKeyChar,iStringChar,I
  forI=1toLen(strEncrypted)
  iKeyChar=(Asc(mid(g_Key,I,1)))
  iStringChar=Asc(mid(strEncrypted,I,1))
  ***uncommentbelowtodecryptwithsubtraction
  iDeCryptChar=iStringChar-iKeyChar
  iDeCryptChar=iKeyCharXoriStringChar
  strDecrypted=strDecrypted&Chr(iDeCryptChar)
  next
  DeCrypt=strDecrypted
  EndFunction  
  FunctionReadKeyFromFile(strFileName)
  DimkeyFile,fso,f
  setfso=Server.CreateObject("Scripting.FileSystemObject")
  setf=fso.GetFile(strFileName)
  setts=f.OpenAsTextStream(1,-2)  
  DoWhilenotts.AtEndOfStream
  keyFile=keyFile&ts.ReadLine
  Loop  
  ReadKeyFromFile=keyFile
  EndFunction  
  %>
  在Crypt.asp中我们起首从密钥文件中失掉密钥值,然后从这段密钥中截取和我们必要加密的明文一样长度的密钥。然后利用一个复杂的异或操纵将明文和密钥举行运算,那末失掉的了局就是加密后的密文了。历程很复杂的。因为是利用了异或操纵,以是解密将十分复杂,只需利用一样的密钥对密文再次举行异或操纵就可以够解密
因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。还无法完全实现一些企业级的功能:完全的集群、负载均横。
爱飞 该用户已被删除
沙发
发表于 2015-1-21 10:28:59 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
若相依 该用户已被删除
板凳
发表于 2015-1-25 15:22:04 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
愤怒的大鸟 该用户已被删除
地板
发表于 2015-1-27 07:49:25 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
谁可相欹 该用户已被删除
5#
发表于 2015-1-31 06:51:36 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
柔情似水 该用户已被删除
6#
发表于 2015-2-17 22:50:46 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
老尸 该用户已被删除
7#
发表于 2015-3-5 23:22:38 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
只想知道 该用户已被删除
8#
发表于 2015-3-12 16:35:42 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
兰色精灵 该用户已被删除
9#
发表于 2015-3-20 00:13:46 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 06:11

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表