如何在資料庫裡的資料加密? |
尚未結案
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
我想連一個資料庫(access),之後在資料庫裡的東西變成加密,而我已經會連線了,成功了
adotable1.ConnectionString:='provider=microsoft.jet.oledb.4.0;data source=d:\資料庫\abc.mdb;persist security info=false';
adotable1.TableName:='illness';
adotable1.Active:=true;
而在加密上我也使用了
const
c1=52845;
c2=11719;
function decrypt(const s:string;key:word):string;
var
i:byte;
begin
setlength(result,length(s));
for i:=1 to length(s) do begin
result[i]:=char(byte(s[i])xor (key shr 8));
key:=(byte(s[i])+key)*c1+c2;
end;
end;
在來就是如何在button上使用上面的decrypt function,可以使用access資料庫裡的東西可以加密呢???各位幫幫忙,老師又出難題了
< >< >
|
pillar62
資深會員 發表:9 回覆:324 積分:271 註冊:2002-04-15 發送簡訊給我 |
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
|
pillar62
資深會員 發表:9 回覆:324 積分:271 註冊:2002-04-15 發送簡訊給我 |
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
for i := 0 to adotable1.fieldcount-1 do
adotable1.Fields[i].value := decrypt(adotable1.fields[i].value,8); end;
procedure TForm1.Button4Click(Sender: TObject);
//var i:integer;
begin
//for i := 0 to adotable1.fieldcount-1 do
//adotable1.Fields[i].value := encrypt(adotable1.fields[i].value,8);
end;哪有錯呢???請大師指點
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
for i := 0 to adotable1.fieldcount-1 do
adotable1.Fields[i].value := decrypt(adotable1.fields[i].value,8); end;
procedure TForm1.Button4Click(Sender: TObject);
//var i:integer;
begin
//for i := 0 to adotable1.fieldcount-1 do
//adotable1.Fields[i].value := encrypt(adotable1.fields[i].value,8);
end;哪有錯呢???請大師指點
|
pillar62
資深會員 發表:9 回覆:324 積分:271 註冊:2002-04-15 發送簡訊給我 |
|
pillar62
資深會員 發表:9 回覆:324 積分:271 註冊:2002-04-15 發送簡訊給我 |
|
pillar62
資深會員 發表:9 回覆:324 積分:271 註冊:2002-04-15 發送簡訊給我 |
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
|
jeff377
初階會員 發表:9 回覆:60 積分:33 註冊:2004-08-10 發送簡訊給我 |
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
|
paa
初階會員 發表:50 回覆:101 積分:30 註冊:2005-02-01 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |