请教：如何给ACCESS加密问题！ 找免费财务管理软件
财务软件版1楼: 我见过一种方式，即用ACCESS程序打开库时，库处于关闭状态，请问哪位大侠知道？！
adoconnection1.Connected:=true;
// 要不就用shl shr xor 对每一个数据加密
//key是密匙，返回加密后的字符串。
//解密反操作就ok.可逆的算法了，
//如果要用ecc des什么的我就不懂了。
function Encrypt(const S: String; Key: Word): String;
var
I : Integer;
begin
Result := S;
for I := 1 to Length(S) do
begin
Result[I] := char(byte(S[I]) xor (Key shr 8));
Key := (byte(Result[I]) + Key) * C1 + C2;
if Result[I] = Chr(0) then
Result[I] := S[I];
end;
Result := StrToHex(Result);
end;
2楼: ACCESS菜單 --> 工具 --> 安全 --> 設置數據庫密碼 如金蝶erp软件价格
3楼: 会不会是程序用的库的拷贝啊？
4楼: 不是密码设置，寻求一个： 即用ACCESS程序打开库时，库处于关闭状态，请问哪位大侠知道？！
5楼: 那就把文件加密了。。 用兔子，或者自己写。
6楼: to duhai_lee,:请明示一下？
财务软件版7楼: 我也想知道，
1、设置数据库密码破解太简单，跟不设一样，
2、用access的“工具”——“安全”里的用户与组权限，仍然可以破解，
3、自己把数据库加密，觉得也不好，设法让程序异常退出，数据这时是正常的。
有其他方法没有？
呵呵
一但一公布，对大多数人来说也不安全了，
8楼: ACCESS就不要加密了，有太多的工具可以破，跟没加密一样
9楼: hoho,如果在小地方用还是能哄人的。
10楼: //给数据库加个打开密码吧
然后连接
adoconnection1.ConnectionString:=＇＇Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＇＇+ExtractFilepath(Application.ExeName)+＇＇db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=111＇＇;
adoconnection1.Connected:=true;
// 要不就用shl shr xor 对每一个数据加密
//key是密匙，返回加密后的字符串。
//解密反操作就ok.可逆的算法了，
//如果要用ecc des什么的我就不懂了。
function Encrypt(const S: String; Key: Word): String;
var
I : Integer;
begin
Result := S;
for I := 1 to Length(S) do
begin
Result[I] := char(byte(S[I]) xor (Key shr 8));
Key := (byte(Result[I]) + Key) * C1 + C2;
if Result[I] = Chr(0) then
Result[I] := S[I];
end;
Result := StrToHex(Result);
end;
11楼: OK!
12楼: 接受答案了. 如免费财务管理软件
联系我们
