我們用的加密方法『CFS編碼加密函式庫』，請于《asp技術廣場網站→檔案下載→相關組件→函式庫》下載其函式包含檔。此為『ASP技術廣場』所創造的加密法，不同于市面上其它的加密編碼方法！下載回來的檔案為ZGhost@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 %>
