.dbleri nasıl şifreleyeceğim?

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
delphiibo
Üye
Mesajlar: 72
Kayıt: 27 Eki 2005 04:55
Konum: istanbul
İletişim:

.dbleri nasıl şifreleyeceğim?

Mesaj gönderen 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...
Onun tek dostu Allah
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7604
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

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

Kolay gelsin.
Kullanıcı avatarı
kelaynak2
Üye
Mesajlar: 135
Kayıt: 30 Haz 2003 02:18

Bir Örnek

Mesaj gönderen 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;
Cevapla