社区
Delphi
帖子详情
ACCESS 的密码在DELPHI中能解不??
saoren
2000-09-28 09:45:00
小弟在编程中连入的一个数据库是下一个数据库的数据源,但是由于安全问题,数据库设了密码。在DELPHI中一般是要输入密码才能打开它,但是又不想让其它用户知道这密码,所以能不能通过DELPHI解开密码,连入数据库。各位大虾帮帮忙,多谢了。
...全文
251
5
打赏
收藏
ACCESS 的密码在DELPHI中能解不??
小弟在编程中连入的一个数据库是下一个数据库的数据源,但是由于安全问题,数据库设了密码。在DELPHI中一般是要输入密码才能打开它,但是又不想让其它用户知道这密码,所以能不能通过DELPHI解开密码,连入数据库。各位大虾帮帮忙,多谢了。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
saoren
2000-10-06
打赏
举报
回复
musicfox:
真对不起,怪我没说清楚,因为用户的密码可能是随时改的,所以在程序连入数据库的密码
不是说是不变的。所以说要进行对*.mdb格式的文件进行解密。
数据库是放在用户的机器上,连入A.mdb,取得数据后作为B.mdb数据库的路径和其它资料的
参数。
现已经在网上寻得解方,不过还是多谢各位。现把它显之:这是对于Office 97数据库的。、
function GetAccessPassword(FilePath:string):string;
const
xorString:array[0..12]of byte=
( $86, $FB, $EC, $37,
$5D, $44, $9C, $FA,
$C6, $5E, $28, $E6,$13 );
var
passBuf:array[0..14]of byte;
pass:array[0..14]of char;
resultPass:string;
B:Byte;
F:TFileStream;
i:integer;
begin
F:=TFileStream.Create(FilePath,fmShareDenyNone);
//office 97
try
F.Seek($42,soFromBeginning);
F.Read(passBuf,14);
for I:=0 to 13 do
begin
B := passBuf[i] xor xorString[i];
pass[i]:=char(B);
end;
pass[sizeof(pass) - 1] := #0;
resultPass:=StrPas(Pass);
finally
F.Free;
end;
result:=resultPass;
end;
end;
musicfox
2000-10-02
打赏
举报
回复
可用TDatabase,同enlightenment的说法,也可以用TSession,在TSession的OnPassword事件
中写上user和password即可。
enlightenment
2000-09-30
打赏
举报
回复
哈哈!又重发了一堆,这网我已经没辄了。
enlightenment
2000-09-30
打赏
举报
回复
添加一个TDatabase组件,再将Table或Query等连接至TDatabase组件;
***在属性框的DatabaseName填上别名,如“My_Database”
然后:
try
Database1.Connected:=False;
Database1.AliasName:='***';
Database1.LoginPrompt:=False;
Database1.Params.Add('UserName=***');
Database1.Params.Add('Password=***');
Database1.Connected:=True;
except
ShowMessage('***');
end;
potato
2000-09-30
打赏
举报
回复
使用ADO 或 Data access 控件时都有设置password 的选项。
delphi
三层连接池
在描述中提到的“
delphi
三层架构”是指在软件设计中采用的三层架构模型,这是一种常见的分布式系统设计模式,它将应用程序分为三个主要层次:表现层(Presentation Layer)、业务逻辑层(Business Logic Layer)和...
UniDAC Professional 8.0.1 D10.3 Rio专用
在这款专业版8.0.1中,特别针对
Delphi
10.3 Rio进行了优化和适配,确保在该开发环境中能发挥最佳性能。 **一、UniDAC的核心特点** 1. **多平台支持**:UniDAC不仅适用于Windows操作系统,还支持macOS和Linux等跨...
uniDACv8-D25D26.zip
uniDAC v8.01是该组件的一个版本,特别强调了对
Delphi
10.2和10.3版本的支持,确保在这些开发环境中能顺畅地连接和操作各种数据库。 uniDAC的核心优势在于其广泛的数据源支持,包括但不限于Oracle、MySQL、SQL ...
超市收费系统 软件测试
在设计和实现超市收费系统时,通常选择
Delphi
7.0作为编程工具,搭配
Access
数据库,因为它们具有易用性和高效性。前台系统面向顾客,提供商品销售和收费功能,包括非会员和会员的结账处理,其中会员享受优惠是系统的...
delphi
关于
ACCESS
的日期类型字段比较的一点认识
ACCESS
的日期时间比较,这是个较难办的东西,从前试过几次,都不是很成功,就只能将日期字段更改为字符类型,直接进行字符比较,现在又碰到了,经过反复测试,终于找到原因,在
ACCESS
的日期比较上面要用到CDATE的...
Delphi
5,927
社区成员
262,932
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章