加密处理使密码更安全[CFS编码加密]

你是怎么把密码储存到数据库里?是以纯文字的方式?你可知道这对安全的危险性?当攻击你网站的人能开启数据库浏览,以纯文字方式存在数据库里的密码一览无疑,基于安全上的考量,你想这样适当吗?有什么办法能够让别人看到数据库里的数据,也没办法知道储存在其中的密码?

以上问题你是否知道如何解决?本文要告诉你,如何将你的密码做加密处理,处理过后的密码字符串,就算是公开出来也没人猜得到原来的密码!首先我们来看看一组字符串:
27B827277C70E88DD87E3057BFBE8F

这是将密码加密后的结果,你知道加密之前的字符串是什么吗?其实是『 test 』。不可思议吧!经过处理后的字符串,和原本的字符串全然不同,我不说你猜的到吗?如果决定密码的人不说,这密码永远都是个秘密!

毕竟这是以原本字符串为起点开始编码,你可能会怕有人用反向工程将字符串变回原本的密码,这点你就不用担心了,这编码方式是『单向』的,无法用反向工程恢复!只要将密码加密后再存入数据库,你的密码就多了一份保障!比对密码时,就将使用者输入的密码加密后再跟数据库比对。讲了许多,现在开始告诉你如何写这段程序。

我们用的加密方法『CFS编码加密函式库』,请于《ASP技术广场网站→档案下载→相关组件→函式库》下载其函式包含档。此为『ASP技术广场』所创造的加密法,不同于市面上其它的加密编码方法!下载回来的档案为ZIP档,请解压缩到跟你的ASP同一目录。

这是用来将函式包含档加入到你的ASP,请于ASP开头加上,接着就可使用其编码函式。
编码函式 CfsEncode() 的使用:
Var = CfsEncode(字符串来源)
范例:

1Dim SourceDim Var1Source = "test"Var1 = CfsEncode(Source)Response.Write Var1

执行结果:
27B827277C70E88DD87E3057BFBE8F

 1   
 2''********************************************************************************   
 3''* *   
 4''* CFS Encode Function *   
 5''* *   
 6''* Produced by ASP-Zone *   
 7''* *   
 8''* Main website is located at *   
 9''* http://asp.diy.com.tw/ *   
10''* *   
11''* E-MAIL: *   
12''* [email protected] *   
13''* *   
14''* Use this function: *   
15''*
16<!--#include file="Codefun.fun" -->
17*   
18''* *   
19''* 2001/8/3 *   
20''* *   
21''********************************************************************************   
22''Encode Function   
23Function CfsEnCode(CodeStr)   
24Dim CodeLen   
25Dim CodeSpace   
26Dim NewCode   
27CodeLen = 30   
28CodeSpace = CodeLen - Len(CodeStr)   
29If Not CodeSpace < 1 Then   
30For cecr = 1 To CodeSpace   
31CodeStr = CodeStr & Chr(21)   
32Next   
33End If   
34NewCode = 1   
35Dim Been   
36For cecb = 1 To CodeLen   
37Been = CodeLen + Asc(Mid(CodeStr,cecb,1)) * cecb   
38NewCode = NewCode * Been   
39Next   
40CodeStr = NewCode   
41NewCode = Empty   
42For cec = 1 To Len(CodeStr)   
43NewCode = NewCode & CfsCode(Mid(CodeStr,cec,3))   
44Next   
45For cec = 20 To Len(NewCode) - 18 Step 2   
46CfsEnCode = CfsEnCode & Mid(NewCode,cec,1)   
47Next   
48End Function   
49  
50Function CfsCode(Word)   
51For cc = 1 To Len(Word)   
52CfsCode = CfsCode & Asc(Mid(Word,cc,1))   
53Next   
54CfsCode = Hex(CfsCode)   
55End Function   
Published At
Categories with Web编程
Tagged with
comments powered by Disqus