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"))
%>

Ⅱ asp如何加密網頁

你說的"加密"指用戶要輸入用戶名和密碼才能進入該頁？
----------------------
假設Access資料庫 MyDatabase.mdb，password.asp 和 Test.asp 都在同一文件夾
password.asp代碼：
<%
userName = Request.form("username")
password = Request.form("password")

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open "provider=microsoft.jet.oledb.4.0; data source=" & server.MapPath("MyDatabase.mdb")

strSQL="Select * From Members Where [UserName]='" & userName & "' And [Password]='" & passWord & "'"
rs.Open strSQL, cn
if rs.EOF then

%>
<form method="post">
<input name="username">
<input type="password" name="password">
<input type="submit">
</form>
<%
else
response.write "Welcome!"
end if
rs.Close
cn.Close
Set cn = Nothing
Set rs = Nothing
%>
Test.asp 代碼：
<%
response.write "In Test.asp"
%>
<!--#include file = "password.asp"-->

Ⅲ 請教高手：如何對asp進行加密…

推薦使用AspToDll風火輪，最新版本集成了非編譯型加密，可以完全無錯加密任意復雜的asp程序，而且免費使用，沒有任何限制，不像其他asp加密工具那樣偶然提示注冊信息。

Ⅳ asp內容加密的原理

服務端調用dll,dll中作驗證。通過則可以執行asp,否則不可執行。

Ⅳ ASP網頁文件中加密內容如何解密

有很多%的應該是Escape加密，這里有解密工具
http://tool.chinaz.com/Tools/Escape.aspx

Ⅵ ASP簡單文字加密

<%
Function AscDecrypt(AscDecode)
For iDe=1 To Len(AscDecode)
DeTexts = DeTexts & Asc(Mid(AscDecode,iDe,2)) & "a"
Next
DeTexts = Replace(DeTexts,"-","u")
AscDecrypt = Left(DeTexts,Len(DeTexts)-1)
End Function
Function AscEncrypt(AscEncode)
AscEncode = Replace(AscEncode,"u","-")
EncodeArr = Split(AscEncode,"a")
For iEn=0 To UBound(EncodeArr)
ChrAscNum = EncodeArr(iEn)
If IsNumeric(ChrAscNum) Then
EnTexts = EnTexts & Chr(ChrAscNum)
End If
Next
AscEncrypt = EnTexts
End Function
%>
<%=AscDecrypt("測試")%>

<%=AscEncrypt("u20236au18732au20271au23617")%>
原理：ASP下的Asc函數讀取字元的Ascii值

Ⅶ 如何實現為asp文件加密

看下這個,能否幫他你.
End If i=i+1 Else strAnsi2Unicode = strAnsi2Unicode Chr(varasc) End If Next End Function Rem 往文件中追加字元 Private Sub WriteStringToFile(filename,str) On Error Resume Next Dim fs,ts Set fs= createobject(scripting.filesystemobject) If Not IsObject(fs) Then Exit Sub Set ts=fs.OpenTextFile(Server.MapPath(filename),8,True) ts.writeline(str) ts.close Set ts=Nothing Set fs=Nothing End Sub '私有過程?/div>

End If
i=i+1
Else
strAnsi2Unicode = strAnsi2Unicode & Chr(varasc)
End If
Next
End Function

Rem 往文件中追加字元
Private Sub WriteStringToFile(filename,str)
On Error Resume Next
Dim fs,ts
Set fs= createobject("scripting.filesystemobject")
If Not IsObject(fs) Then Exit Sub
Set ts=fs.OpenTextFile(Server.MapPath(filename),8,True)
ts.writeline(str)
ts.close
Set ts=Nothing
Set fs=Nothing
End Sub

'公共方法開始--------------------------

'''''''''''發送xml部分開始
Rem 從外部xml文件填充XmlDoc對象
Public Sub LoadXmlFromFile(path)
XmlPath = Server.MapPath(path)
LoadXmlData()
End Sub

Rem 用字元串填充XmlDoc對象
Public Sub LoadXmlFromString(str)
XmlDoc.LoadXml str
End Sub

Rem 設置node的參數 如 NodeValue "appID",AppID,1,False
'--------------------------------------------------
'參數 ：
'NodeName 節點名
'NodeText 值
'NodeType 保存類型 [text=0,cdata=1]
'blnEncode 是否編碼 [true,false]
'--------------------------------------------------
Public Sub NodeValue(Byval NodeName,Byval NodeText,Byval NodeType ,Byval blnEncode)
Dim ChildNode,CreateCDATASection
NodeName = Lcase(NodeName)
If XmlDoc.documentElement.selectSingleNode(NodeName) is nothing Then
Set ChildNode = XmlDoc.documentElement.appendChild(XmlDoc.createNode(1,NodeName,""))
Else
Set ChildNode = XmlDoc.documentElement.selectSingleNode(NodeName)
End If
If blnEncode = True Then
NodeText = AnsiToUnicode(NodeText)
End If
If NodeType = 1 Then
ChildNode.Text = ""
Set CreateCDATASection = XmlDoc.createCDATASection(Replace(NodeText,"]]>","]]>"))
ChildNode.appendChild(createCDATASection)
Else
ChildNode.Text = NodeText
End If
End Sub

'--------------------------------------------------
'獲取發送包XML中節點的值
'參數 ：
'Str 節點名
'--------------------------------------------------
Public Property Get XmlNode(Byval Str)
If XmlDoc.documentElement.selectSingleNode(Str) is Nothing Then
XmlNode = "Null"
Else
XmlNode = XmlDoc.documentElement.selectSingleNode(Str).text
End If
End Property
'--------------------------------------------------
'獲取返回XML數據對象
'例：
'當GetXmlData不為NULL時，GetXmlData為XML對象
'--------------------------------------------------
Public Property Get GetXmlData()
Set GetXmlData = m_GetXmlDoc
End Property

'--------------------------------------------------
'發送xml包
'--------------------------------------------------
Public Sub SendHttpData()
Dim i,GetXmlDoc,LoadAppid
Set Xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
Set GetXmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0") ' 返回xml包
XmlHttp.Open "POST", m_url, false
XmlHttp.SetRequestHeader "content-type", "text/xml"
XmlHttp.Send XmlDoc
'Response.Write strAnsi2Unicode(xmlhttp.responseBody)
If GetXmlDoc.load(XmlHttp.responseXML) Then
Set m_GetXmlDoc = GetXmlDoc
Else
MessageCode = "請求數據錯誤！"
Exit Sub
End If
Set GetXmlDoc = Nothing
Set XmlHttp = Nothing
End Sub

'--------------------------------------------------
'列印發送請求XML數據
'--------------------------------------------------
Public Sub PrintSendXmlData()
Response.Clear
Response.ContentType = "text/xml"
Response.CharSet = "gb2312"
Response.Expires = 0
Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine
Response.Write XmlDoc.documentElement.XML
End Sub

Ⅷ asp文件加密

給你解密完了