.dbleri nasıl şifreleyeceğim?

[delphiibo]

Herkese iyi çalışmalar.
Arkadaşlar. Ben yaptığım veritabanın başkaları tarafından görmesini önlemek istiyorum. Şifre koyacağım. Normalde şifre koyuyorum. Ama program açılırken ingilizce olarak şifreyi istiyor. Ben kod ile şifre girebilirmiyim. Lütfen yardım edin.
Herkese iyi çalışmalar...

[mussimsek]

Sitede ipuçları kısmında var.

Kolay gelsin.

[kelaynak2]

Aşağıda üç alanı da blob olarak tanımlanan veritabanını şifrelemekte kullanıyorum.Şifrelemek ve şifreyi çözmek için button1 e tıklaman gerekiyor.Umarım yardımı olur.Selamlar.

Kod: Tümünü seç

procedure Tform1.Encrypt(var ms: Tmemorystream; Key: Word);
var
  I: Integer;
  size:integer;
  Pt: Pbytearray;//

begin
ms.Position:=0;
size:=ms.Size;

Pt:=ms.Memory;
 for i:=0 to size-1 do begin
pt^[i]:=pt^[i] xor (key shr 8);

 end;
end;



procedure TForm1.Button1Click(Sender: TObject);
var
mbaslik:Tmemorystream;
myazar:Tmemorystream;
mturku:TmemoryStream;
begin
mbaslik := TMemoryStream.Create;
myazar:=Tmemorystream.Create;
mturku:=Tmemorystream.Create;

adoquery1baslik.SaveToStream(mbaslik);
adoquery1yazar.SaveToStream(myazar);
adoquery1notlar.SaveToStream(mturku);
 try
mbaslik.Position:=0;
myazar.Position:=0;
mturku.Position:=0;
Encrypt(mbaslik,845);
Encrypt(myazar,7976);
Encrypt(mturku,2234);
 adoquery1.Edit;
mbaslik.Position:=0;
myazar.Position:=0;
mturku.Position:=0;
adoquery1baslik.LoadFromStream(mbaslik);
adoquery1yazar.LoadFromStream(myazar);
adoquery1notlar.LoadFromStream(mturku);
adoquery1.Post;
finally
mbaslik.Free;
myazar.Free;
mturku.Free;
end;
end;