日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

ASP代码加密_ASP加密代码

發布時間:2023/12/20 编程问答 31 豆豆
生活随笔 收集整理的這篇文章主要介紹了 ASP代码加密_ASP加密代码 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

ASP代碼一般是明文,很少有加密的,MS有個工具Script Encoder可以加密,這個東東可以微軟官方網站免費下載,而且還有詳細使用說明,但是經過它加密后的文件會有<%@ language = vbscript.encode %>,管理員看到這句話就知道這個asp文件被加密了。而且也有相關的解密文件。
本文提供一種簡單的方法,可以加密ASP代碼,主要思路是將代碼做些運算,比如將全部代碼移動一位,基本上就算加密了,主要的加解密函數如下:

function UnEncode(temp)
? but=1 ? ? ? ? ? ? ? ? ? ??
? for i =1 to len(temp)
? ? if mid(temp,i,1)<>"湯" then
? ? ? pk=asc(mid(temp,i,1))-but
? ? ? if pk>126 then
? ? ? ? pk=pk-95
? ? ? elseif pk<32 then
? ? ? ? pk=pk+95
? ? ? end if
? ? ? a=a&chr(pk)
? ? else
? ? ? a=a&vbcrlf
? ? end if
? next
? UnEncode=a
end function

function Encode(temp)
? but=1
? cc=replace(temp,vbcrlf,"湯")
? for i= 1 to len(cc)?
? ? if mid(cc,i,1)<>"湯" then?
? ? pk=asc(mid(cc,i,1))+but?
? ? ? if pk>126 then
? ? ? ? pk=pk-95?
? ? ? elseif pk<32 then?
? ? ? ? pk=pk+95
? ? ? end if
? ? ? a=a&chr(pk)
? ? else
? ? ? a=a&"湯"
? ? end if?
? next
? ’a=replace(a,"""","""""")
? Encode=a
end function

在開發的時候,快搜詞典通常將關鍵ASP代碼Encode,再使用Excute(Uncode(ipaddr))執行就可以了。這樣管理員一般不能直接看到關鍵代碼,一般在程序里不要帶上Encode函數,只在開發的時候使用,此外,UnEncode也可以改成其它函數名。
這種方式加密比較簡單,解密也很容易。

總結

以上是生活随笔為你收集整理的ASP代码加密_ASP加密代码的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。