小琦

1. 
   
2. <%
   
3. '本程序是翟振恺(小琦)原创的，现在我免费发布出来，请转用或转载时不要把版权去掉。
   
4. '本程序是针对不能用组件加密asp的用户写的，应该可以有效的保护ACCESS数据。
   
5. 'www.xiaoqi.net
   
6. 'QQ:22336848
   
7. 
   
8. if Request("mdbname")<>"" then
   
9. 
   
10. '------------------------取磁盘序列号----------------------------小琦
    
11. set fs=server.createObject("scripting.filesystemobject")
    
12. testDrive="G:"
    
13. set f=fs.getdrive(testDrive)
    
14. ''调用GetDrive方法，将驱动器赋予一个变量
    
15. 
    
16. xlh=trim(f.serialnumber) '取到磁盘序列号
    
17. 
    
18. '-------------------------取绑定的网站地址---------------------------小琦
    
19. myname=Request.ServerVariables("SERVER_NAME")'我绑定我的主机名
    
20. 
    
21. '-------------------------取二进制数据---------------------------小琦
    
22. url=server.MapPath(".")&"\[url]www.xiaoqi.net[/url]" '取一个exe文件或其它的文件作为提供加密的文件，为了安全，你可以把这个文件放到别人下载不到的地方。
    
23. Set  fso=Server.CreateObject("Scripting.FileSystemObject")  
    
24. Set  fl=fso.getfile(url)  
    
25. flsize=fl.size  
    
26. flName=fl.name  
    
27. Set  objStream  =  Server.CreateObject("ADODB.Stream")  
    
28. objStream.Open  
    
29. objStream.Type  =  1  
    
30. objStream.LoadFromFile url
    
31. Password=objStream.Read'二进制数据
    
32. Password=left(Password,4)&right(xlh,3)&myname'数据库密码用二进制数据+磁盘序列号+绑定的网站地址
    
33. Password=left(Password,19)'ACCESS数据库密码好像最多20个字符，我用了19个
    
34. db="xq.mdb"
    
35. SavePath=Server.MapPath(".")
    
36. '----------------------------------------------------小琦
    
37.         Application.Contents.RemoveAll()
    
38.        
    
39.         Dim fs, Engine
    
40.         Set fs = CreateObject("Scripting.FileSystemObject")
    
41.         mdbname = Request("mdbname")
    
42.         If fs.FileExists(Server.Mappath(mdbname)) Then
    
43.                 Set Engine = CreateObject("JRO.JetEngine")
    
44. '----------------------------------------------------改数据库密码       
    
45. if request("dz")=1 then       
    
46. Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(mdbname), "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password="&Password&";Data Source=" & Server.Mappath(mdbname & ".temp")
    
47. else
    
48. Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password="&Password&";Data Source=" & Server.Mappath(mdbname), "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(mdbname & ".temp")
    
49. end if
    
50. '----------------------------------------------------改数据库密码               
    
51.                 fs.CopyFile Server.Mappath(mdbname & ".temp"),Server.Mappath(mdbname)
    
52.                 fs.DeleteFile(Server.Mappath(mdbname & ".temp"))
    
53.                 Set fs = Nothing
    
54.                 Set Engine = nothing
    
55.                 if request("dz")=1 then       
    
56.                 Response.write "<p><font color=#FF0000>数据库加密成功!...</font>"
    
57.                 Else
    
58.                 Response.write "<p><font color=#FF0000>数据库解密成功!...</font>"
    
59.                 end if
    
60. 
    
61.         Else               
    
62.                 Set fs = Nothing
    
63.                 Response.Write "<p><br><br>数据库名称或路径不正确. 压缩失败!" & vbCrLf
    
64.         End If
    
65. 
    
66. 
    
67. end if
    
68. %>
    
69. 
    
70. <form method="POST" action="--WEBBOT-SELF--">
    
71.         <p><b>加密解密码数据库</b></p>
    
72.         <p><input type="text" name="mdbname" size="20" value="测试.mdb"> 数据库名</p>
    
73.         <p><input type="radio" value="1" name="dz" checked>加密
    
74.         <input type="radio" value="2" name="dz">解密</p>
    
75.         <p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
    
76. </form>
    

复制代码

[ Last edited by 小琦 on 2005-7-26 at 11:08 ]

mengyu8505

OK 加入精华。

mengyu8505

你要退出，然后重新登陆，就是落伍者了。

小琦

1. 
   
2. 
   
3. <b>测试数据库连接</b>
   
4. <!-- 绑定域名和数据库，绑磁盘序列号的我没做，其实也很简单 -->
   
5. <%
   
6. db="测试.mdb"
   
7. %><!-- 下面这句是加密函数 --><%
   
8. 
   
9. '------------------------取磁盘序列号----------------------------小琦
   
10. set fs=server.createObject("scripting.filesystemobject")
    
11. testDrive="G:"
    
12. set f=fs.getdrive(testDrive)
    
13. ''调用GetDrive方法，将驱动器赋予一个变量
    
14. 
    
15. xlh=trim(f.serialnumber) '取到磁盘序列号
    
16. 
    
17. '-------------------------取绑定的网站地址---------------------------小琦
    
18. myname=Request.ServerVariables("SERVER_NAME")'我绑定我的主机名
    
19. 
    
20. '-------------------------取二进制数据---------------------------小琦
    
21. url=server.MapPath(".")&"\[url]www.xiaoqi.net[/url]" '取一个exe文件或其它的文件作为提供加密的文件，为了安全，你可以把这个文件放到别人下载不到的地方。
    
22. Set  fso=Server.CreateObject("Scripting.FileSystemObject")  
    
23. Set  fl=fso.getfile(url)  
    
24. flsize=fl.size  
    
25. flName=fl.name  
    
26. Set  objStream  =  Server.CreateObject("ADODB.Stream")  
    
27. objStream.Open  
    
28. objStream.Type  =  1  
    
29. objStream.LoadFromFile url
    
30. Password=objStream.Read'二进制数据
    
31. Password=left(Password,4)&right(xlh,3)&myname'数据库密码用二进制数据+磁盘序列号+绑定的网站地址
    
32. Password=left(Password,19)'ACCESS数据库密码好像最多20个字符，我用了19个
    
33. 
    
34. 
    
35. %><!-- 下面是连接数据库 --><%
    
36. 
    
37. 
    
38. dim conn
    
39. Set conn = Server.CreateObject("ADODB.Connection")
    
40. conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password="&Password&";Data Source=" & server.MapPath(db)
    
41. 
    
42. set rs = conn.execute("select * from [test] order by id desc ")
    
43. 
    
44. response.write rs("name")
    
45. conn.close
    
46. conn=noting
    
47. %>
    

复制代码

[ Last edited by 小琦 on 2005-7-26 at 11:09 ]

小琦

打包后的文件从这里下。
http://www.xiaoqi.net/dvbbs/UploadFile/2005-4/200541414244818.rar
conn.asp是测试数据库连接的
access_bak.asp是加密数据库和解密数据库的文件
测试.mdb是测试用的数据库
ACCESS密码破解器 V4.5.exe 是目前最好用的ACCESS数据库密码破解工具

[ Last edited by 小琦 on 2005-4-14 at 14:28 ]

小琦

核心的东西是用asp取二进制数据。用二进制数据做为数据库密码。这样的话，目前所有的access密码破解机都破解不了了!

小琦

知道了，谢谢。。。

fenga6

不错啊。。我喜欢

什么东西

感觉就是
想回帖
怕是废话
可是好的东西
你能怎么样呢

网络

怎么很多 图标呢 郁闷