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

\’*<!–#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

%>

发表评论

邮箱地址不会被公开。 必填项已用*标注