asp加密代碼
Ⅰ asp程序加密如何實現
方法一：使用工具加密ASP代碼，簡單快捷，但沒有實際意義，很容易就被反編譯了。
方法二：把ASP封裝DLL，方法不復雜，但需要你有足夠許可權，虛擬主機是無法注冊DLL的，除非你是伺服器或者VPS，如果你是賣源碼的，程序安裝也需要VPS或伺服器的環境才行。
方法三：重要代碼遠程執行，就是ASP裡面的XMLHTTP，把核心部分全部放到你自己的空間里，賣給客戶的代碼都是遠程執行你空間里的代碼，然後在吧執行結果反饋回去。效率比較低，但適合訪問量低的應用，例如人事管理、直銷系統的獎金計算等等。
基本就上面這三種方法，我通通都用過，主要看程序價值了，貴的源碼都採用第二種方法，對方如果連個VPS都買不起，估計也不可能買得起我的代碼。 還有就是比較便宜的，代碼不太復雜，就是不希望客戶倒賣，主要是直銷系統。都是手打，一定要選我哦。
附2014ASP最新視頻教程http://www.uuucool.com/down/html/3692.html
Ⅱ 用ASP分別編寫一個實現加密和解密功能的頁面
是不是MD5加密？如果是MD5加密，加密後是不可能解密的。而用ASP加密的話，一旦別人知道了演算法的話，基本上就沒有加密型可言了
下面是ASP加密
Function.asp
<%
Rem =================================================================
Rem = 函數文件:Function.asp
Rem = 測試文件:TestEncrypt.asp，Encryptpass.asp
Rem = 說明:Encrypt_PRO加密函數，Decrypt_PRO解密函數
Rem = 代碼演算法需要重寫，可能知道的人多了就不太安全了。
=================================================================
Public Const sDefaultWHEEL1 = "ABCDEFGHIJKLMNOPQRSTVUWXYZ_1234567890qwertyuiopasd!@#$%^&*(),. ~`-=\?/』""fghjklzxcvbnm<>;"
Public Const sDefaultWHEEL2 = "IWEHJKTLZVOPFG_ ~`-=\?/』""!@#$%^&*(),.vbnm<>;tyuiopasd"
Function Encrypt_PRO(sINPUT , sPASSWORD )
Dim sWHEEL1, sWHEEL2
Dim k, c, i
Dim sRESULT
sWHEEL1 = sDefaultWHEEL1: sWHEEL2 = sDefaultWHEEL2
ScrambleWheels sWHEEL1, sWHEEL2, sPASSWORD
sRESULT = ""
For i = 1 To Len(sINPUT)
c = Mid(sINPUT, i, 1)
k = InStr(1, sWHEEL1, c)
If k > 0 Then
sRESULT = sRESULT & Mid(sWHEEL2, k, 1)
Else
sRESULT = sRESULT & Addpass(c,sPASSWORD)
End If
sWHEEL1 = LeftShift(sWHEEL1): sWHEEL2 = RightShift(sWHEEL2)
Next
Encrypt_PRO = sRESULT
End Function
Function Decrypt_PRO(sINPUT , sPASSWORD )
Dim sWHEEL1, sWHEEL2
Dim k, i, c
Dim sRESULT
sWHEEL1 = sDefaultWHEEL1: sWHEEL2 = sDefaultWHEEL2
ScrambleWheels sWHEEL1, sWHEEL2, sPASSWORD
sRESULT = ""
For i = 1 To Len(sINPUT)
c = Mid(sINPUT, i, 1)
k = InStr(1, sWHEEL2, c, vbBinaryCompare)
If k > 0 Then
sRESULT = sRESULT & Mid(sWHEEL1, k, 1)
Else
sRESULT = sRESULT & Addpass(c,sPASSWORD)
End If
sWHEEL1 = LeftShift(sWHEEL1): sWHEEL2 = RightShift(sWHEEL2)
Next
Decrypt_PRO = sRESULT
End Function
Function LeftShift(s )
If Len(s) > 0 Then LeftShift = Mid(s, 2, Len(s) - 1) & Mid(s, 1, 1)
End Function
Function RightShift(s )
If Len(s) > 0 Then RightShift = Mid(s, Len(s), 1) & Mid(s, 1, Len(s) - 1)
End Function
Sub ScrambleWheels(ByRef sW1 , ByRef sW2 , sPASSWORD )
Dim i ,k
For i = 1 To Len(sPASSWORD)
For k = 1 To Asc(Mid(sPASSWORD, i, 1)) * i
sW1 = LeftShift(sW1): sW2 = RightShift(sW2)
Next
Next
End Sub
Function Addpass(tStr,tPass)
Select Case tStr
Case Chr(13)
Addpass = tStr
Case Chr(10)
Addpass = tStr
Case Chr(13)+Chr(10)
Addpass = tStr
Case Chr(9)
Addpass = tStr
Case Else
Addpass = Chr((Asc(tPass) Xor Len(tPass)) Xor Asc(tStr))
End Select
End Function
Function ReadFile(FileName)
Dim fso, f
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath(FileName), ForReading, True)
ReadFile = f.ReadAll
f.Close
End Function
Sub WriteFile(FileName,Str)
Dim fso, f
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath(FileName), ForWriting, True)
f.Write Str
f.Close
End Sub
%>
--------------------------加密代碼的使用方法-----------------------
從文件index_buk.Htm中讀加密後寫到index.htm文件中然後解密並顯示
也是所謂的Asp代碼與HTML代碼分離。
Index_buk.htm代碼為：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Test</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
color: #990000;
font-weight: bold;
}
-->
</style>
<body>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<table width="500" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="cccccc">
<tr align="center" bgcolor="#efefef">
<td colspan="2"><span class="style1">系統發生錯誤！</span></td>
</tr>
<tr bgcolor="ffffff">
<td colspan="2">{$MsgCon$}</td>
</tr>
<tr bgcolor="ffffff">
<td colspan="2" align="center"><< <a href="javascript:history.go(-1);">返回重新操作</a> >></td>
</tr>
</table>
<p align="center"> </p>
</body>
</html>
——————————————ASP代碼調用----------------------
<!--#include file="Function.asp" -->
<%
Rem =================================================================
Rem = 函數文件:Function.asp
Rem = 測試文件:TestEncrypt.asp，Encryptpass.asp
Rem = 說明:Encrypt_PRO加密函數，Decrypt_PRO解密函數
Rem = 代碼演算法需要重寫，可能知道的人多了就不太安全了。
Rem =================================================================
Str = ReadFile("index_buk.Htm")
Pass = "cexo"
Encrypt_Str = Encrypt_PRO(Str,Pass)
Decrypt_Str = Decrypt_PRO(Encrypt_Str,Pass)
Response.Write Encrypt_Str
WriteFile "Index.htm",Encrypt_Str
Response.Write Decrypt_Str
Str2 = ReadFile("index.Htm")
Decrypt_Str = Decrypt_PRO(Str2,Pass)
Str3 = "<li>1111111111111111111111111111</li><br>
<li>1111111111111111111111111111</li><br>
<li>22222222222222222222222222222</li><br>
<li>33333333333333333333333333</li><br>"
Msg = Replace(Decrypt_Str,"{$MsgCon$}",Str3)
Response.Write Msg
%>
--------------------------加密數據的使用方法-----------------------
<%
Rem =================================================================
Rem = 函數文件:Function.asp
Rem = 測試文件:TestEncrypt.asp，Encryptpass.asp
Rem = 說明:Encrypt_PRO加密函數，Decrypt_PRO解密函數
Rem = 適用:對數據的加密，或對代碼的加密，可加密中文/英文等。
Rem =================================================================
%>
<!--#include file="Function.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>加密解密實例</title>
</head>
<body>
<%
Pass = Request("txtpass")
If Pass = Null Then Pass = ""
%>
<form name="form1" method="post" action="TestEncrypt.asp">
請輸入要加密的文本：<br>
<textarea name="txt1" cols="80" rows="10"><%=server.HTMLEncode(Decrypt_PRO(Request("txt2"),Pass))%></textarea>
<br>
求得解密文本為： 密碼為：
<input name="txtpass" type="text" id="txtpass" value="<%=Pass%>">
<br>
<textarea name="txt2" cols="80" rows="10"><%=Encrypt_PRO(Request("txt1"),Pass)%></textarea>
<br><input type="submit" name="Submit" value="加密">
<input type="submit" name="Submit2" value="解密">
</form>
</body>
</html>
Ⅲ asp加密工具ASP代碼加密工具
最新版本9.0企業版SP3的ASP代碼加密工具提供編譯型加密、兼容型加密和非編譯型加密三種加密方式，旨在徹底加密源代碼，保護知識產權，其加密效率和應用效果優於同類腳本轉換工具。
該加密工具能為您的ASP程序增加多種訪問控制功能，包括但不限於防SQL注入、日期訪問控制、域名訪問控制、伺服器IP綁定控制、網站注冊授權、代碼附加、版權設置和資料庫加密等。這些功能旨在提升程序安全性，限制非法訪問。
值得一提的是，此加密工具不會生成額外的DLL組件，這使得部署、調試和修改變得更加便捷。加密後的代碼以二進制方式執行，確保了代碼的安全性和不可還原性，進一步增強了程序的安全防護。
總體而言，最新版本9.0企業版SP3的ASP代碼加密工具是一個功能強大、易於操作的解決方案，旨在為您的ASP程序提供全面的加密保護和訪問控制，確保代碼安全和程序的穩定運行。
(3)asp加密代碼擴展閱讀
ASP頁面是純文本的形式存放，在伺服器端可以輕易看到全部編程邏輯。這樣給ASP應用商業化帶來了一定的困難。隨著市場的需求，市面上出現了各種各樣的ASP加密工具。例如：微軟ASP加密、微微ASP代碼加密解密器、ASP代碼加密工具、ASP代碼加密器、ASP風火輪等等。
Ⅳ asp如何對傳輸的字元串加密
如果要加密的話，可以傳輸之前寫一個加密代碼，然後在接收方寫解密代碼就行了
舉個簡單的示例：
a.asp:
<%
function encode(ms)
'這里就是你希望的加密方式
'.. 加密方式很多
end function
response.write "xxxx.xxxx/index.asp?user1=" & encode("hao123")
%>
index.asp:
<%
function decode(ms)
'這里是解密代碼
'是上面加密的逆運算
end function
user1=decode(request("user1"))
%>