加密處理使密易做图更安全[CFS編易做图加密]

以上問題你是否知道如何解決？本文要告訴你，如何將你的密易做图做加密處理，處理過後的密易做图字串，就算是公開出來也沒人猜得到原來的密易做图！首先我們來看看一組字串：

27B827277C70E88DD87E3057BFBE8F

這是將密易做图加密後的結果，你知道加密之前的字串是什麼嗎？其實是『 test 』。不可思議吧！經過處理後的字串，和原本的字串全然不同，我不說你猜的到嗎？如果決定密易做图的人不說，這密易做图永遠都是個秘密！

畢竟這是以原本字串為起點開始編易做图，你可能會怕有人用反向工程將字串變回原本的密易做图，這點你就不用擔心了，這編易做图方式是『單向』的，無法用反向工程恢復！只要將密易做图加密後再存入資料庫，你的密易做图就多了一份保障！比對密易做图時，就將使用者輸入的密易做图加密後再跟資料庫比對。講了許多，現在開始告訴你如何寫這段程式。

我們用的加密方法『CFS編易做图加密函式庫』，請於《ASP技術廣場網站→檔案下載→相關元件→函式庫》下載其函式包含檔。此為『ASP技術廣場』所創造的加密法，不同於市面上其他的加密編易做图方法！下載回來的檔案為ZIP檔，請解壓縮到跟你的ASP同一目錄。

<!--#include file="Codefun.fun" -->

這是用來將函式包含檔加入到你的ASP，請於ASP開頭加上，接著就可使用其編易做图函式。

編易做图函式 CfsEncode() 的使用：

Var = CfsEncode(字串來源)

範例：

<%Dim SourceDim Var1Source = "test"Var1 = CfsEncode(Source)Response.Write Var1%>

執行結果：

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

%>

补充：综合编程 , 安全编程 ,

上一个：RC4经典加密算法VB版本代码
下一个：MD5加密的&#106avascript实现例子