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文件加密

给你解密完了