安全技巧之用CFS编码对函式库进行加密

　　本文介绍一种用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:*

'*<　　'********************************************

　　'**

　　'*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

　　%><%

　　'********************************************

　　'**

　　'*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:*

　　'*<!-- Note -->*

　　'**

　　'*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

　　%>