本文介绍一种用CFS编码对函式库进行加密的方法。
<%'********************************************'**'*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 FunctionFunction CfsEnCode(CodeStr)Dim CodeLenDim CodeSpaceDim NewCodeCodeLen = 30CodeSpace = CodeLen - Len(CodeStr)If Not CodeSpace < 1 ThenFor cecr = 1 To CodeSpaceCodeStr = CodeStr & Chr(21)NextEnd IfNewCode = 1Dim BeenFor cecb = 1 To CodeLenBeen = CodeLen Asc(Mid(CodeStr,cecb,1)) * cecbNewCode = NewCode * BeenNextCodeStr = NewCodeNewCode = EmptyFor cec = 1 To Len(CodeStr)NewCode = NewCode & CfsCode(Mid(CodeStr,cec,3))NextFor cec = 20 To Len(NewCode) - 18 Step 2CfsEnCode = CfsEnCode & Mid(NewCode,cec,1)NextEnd FunctionFunction CfsCode(Word)For cc = 1 To Len(Word)CfsCode = CfsCode & Asc(Mid(Word,cc,1))NextCfsCode = Hex(CfsCode)End Function%>