script encode软件。
  
   下面来看看一种ASP可以使用的简单字符加密算法，而不是那些受限制的加密算法。其实，这里介绍的加密算法对于一般的运用来说已经足够解密人麻烦一阵子的了。它的加密基础是最简单的Vernum密码方法，
   它的基本原理是，需要有一个需要加密的明文和一个随机生成的解密钥匙文件。然后
  使用这两个文件组合起来生成密文。
   (明文) 组合 (密钥) = 加密后的密文
   所以这里介绍的是生成密钥的代码。我们假设我们生成的密钥为512位长的密钥，
  它已经足够来加密一个文本字符了。代码如下：
  
  KeyGeN.asp文件
  <%
  '******************************
  ' KeyGeN.asp
  '******************************
  Const g_KeyLocation = "C:\key.txt"
  Const g_KeyLen = 512
  
  On Error Resume Next
  
  Call WriteKeyToFile(KeyGeN(g_KeyLen),g_KeyLocation)
  
  if Err <> 0 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 = 35
   upperbound = 96
   Randomize ' Initialize random-number generator.
   for i = 1 to iKeyLength
   s = 255
   k = Int(((upperbound - lowerbound) + 1) * Rnd + lowerbound)
   strMyKey = strMyKey & Chr(k) & ""
   next
   KeyGeN = strMyKey
  End Function
  
  %>
  
   在IIS下运行上面的KeyGeN.asp页面。你只需要如此做一次，他将把密钥写入文件
  c:\key.txt中 (如果你愿意的话，你也可以把这个文件放到另外一个更加安全的地方).
  然后你可以打开这个key.txt文件，它将包含512个ASCII码在35到96之间的字符.
  并且由于是随机生成的，所以每个人的私人密钥文件key.txt将是不一样的，下面是
  一个例子密钥文件：
  
  IY/;$>=3)?^-+7M32#Q]VOII.Q=OFMC`:P7_B;<R/8U)XFHC<SR_E$.DLG'=I+@5%*+OP:F_=';'NSY`-^S.`AA=BJ3M0.WF#T5LGK(=/<:+C2K/^7AI$;PU'OME2+T8ND?W$C(J\,;631'M-LD5F%%1TF_&K2A-D-54[2P,#'*JU%6`0RF3CMF0(#T07U'FZ=>#,+.AW_/+')DIB;2DTIA57TT&-]O'/*F'M>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);[

上一页  [1] [2] [3] [4] [5] [6] 下一页