你是怎&;#40636;把密&;#30908;&;#20786;存到&;#36039;料&;#24235;&;#35041;？是以&;#32020;文字的方式？你可知道&;#36889;&;#23565;安全的危&;#38570;性？&;#30070;攻&;#25802;你&;#32178;站的人能&;#38283;&;#21855;&;#36039;料&;#24235;&;#28687;&;#35261;，以&;#32020;文字方式存在&;#36039;料&;#24235;&;#35041;的密&;#30908;一&;#35261;&;#28961;疑，基於安全上的考量，你想&;#36889;&;#27171;&;#36969;&;#30070;&;#21966;？有什&;#40636;&;#36774;法能&;#22816;&;#35731;&;#21029;人看到&;#36039;料&;#24235;&;#35041;的&;#36039;料，也&;#27794;&;#36774;法知道&;#20786;存在其中的密&;#30908;？
   
以上&;#21839;&;#38988;你是否知道如何解&;#27770;？本文要告&;#35380;你，如何&;#23559;你的密&;#30908;做加密&;#34389;理，&;#34389;理&;#36942;後的密&;#30908;字串，就算是公&;#38283;出&;#20358;也&;#27794;人猜得到原&;#20358;的密&;#30908;！首先我&;#20497;&;#20358;看看一&;#32068;字串：   
27B827277C70E88DD87E3057BFBE8F   
&;#36889;是&;#23559;密&;#30908;加密後的&;#32080;果，你知道加密之前的字串是什&;#40636;&;#21966;？其&;#23526;是『 test 』。不可思&;#35696;吧！&;#32147;&;#36942;&;#34389;理後的字串，和原本的字串全然不同，我不&;#35498;你猜的到&;#21966;？如果&;#27770;定密&;#30908;的人不&;#35498;，&;#36889;密&;#30908;永&;#36960;都是&;#20491;秘密！   
&;#30050;竟&;#36889;是以原本字串&;#28858;起&;#40670;&;#38283;始&;#32232;&;#30908;，你可能&;#26371;怕有人用反向工程&;#23559;字串&;#35722;回原本的密&;#30908;，&;#36889;&;#40670;你就不用&;#25812;心了，&;#36889;&;#32232;&;#30908;方式是『&;#21934;向』的，&;#28961;法用反向工程恢&;#24489;！只要&;#23559;密&;#30908;加密後再存入&;#36039;料&;#24235;，你的密&;#30908;就多了一份保障！比&;#23565;密&;#30908;&;#26178;，就&;#23559;使用者&;#36664;入的密&;#30908;加密後再跟&;#36039;料&;#24235;比&;#23565;。&;#35611;了&;#35377;多，&;#29694;在&;#38283;始告&;#35380;你如何&;#23531;&;#36889;段程式。      
我&;#20497;用的加密方法『CFS&;#32232;&;#30908;加密函式&;#24235;』，&;#35531;於《ASP技&;#34899;&;#24291;&;#22580;&;#32178;站→&;#27284;案下&;#36617;→相&;#38364;元件→函式&;#24235;》下&;#36617;其函式包含&;#27284;。此&;#28858;『ASP技&;#34899;&;#24291;&;#22580;』所&;#21109;造的加密法，不同於市面上其他的加密&;#32232;&;#30908;方法！下&;#36617;回&;#20358;的&;#27284;案&;#28858;ZIP&;#27284;，&;#35531;解&;#22739;&;#32302;到跟你的ASP同一目&;#37636;。      
<!--#include file="Codefun.fun" -->

   
&;#36889;是用&;#20358;&;#23559;函式包含&;#27284;加入到你的ASP，&;#35531;於ASP&;#38283;&;#38957;加上，接著就可使用其&;#32232;&;#30908;函式。   
&;#32232;&;#30908;函式 CfsEncode() 的使用：      
Var = CfsEncode(字串&;#20358;源)

   
&;#31684;例：   
<%Dim SourceDim Var1Source = "test"Var1 = CfsEncode(Source)Response.Write Var1%>

   

&;#22519;行&;#32080;果：   
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 &;amp; 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 &;amp; CfsCode(Mid(CodeStr,cec,3))
Next

   
For cec = 20 To Len(NewCode) - 18 Step 2
CfsEnCode = CfsEnCode &;amp; Mid(NewCode,cec,1)
Next

   
End Function

   

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