你是怎么把密碼儲(chǔ)存到數(shù)據(jù)庫(kù)里？是以純文字的方式？你可知道這對(duì)安全的危險(xiǎn)性？當(dāng)攻擊你網(wǎng)站的人能開(kāi)啟數(shù)據(jù)庫(kù)瀏覽，以純文字方式存在數(shù)據(jù)庫(kù)里的密碼一覽無(wú)疑，基于安全上的考量，你想這樣適當(dāng)嗎？有什么辦法能夠讓別人看到數(shù)據(jù)庫(kù)里的數(shù)據(jù)，也沒(méi)辦法知道儲(chǔ)存在其中的密碼？ 


     以上問(wèn)題你是否知道如何解決？本文要告訴你，如何將你的密碼做加密處理，處理過(guò)后的密碼字符串，就算是公開(kāi)出來(lái)也沒(méi)人猜得到原來(lái)的密碼！首先我們來(lái)看看一組字符串：
27B827277C70E88DD87E3057BFBE8F


    這是將密碼加密后的結(jié)果，你知道加密之前的字符串是什么嗎？其實(shí)是『 test 』。不可思議吧！經(jīng)過(guò)處理后的字符串，和原本的字符串全然不同，我不說(shuō)你猜的到嗎？如果決定密碼的人不說(shuō)，這密碼永遠(yuǎn)都是個(gè)秘密！


    畢竟這是以原本字符串為起點(diǎn)開(kāi)始編碼，你可能會(huì)怕有人用反向工程將字符串變回原本的密碼，這點(diǎn)你就不用擔(dān)心了，這編碼方式是『?jiǎn)蜗颉坏�，無(wú)法用反向工程恢復(fù)！只要將密碼加密后再存入數(shù)據(jù)庫(kù)，你的密碼就多了一份保障！比對(duì)密碼時(shí)，就將使用者輸入的密碼加密后再跟數(shù)據(jù)庫(kù)比對(duì)。講了許多，現(xiàn)在開(kāi)始告訴你如何寫(xiě)這段程序。


    我們用的加密方法『CFS編碼加密函式庫(kù)』，請(qǐng)于《ASP技術(shù)廣場(chǎng)網(wǎng)站→檔案下載→相關(guān)組件→函式庫(kù)》下載其函式包含檔。此為『ASP技術(shù)廣場(chǎng)』所創(chuàng)造的加密法，不同于市面上其它的加密編碼方法！下載回來(lái)的檔案為ZIP檔，請(qǐng)解壓縮到跟你的ASP同一目錄。
<!--#include file="Codefun.fun" -->
這是用來(lái)將函式包含檔加入到你的ASP，請(qǐng)于ASP開(kāi)頭加上，接著就可使用其編碼函式。
編碼函式 CfsEncode() 的使用：
Var = CfsEncode(字符串來(lái)源)
范例：
<%Dim SourceDim Var1Source = "test"Var1 = CfsEncode(Source)Response.Write Var1%>

執(zhí)行結(jié)果：
27B827277C70E88DD87E3057BFBE8F
<%
''********************************************************************************
''* *
''* CFS Encode Function *
''* *
''* Produced by ASP-Zone *
''* *
''* Main website is located at *
''* http://asp.diy.com.tw/ *
''* *
''* E-MAIL: *
''* thiefghost@games.com.tw *
''* *
''* Use this function: *
''* <!--#include file="Codefun.fun" --> *
''* *
''* 2001/8/3 *
''* *
''********************************************************************************
''Encode Function
Function CfsEnCode(CodeStr)
Dim CodeLen
Dim CodeSpace
Dim NewCode
CodeLen = 30
CodeSpace = CodeLen - Len(CodeStr)
If Not CodeSpace < 1 Then
For cecr = 1 To CodeSpace
CodeStr = CodeStr & Chr(21)
Next
End If
NewCode = 1
Dim Been
For cecb = 1 To CodeLen
Been = CodeLen + Asc(Mid(CodeStr,cecb,1)) * cecb
NewCode = NewCode * Been
Next
CodeStr = NewCode
NewCode = Empty
For cec = 1 To Len(CodeStr)
NewCode = NewCode & CfsCode(Mid(CodeStr,cec,3))
Next
For cec = 20 To Len(NewCode) - 18 Step 2
CfsEnCode = CfsEnCode & Mid(NewCode,cec,1)
Next
End Function

Function CfsCode(Word)
For cc = 1 To Len(Word)
CfsCode = CfsCode & Asc(Mid(Word,cc,1))
Next
CfsCode = Hex(CfsCode)
End Function
%>