- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 3Adobe Illustrator CS5 序列號大全
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8最新的Adobe Illustrator CS4序列號大全
- 9Intel i7-9700K性能跑分曝光：同代提升約12%
- 10qq郵件是否已讀怎么看 QQ郵箱已經發出去的郵件怎么知道對方是否已經查看
- 11XP系統怎么清除緩存？
- 12Intel Z390主板有望10月8日公布：8核9代酷睿隨后登場
[摘要]<%Function Encrypt(theNumber)On Error Resume NextDim n, szEnc, t, HiN, LoN, in = CDbl((theNumber...
<%Function Encrypt(theNumber)
On Error Resume Next
Dim n, szEnc, t, HiN, LoN, i
n = CDbl((theNumber + 1570) ^ 2 - 7 * (theNumber + 1570) - 450)
If n < 0 Then szEnc = "R" Else szEnc = "J"
n = CStr(abs(n))
For i = 1 To Len(n) step 2
t = Mid(n, i, 2)
If Len(t) = 1 Then
szEnc = szEnc & t
Exit For
End If
HiN = (CInt(t) And 240) / 16
LoN = CInt(t) And 15
szEnc = szEnc & Chr(Asc("M") + HiN) & Chr(Asc("C") + LoN)
Next
Encrypt = szEnc
End Function
Function Decrypt(theNumber)
On Error Resume Next
Dim e, n, sign, t, HiN, LoN, NewN, i
e = theNumber
If Left(e, 1) = "R" Then sign = -1 Else sign = 1
e = Mid(e, 2)
NewN = ""
For i = 1 To Len(e) step 2
t = Mid(e, i, 2)
If Asc(t) >= Asc("0") And Asc(t) <= Asc("9") Then
NewN = NewN & t
Exit For
End If
HiN = Mid(t, 1, 1)
LoN = Mid(t, 2, 1)
HiN = (Asc(HiN) - Asc("M")) * 16
LoN = Asc(LoN) - Asc("C")
t = CStr(HiN Or LoN)
If Len(t) = 1 Then t = "0" & t
NewN = NewN & t
Next
e = CDbl(NewN) * sign
Decrypt = CLng((7 + sqr(49 - 4 * (-450 - e))) / 2 - 1570)
End Function
%>
<html><body>
Original number: 69 <br>
Encrypt(69) returns: JNMQMOJ8 <br>
Decrypt("JNMQMOJ8") returns: 69
<p>
Another example using variables instead: <br>
Encrypt(Request.Form("ID")) <br>
Encrypt(myVar) <br>
Decrypt(Request.QueryString("id")) <br>
Decrypt("JNMQMOJ8") <br>
Decrypt(myVar)
</body></html>
標簽：一套加解密字符串的函數
推薦資訊 總人氣榜
最新教程 本月人氣
- 1powerpoint2007怎么設置圖片的切換效果
- 2PowerPoint2007不能撤消所做的更改
- 3Powerpoint2007制作滾動字條
- 4PowerPoint2007中把幻燈片設置為寬屏播放
- 5在PowerPoint2007中模擬打印機文字輸入效果
- 6PowerPoint2007從“大綱”窗格中新建幻燈片
- 7PowerPoint2007從“幻燈片”窗格中新建幻燈片
- 8PowerPoint2007復制幻燈片
- 9PPT2003/2007常用快捷鍵總結
- 10PowerPoint2007通過版式創建幻燈片
- 11PowerPoint 2007中簡單插入Word表格
- 12低版本Office編輯Office2007文檔的方法
- 1獵豹瀏覽器搶票不受12306新版驗證碼影響
- 2360手機助手紅包怎么提現 360手機助手紅包提現設置流程
- 3160wifi遠程桌面怎么連接 160wifi遠程桌面連接設置方法
- 4微信PC版1.0.7.33官方下載公布 修好bug優化軟件
- 5手機登12306驗證碼總是出錯處理方法介紹
- 6ios9不越獄怎么恢復短信與照片 ios9不越獄恢復短信與照片圖文說明教程
- 710天學會php之首天
- 8抱抱app怎么玩 抱抱app使用圖文說明教程圖
- 9抱抱app免費隨機通話使用圖文說明教程(圖文流程)
- 10yy游戲直播怎么開 yy游戲直播打開方法
- 11Linux內核4.2優化了哪一些地方？
- 12linux系統使用命令維護RHCS的方法
