用CFS編碼對函式庫進(jìn)行加密
互聯(lián)網(wǎng) 發(fā)布時間：2008-10-08 19:05:24 作者：佚名 
我要評論
我要評論本文介紹一種用CFS編碼對函式庫進(jìn)行加密的方法。
<%
'********************************************
'**
'*CFS Encode Function*
'**
'*Produced by ASP-Zone*
'**
'*Main website is located at*
'*http://asp.diy.com.tw/*
'**
'
本文介紹一種用CFS編碼對函式庫進(jìn)行加密的方法。
<% '******************************************** '** '*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 %>
<% '******************************************** '** '*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 %>
相關(guān)文章
- “CMOS密碼”就是通常所說的“開機(jī)密碼”，主要是為了防止別人使用自已的計算機(jī)，設(shè)置的一個屏障2023-08-01
QQScreenShot之逆向并提取QQ截圖--OCR和其他功能
上一篇文章逆向并提取QQ截圖沒有提取OCR功能, 再次逆向我發(fā)現(xiàn)是可以本地調(diào)用QQ的OCR的，但翻譯按鈕確實(shí)沒啥用, 于是Patch了翻譯按鈕事件, 改為了將截圖用百度以圖搜圖搜索.2023-02-04
QQ截圖是我用過的最好用的截圖工具, 由于基本不在電腦上登QQ了, 于是就想將其提取出獨(dú)立版目前除了屏幕錄制功能其他都逆出來了, 在此分享一下2023-02-04
非系統(tǒng)分區(qū)使用BitLocker加密導(dǎo)致軟件無法安裝的解決方法
很多電腦用戶在考慮自己電腦磁盤分區(qū)安全時會采用 Windows 自帶的 BitLocker 加密工具對電腦磁盤分區(qū)進(jìn)行加密。但有些人加密后就會忘記自己設(shè)置的密碼從而導(dǎo)致在安裝其它軟2020-11-25
防止離職員工帶走客戶、防止內(nèi)部員工泄密、避免華為員工泄密事件的發(fā)生
這篇文章為大家詳細(xì)介紹了如何才能防止離職員工帶走客戶、防止內(nèi)部員工泄密、避免華為員工泄密事件的發(fā)生，具有一定的參考價值，感興趣的小伙伴們可以參考一下2017-06-27
徹底防止計算機(jī)泄密、重要涉密人員離職泄密、涉密人員離崗離職前防范舉
近些年企業(yè)商業(yè)機(jī)密泄漏的事件屢有發(fā)生，這篇文章主要教大家如何徹底防止計算機(jī)泄密、重要涉密人員離職泄密、告訴大家涉密人員離崗離職前的防范舉措，具有一定的參考價值，2017-06-27- 最近有電腦用戶反應(yīng)量子計算機(jī)可以破解下載的所有的加密算法嗎?其實(shí)也不是不可以，下面虛擬就為大家講解買臺量子計算機(jī)，如何分分鐘破解加密算法2016-09-26
怎么破解Webshell密碼 Burpsuite破解Webshell密碼圖文教程
webshell是以asp、php、jsp或者cgi等網(wǎng)頁文件形式存在的一種命令執(zhí)行環(huán)境，一種網(wǎng)頁后門。黑客通常會通過它控制別人網(wǎng)絡(luò)服務(wù)器，那么怎么破解webshell密碼呢？一起來看看吧2016-09-19- 本文討論了針對Linux系統(tǒng)全盤加密的冷啟動攻擊，大家都認(rèn)為這種攻擊是可行的，但執(zhí)行這么一次攻擊有多難？攻擊的可行性有多少呢？需要的朋友可以參考下2015-12-28
防止泄露公司機(jī)密、企業(yè)數(shù)據(jù)防泄密軟件排名、電腦文件加密軟件排行
面對日漸嚴(yán)重的內(nèi)部泄密事件，我們?nèi)绾问刈o(hù)企業(yè)的核心信息，如何防止內(nèi)部泄密也就成了擺在各個企業(yè)領(lǐng)導(dǎo)面前的一大問題。其實(shí)，針對內(nèi)網(wǎng)安全，防止內(nèi)部信息泄漏早已有了比較2015-12-17
