高分跪求ASP/PHP字符串加密解密或者字符串base64例如：原始URL字符串：http://wwww.adfasf.com/upload/20120304/4532524.jpg我需要将这个字符串加密成：一个很短的字符串，大小写字母+数字或者单独数字或者字母都地。例：“http://wwww.adfasf.com/upload/20120304/4532524.jpg”=加密后的"afadasfwetqetqwetfasdf"同时需要解密程序：当我获取到“afadasfwetqetqwetfasdf”时，我通过解密程序得到原始的字符串。例："afadasfwetqet...
在百度找的几个asp sha1（vbs写的）加密结果和asp.net的sha1加密结果不一样，asp.net sha1加密完后是40位，网上找的asp sha1加密是64位，还以为asp.net做了截取（如网上的asp的md5机密和asp.net位数不一样，是做了截取的问题），但是asp的64位加密结果并没有包含asp.net的40位结果，看来找到的版本和asp.net的加密算法不一样。 最后还是靠翻墙用google找到了一个js版本的sha1加密代码结合asp使用后结果和asp.net的sha1加密一模一...
加密与解密函数 <%function decrypt(dcode) dim texts dim i for i=1 to len(dcode) texts=texts & chr(asc(mid(dcode,i,2))-i) next decrypt=texts end function function encrypt(ecode) Dim texts dim i for i=1 to len(ecode) texts=texts & chr(asc(mid(ecode,i,2))+i) next encrypt = texts end function %> <%=decrypt(123123)%> <a href="11111.asp?id=<%=decrypt("sdfasdfs")%>">111111111</a> <%abc=encrypt(request("i...
<% A_Key=split("96,44,63,80",",") '定义密钥 '*********加密的过程********* Function EnCrypt(m) Dim strChar,iKeyChar,iStringChar,I k=0 for I = 1 to Len(m) iKeyChar =Cint(A_Key(k)) iStringChar = Asc(mid(m,I,1)) '获取字符的ASCII码值 iCryptChar = iKeyChar Xor iStringChar '进行异或运算 '对密钥进行移位运算 If k<3 Then k=k+1 Else k=0 End If c = c & Chr(iCryptChar) next EnCrypt = c End F...
在asp中通过vbs类实现rsa加密与解密,建议入精华 本文章有两文件组成 test.asp 测试演示文件 clsrsa.asp 实现rsa加密与解密的vbs类文件 下面是代码: 1. test.asp 代码如下:<% rem 文章标题:在asp中通过vbs类实现rsa加密与解密 rem 收集整理:yanek rem 联系:aspboy@263.net %> <%Option Explicit%> <!--#INCLUDE FILE="clsRSA.asp"--> <% Dim LngKeyE Dim LngKeyD Dim LngKeyN Dim StrMessage Dim ObjRSA If Not Reque...
在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数 rsa.asp <% rem 在ASP中实现加密与解密,加密方法:根据RSA rem 联系:hnsoso@sina.com Class clsRSA Public PrivateKey Public PublicKey Public Modulus Public Function Crypt(pLngMessage, pLngKey) On Error Resume Next Dim lLngMod Dim lLngResult Dim lLngIndex ...