Relaxlife.net可加密/解密中文/英文的Asp代码供大家下载,这可是机密,可用在代码加密

原创 2005年05月07日 00:28:00
 Relaxlife.net可加密/解密中文/英文的Asp代码供大家下载,这可是机密,可用在代码加密

可加密/解密中文/英文的Asp代码供大家下载,这可是机密,可用在代码加密

Function.asp
<%
Rem =================================================================
Rem = 函数文件:Function.asp
Rem = 测试文件:TestEncrypt.asp,Encryptpass.asp
Rem = 说明:Encrypt_PRO加密函数,Decrypt_PRO解密函数
Rem = Revision:1.01 Beta
Rem = 作者:熊氏英雄(cexo255),小奎
Rem = Date:2005/04/20 03:41:10
Rem = QQ:30133499,38377160
Rem = MySite:Http://www.Relaxlife.net
Rem = QQ群:4341998
Rem = 适用:对数据的加密,或对代码的加密,可加密中文/英文等。完全解密,不会出现解密出现乱码。
Rem = 下版本预计改进:代码算法需要重写,可能知道的人多了就不太安全了。
Rem =================================================================

Public Const sDefaultWHEEL1 = "ABCDEFGHIJKLMNOPQRSTVUWXYZ_1234567890qwertyuiopasd!@#$%^&*(),. ~`-=/?/'""fghjklzxcvbnm<>;"
Public Const sDefaultWHEEL2 = "IWEHJKTLZVOPFG_1234567890qwerBNMQRYUASDXCfghjklzxc ~`-=/?/'""!@#$%^&*(),.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>放松生活</title>
<meta name="DESCRIPTION" content="放松生活,放松,生活,轻松生活,笑话,小品,小故事,智力赛,搞笑,图片,精品,flash,短片,影片,经典影片,经典,下载,文 档下载,经典代码下载,经典广告,情感,源代码,,,">
<meta name="keywords" content="放松生活,放松,生活,轻松生活,笑话,小品,小故事,智力赛,搞笑,图片,精品,flash,短片,影片,经典影片,经典,下载,文档下载,经典代码下载,经典广告,情感,源代码,,,">
<meta name="author" content="RelaxLife">
<meta name="robots" content="all">
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
        color: #990000;
        font-weight: bold;
}
-->
</style>
<body>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</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">&lt;&lt; <a href="Javascript:history.go(-1);">返回重新操作</a> &gt;&gt;</td>
  </tr>
</table>
<p align="center">&nbsp;</p>
</body>
</html>
——————————————ASP代码调用:
<!--#include file="Function.asp" -->

<%
Rem =================================================================
Rem = 函数文件:Function.asp
Rem = 测试文件:TestEncrypt.asp,Encryptpass.asp
Rem = 说明:Encrypt_PRO加密函数,Decrypt_PRO解密函数
Rem = Revision:1.01 Beta
Rem = 作者:熊氏英雄(cexo255),小奎
Rem = Date:2005/04/20 03:41:10
Rem = QQ:30133499,38377160
Rem = MySite:Http://www.Relaxlife.net
Rem = QQ群:4341998
Rem = 适用:对数据的加密,或对代码的加密,可加密中文/英文等。完全解密,不会出现解密出现乱码。
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 = Revision:1.01 Beta
Rem = 作者:熊氏英雄(cexo255),小奎
Rem = Date:2005/04/20 03:41:10
Rem = QQ:30133499,38377160
Rem = MySite:Http://www.Relaxlife.net
Rem = QQ群:4341998
Rem = 适用:对数据的加密,或对代码的加密,可加密中文/英文等。完全解密,不会出现解密出现乱码。
Rem = 下版本预计改进:代码算法需要重写,可能知道的人多了就不太安全了。
Rem =================================================================
%>

<!--#include file="Function.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<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>
  求得解密文本为:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;密码为:
  <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>

Java与.NET RSA加密解密(签名,验签)实例代码

原文地址: http://www.jackyinfo.com/post/2011/05/11/98436.aspx 经过一段时间的研究,发现Java和.NET各自有各自的一套签名算法,数据一致,...

asp.net发送邮件,使用MD5加密解密,实现用户注册完成后发送流水号(账号)到对方邮箱,jeasyUI验证,combobox的使用完成 实例下载

最近项目用到用户注册后要发邮件

Asp.Net 加密解密

#region DES加密解密         ///         /// DES加密         ///         /// 待加密字串         /// 32位Ke...

asp.net下引用的javascript代码加密

  • 2014年04月15日 09:28
  • 23KB
  • 下载

c# asp.net 字符串加密解密的类

using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Secu...

黑马学习笔记——Asp.Net加密解密类

using System.Web.Security; using System.Security.Cryptography; using System.Text; using System.IO...

Asp.net常用加密解密方法

Asp.net常用加密解密方法 一、数据加密/编码算法列表 常见用于保证安全的加密或编码算法如下: 1、常用密钥算法 密钥算法用来对敏感数据、摘要、签名等信息进行加密,常用的密钥算法包括: ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章: Relaxlife.net可加密/解密中文/英文的Asp代码供大家下载,这可是机密,可用在代码加密
举报原因:
原因补充:

(最多只允许输入30个字)