帮人家增加了点安全防护，无聊人可以下载下来测试一下。

静儿

呵呵，我不懂代码，谁来看看：
Function 权限(类型 As String) As Boolean
Dim Rs As New ADODB.Recordset
Dim Sql As String
Dim StrPath As String
StrPath = CurrentProject.Path & "\data.dll"
Rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Trim(StrPath) + ";"
Sql = "SELECT DISTINCT MSysAccounts_1.Name FROM (MSysAccounts INNER JOIN MSysGroups ON MSysAccounts.SID = MSysGroups.GroupSID) INNER JOIN MSysAccounts AS MSysAccounts_1 ON MSysGroups.UserSID = MSysAccounts_1.SID WHERE (((MSysAccounts_1.Name)=CurrentUser()) AND ((MSysAccounts.Name)='" & 类型 & "'));"
Set Rs = Rs.ActiveConnection.Execute(Sql)

If Rs.EOF Then
   权限 = False
Else
   权限 = True
End If
Set Rs = Nothing
End Function

登录权限似乎保存在data.dll里。

静儿

老大好像也有失手的时候哦。

liaug

支持一下

hi-wzj

呵呵，确实失误了。原来的wzj是最高的管理员，上传例子时将他的权限降级，疏漏了某部分的权限限制。

看来凡事都要认真呀。

[ 本帖最后由 hi-wzj 于 2008-8-25 16:50 编辑 ]

hi-wzj

正式发布时编译成mde即可解决上述问题。

hi-wzj

本贴参与人都将得到我送出的论坛道具，谢谢大家的测试。

glw

学习一下

yori2007

[:30] 什么东西都没有啊，只有20b

静儿

[:42] 谢谢版主送出的[:19] 置顶卡。
其实我还是没看懂您是怎么加密的 ，如果您能将您的思路和大家分享，我想这对我们有很大的帮助。

hi-wzj

嗯，我就大概说一说吧。
构成：
统计.mdb－壳；data.mdb－程序文件；data.dll更改了扩展名的acc文件，是后端及安全工作组的混合体。

统计.mdb：里面主要就一行代码。
     Shell SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE " & CurrentProject.path & "\data.MDB /user " & Me.用户 & "/pwd " & Me.密码 & "/wrkgrp " & CurrentProject.path & "\data.dll/cmd xh", vbMaximizedFocus 此命令可看命令行启动acc的帮助。
data.mdb：由于需要启用自己的安全工作组才能打开，直接打开是没有权限的。当代码被编译后，一般的人很难猜到工作组文件隐藏在data.dll中的。
data.dll：后端及安全工作组的混合体。其实安全工作组文件也是一个acc数据库文件。因此用acc打开安全工作组文件后导入后端文件即可。