应用程序如何处理数据库的密码?是保存在程序里还是存在程序外? :)很簡單, 你將密碼存在INIfile,或是註冊表中,當然這個密碼是經過一些處理了.你最好寫一個加密和解密的函數,這樣你就不用擔心了. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 把它解开,不用保存。这是Office97的解法:(2000你要不?)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; 新手问题,帮下。谢谢 关于接收TCP数据包问题 Delphi7的Unicode问题. 如何查看本机有哪些端口被打开? delphi中如何动态创建access数据库 Delphi开发Web的问题 Delphi中时间类型在内部怎么表示,该表示方法有什么含义???? 请教MDI子窗体的问题。 FastReport问题 关于Delphi中使用TChromium控件调用JS函数的问题 如何把一个3M单独文件拷到三张软盘作备份,用什么工具 如何在DELPHI中实现一大段文字一行一行地向上滚动。。。115分
这是Office97的解法:(2000你要不?)
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;