CFS.zip_CFS-GA_cfs

<%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 %>