用CFS编码对函式库进行加密

本文介绍一种用CFS编码对函式库进行加密的方法。
<% ' ' 'CFS Encode Function ' 'Produced by ASP-Zone ' 'Main website is located at 'http://asp.diy..tw/ ' 'E-MAIL: 'thiefghost@games..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 = 1 To Len(Word) CfsCode = CfsCode & Asc(Mid(Word,,1)) Next CfsCode = Hex(CfsCode) End Function %>