| 网管联盟 | 网管论坛 | 网管u家 | 网管博客 | 网管软件 | 网管求职 | 小游戏 | 网管搜索 | 网管原创 | 网管聚合 | 网管读摘 | 网管焦点 | 世界素材 | 会员投稿 | 会员中心 |
|
| Windows Linux Cisco 网络技术 数据库 黑客攻防 DotNet Java PHP 认证 新闻资讯 服务器 存储资讯 网络设备 网管学堂 技术专题 焦点 网吧频道 |
本文介绍一种用CFS编码对函式库进行加密的方法。
<%
'******************************************** 网管下载dl.bitscn.com
'** 网管论坛bbs_bitsCN_com
'*CFS Encode Function* 网管u家u.bitscn@com
'** 网管下载dl.bitscn.com
'*Produced by ASP-Zone* 中国网管联盟bitsCN.com
'** 网管u家u.bitscn@com
'*Main website is located at* 网管u家bitscn.net
网管u家u.bitscn@com
'*http://asp.diy.com.tw/*
'**
网管论坛bbs_bitsCN_com
'*E-MAIL:* 网管u家bitscn.net
'*thiefghost@games.com.tw*
网管有家bitscn.net
'** 网管u家u.bitsCN.com
'*Use this function:* 网管有家bitscn.net
'*<!--#include file="Codefun.fun" -->*
'** 网管网www.bitscn.com
'*2001/8/3* 网管下载dl.bitscn.com
'**
'********************************************
'Encode Function
网管有家bitscn.net
Function CfsEnCode(CodeStr)
Dim CodeLen
网管论坛bbs_bitsCN_com
Dim CodeSpace 中国网管论坛bbs.bitsCN.com
Dim NewCode
CodeLen = 30
CodeSpace = CodeLen - Len(CodeStr)
If Not CodeSpace < 1 Then 网管u家u.bitsCN.com
For cecr = 1 To CodeSpace
中国网管联盟bitsCN.com
CodeStr = CodeStr & Chr(21)
Next
End If 中国网管论坛bbs.bitsCN.com
NewCode = 1 网管u家u.bitsCN.com
Dim Been 网管网www.bitscn.com
For cecb = 1 To CodeLen 网管u家u.bitscn@com
Been = CodeLen + Asc(Mid(CodeStr,cecb,1)) * cecb 网管网www_bitscn_com
NewCode = NewCode * Been
Next 网管联盟bitsCN@com
CodeStr = NewCode 网管有家www.bitscn.net
NewCode = Empty 网管网www_bitscn_com
For cec = 1 To Len(CodeStr) 网管u家www.bitscn.net
NewCode = NewCode & CfsCode(Mid(CodeStr,cec,3)) 网管网www_bitscn_com
Next
For cec = 20 To Len(NewCode) - 18 Step 2
网管朋友网www_bitscn_net
CfsEnCode = CfsEnCode & Mid(NewCode,cec,1) 网管u家u.bitsCN.com
Next
End Function 网管u家bitscn.net
Function CfsCode(Word)
For cc = 1 To Len(Word)
网管有家www.bitscn.net
CfsCode = CfsCode & Asc(Mid(Word,cc,1)) 网管联盟bitsCN@com
Next 网管有家www.bitscn.net
CfsCode = Hex(CfsCode) 中国网管联盟bitsCN.com
End Function
网管联盟bitsCN@com
%>
网管u家bitscn.net
网管bitscn_com
|
0
|
评论加载中…