asp数据库加密方法
'本程序是翟振恺(小琦)原创的,现在我免费发布出来,请转用或转载时不要把版权去掉。
'本程序是针对不能用组件加密asp的用户写的,应该可以有效的保护ACCESS数据。
'www.xiaoqi.net
if Request("mdbname" <>"" then
'------------------------取磁盘序列号----------------------------小琦
set fs=server.createObject("scripting.filesystemobject"
testDrive="G:/"
set f=fs.getdrive(testDrive)
''调用GetDrive方法,将驱动器赋予一个变量
xlh=trim(f.serialnumber) '取到磁盘序列号
'-------------------------取绑定的网站地址---------------------------小琦
myname=Request.ServerVariables("SERVER_NAME"'我绑定我的主机名
'-------------------------取二进制数据---------------------------小琦
url=server.MapPath("."&"/ www.xiaoqi.net" '取一个exe文件或其它的文件作为提供加密的文件,为了安全,你可以把这个文件放到别人下载不到的地方。
Set fso=Server.CreateObject("Scripting.FileSystemObject"
Set fl=fso.getfile(url)
flsize=fl.size
flName=fl.name
Set objStream = Server.CreateObject("ADODB.Stream"
objStream.Open
objStream.Type = 1
objStream.LoadFromFile url
Password=objStream.Read'二进制数据
Password=left(Password,4)&right(xlh,3)&myname'数据库密码用二进制数据+磁盘序列号+绑定的网站地址
Password=left(Password,19)'ACCESS数据库密码好像最多20个字符,我用了19个
db="xq.mdb"
SavePath=Server.MapPath("."
'----------------------------------------------------小琦
Application.Contents.RemoveAll()
Dim fs, Engine
Set fs = CreateObject("Scripting.FileSystemObject"
mdbname = Request("mdbname"
If fs.FileExists(Server.Mappath(mdbname)) Then
Set Engine = CreateObject("JRO.JetEngine"
'----------------------------------------------------改数据库密码
if request("dz"=1 then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(mdbname), "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password="&Password&";Data Source=" & Server.Mappath(mdbname & ".temp"
else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password="&Password&";Data Source=" & Server.Mappath(mdbname), "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(mdbname & ".temp"
end if
'----------------------------------------------------改数据库密码
fs.CopyFile Server.Mappath(mdbname & ".temp",Server.Mappath(mdbname)
fs.DeleteFile(Server.Mappath(mdbname & ".temp")
Set fs = Nothing
Set Engine = nothing
if request("dz"=1 then
Response.write "<p><font color=#FF0000>数据库加密成功!...</font>"
Else
Response.write "<p><font color=#FF0000>数据库解密成功!...</font>"
end if
Else
Set fs = Nothing
Response.Write "<p><br><br>数据库名称或路径不正确. 压缩失败!" & vbCrLf
End If
end if
%>
<form method="POST" action="--WEBBOT-SELF--">
<p><b>加密解密码数据库</b></p>
<p><input type="text" name="mdbname" size="20" value="测试.mdb"> 数据库名</p>
<p><input type="radio" value="1" name="dz" checked>加密
<input type="radio" value="2" name="dz">解密</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
asp数据库加密方法相关推荐
- mysql数据库加密设备_一种基于MySQL数据库加密方法与流程
本发明涉及数据库加密技术技术领域,具体的讲涉及一种基于MySQL数据库加密方法. 背景技术: 聚通达DBSecurity是一款基于透明加密技术的数据防泄漏产品,该产品能够实现对数据库中的敏感数据加密存 ...
- Sqlite数据库加密方法
方法一:对sqlite中的数据进行加密 对数据库中插入的字段内容先进行AES.MD5等加密后在插入到数据库中,在使用时先从数据库中取出数据,然后在解密在使用这种方式好是好,但是有些致命的问题不能绕过, ...
- SQL2012数据库加密方法
1.非对称密钥来保护新的对称密钥 /*--测试环境 Microsoft SQL Server 2012 (SP1) - 11.0.3000.0 (X64) Oct 19 2012 13:38:57 C ...
- tde数据库加密_如何在TDE加密的数据库上配置SQL Server镜像
tde数据库加密 Securing and encrypting sensitive data stored in your production databases is a big concern ...
- 网站安全之ASP程序加密解密方法全面解析
如今,用ASP技术构建的网站随处可见.由于ASP脚本是在服务器上解释执行的(无法编译),因此你辛苦开发出来的ASP代码,很容易被人拷去任意修改,如何保护ASP源代码呢?这是每个ASP站长都会遇到的难题 ...
- 用ASP.Net(C#)连接Oracle数据库的方法
今天看了一下asp.net连接oracle数据库的方法,得到了如下代码.这段代码打开了MyTable表,并把操作员的名字列出.字段类型是OracleString.读取的时候用的是字段编号,我不知道怎么 ...
- laravel mysql 锁表_Laravel 数据库加密及数据库表前缀配置方法
报错问题:DecryptException in Encrypter.php line 148: The MAC is invalid. 如何运行 php artisan key:generate 这 ...
- python连接sqlite加密_C#连接加密的Sqlite数据库的方法
对数据加密分两种,一种是对数据库本身进行加密,另一种是对数据表中的数据进行加密, 如果SQLite数据库加密,我这里使用的一个管理工具叫SQLiteDeveloper,如下就可以加密数据库 , 如果在 ...
- [导入]用ASP.Net(C#)连接Oracle数据库的方法
用ASP.Net(C#)连接Oracle数据库的方法 文章来源:http://blog.csdn.net/21aspnet/archive/2004/12/10/211991.aspx 转载于:htt ...
最新文章
- 高等数学·为什么f``(x)小于0:则f(x)在[a,b]上的图形是凹的。f``(x)大于0:则f(x)在[a,b]上的图形是凸的。
- ## 使用MapReduce程序完成相关数据预处理
- 液态大脑与固态大脑——圣塔菲最新群体智能文集
- 用于计算无线充电中LCC补偿网络器件参数的小程序
- jdk安装失败_jenkins全局工具jdk、maven安装
- 《移动项目实践》实验报告——Android组合控件
- 用jsp实现登录界面
- CodeForces - 1256C Platforms Jumping(贪心+构造)
- python利用jieba(textRank、TFIDF)提取关键字
- 第二sprint总结
- winxp---执行任务计划
- pythonqt需要安装哪些环境_Python3 搭建Qt5 环境的方法示例
- Oracle 在SQL语句中如何获取系统当前时间并进行操作
- setMinDate出现java.lang.IllegalArgumentException: fromDate:xxx does not preced toDate: xxx异常的简单解决办法
- 微信能上但浏览器无法上网
- Could not install from “tippy.js\dist\tippy.css“ as it does not contain a package.json file.
- 分布式游戏服务器设计
- jbod ugood 磁盘驱动状态_Win10扫描修复磁盘驱动器错误全攻略
- kafka-分区重分配及相关源码分析
- python 获取百度地图上北京地铁的数据,然后excel导出
热门文章
- 【最优化方法】【矩阵分析】标量、向量、矩阵之间的求导关系
- [golang]time.After 在select中使用的正确姿势(解决超时逻辑未生效bug)
- Redis:(error) MOVED 原因和解决方案
- Delphi7 提示can‘t load package *.bpl 错误问题的解决方法
- Hive - ORC 文件存储格式详细解析
- oracle 创建 permanent tablespace
- win10 启动vmware虚拟机就会蓝屏解决方法
- 李祥林:从美国经验看中国资产证券化的发展
- Spark任务执行流程
- 如何把pdf转换成excel转换器免费使用