ASP可逆演算法 (轉)
ASP可逆演算法 (轉)[@more@]unction encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,1))+i)
next
encrypt = texts
end function
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,1))-i)
next
decrypt=texts
end function
function mistake(preString)
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
length = len(preString)
seed = length
Ranize(length)
texts = ""
for i = 1 to length
seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
dim dist
dist=""
for i = 1 to len(texts)
if mid(texts,i,1)<>"'" then
dist=dist+mid(texts,i,1)
end if
next
mistake = dist
end function
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,1))+i)
next
encrypt = texts
end function
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,1))-i)
next
decrypt=texts
end function
function mistake(preString)
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
length = len(preString)
seed = length
Ranize(length)
texts = ""
for i = 1 to length
seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
dim dist
dist=""
for i = 1 to len(texts)
if mid(texts,i,1)<>"'" then
dist=dist+mid(texts,i,1)
end if
next
mistake = dist
end function
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-989363/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 一個可逆加密的例子 (轉)加密
- 獨佔遊戲終將走向末路,索尼不可逆轉的頹勢遊戲
- 美少女遊戲考察(下):無可逆轉的衰退與演變遊戲
- ResNet架構可逆!多大等提出效能優越的可逆殘差網路架構
- 微信小程式及各種平臺對接常用可逆加密演算法aes256微信小程式加密演算法
- asp筆記 (轉)筆記
- 下一個GAN?OpenAI提出可逆生成模型GlowOpenAI模型
- ASP內建物件 (轉)物件
- asp常用函式 (轉)函式
- asp中的cookie (轉)Cookie
- 任意進位制下的可逆素數 C++C++
- ASP快取技術 (轉)快取
- 從ASP遷移至ASP+--最初的考慮(二) (轉)
- ASP檢索網站指定目錄檔案的演算法與應用方向 (轉)網站演算法
- ASP.NET歷險(一)——利用ASP與ASP.NET發E-mail (轉)ASP.NETAI
- 使用ASP.NET加密口令 (轉)ASP.NET加密
- asp.net高階教程 (轉)ASP.NET
- 用Java編寫ASP元件 (轉)Java元件
- 巧用ASP生成PDF檔案 (轉)
- ::細細品味ASP.NET :: (轉)ASP.NET
- Glow具有可逆1×1卷積的生成流 | 論文分享卷積
- 玩轉ASP.NET 6.0框架-序言ASP.NET框架
- ASP網路安全手冊(1) (轉)
- ASP.NET常用語句(轉載)ASP.NET
- ASP中使用MYSQL資料庫(轉)MySql資料庫
- ::細細品味ASP.NET (五):: (轉)ASP.NET
- 在ASP檔案中呼叫DLL (轉)
- asp.net高階教程(續) (轉)ASP.NET
- 用ASP發電子郵件 (轉)
- ASP實現多語言支援 (轉)
- ASP+和JSP大比拚 (轉)JS
- ASP智慧搜尋的實現 (轉)
- ASP分頁技術原始碼 (轉)原始碼
- 用ASP實現電子賀卡 (轉)
- 在Flash中使用ASP技術 (轉)
- 利用ASP開發Web應用 (轉)Web
- ::細細品味ASP.NET (二):: (轉)ASP.NET
- ::細細品味ASP.NET (三):: (轉)ASP.NET