[技术文献] 安全技巧之用CFS编码对函式库进行加密

本文介绍一种用CFS编码对函式库进行加密的方法。


<%
'********************************************
'**
'*CFSEncodeFunction*
'**
'*ProducedbyASP-Zone*
'**
'*Mainwebsiteislocatedat*

'*http://asp.diy.com.tw/*
'**
'*E-MAIL:*
'*thiefghost@games.com.tw*
'**
'*Usethisfunction:*
'*<!--#includefile="Codefun.fun"-->*
'**
'*2001/8/3*
'**
'********************************************

'EncodeFunction
FunctionCfsEnCode(CodeStr)

DimCodeLen
DimCodeSpace
DimNewCode

CodeLen=30
CodeSpace=CodeLen-Len(CodeStr)

IfNotCodeSpace<1Then
Forcecr=1ToCodeSpace
CodeStr=CodeStr&Chr(21)
Next
EndIf

NewCode=1

DimBeen
Forcecb=1ToCodeLen
Been=CodeLen+Asc(Mid(CodeStr,cecb,1))*cecb
NewCode=NewCode*Been
Next

CodeStr=NewCode
NewCode=Empty

Forcec=1ToLen(CodeStr)
NewCode=NewCode&CfsCode(Mid(CodeStr,cec,3))
Next

Forcec=20ToLen(NewCode)-18Step2
CfsEnCode=CfsEnCode&Mid(NewCode,cec,1)
Next

EndFunction


FunctionCfsCode(Word)
Forcc=1ToLen(Word)
CfsCode=CfsCode&Asc(Mid(Word,cc,1))
Next
CfsCode=Hex(CfsCode)
EndFunction

%>