安全技巧之用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 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



%>