函式库加密方法 如何用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:*

'**

'**

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

%>