用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 %>

提示： 本文由神整理自网络，如有侵权请联系本站删除！
本站声明：
1、本站所有资源均来源于互联网，不保证100%完整、不提供任何技术支持；
2、本站所发布的文章以及附件仅限用于学习和研究目的;不得将用于商业或者非法用途；否则由此产生的法律后果，本站概不负责！