كيف يمكن لتطبيقك فتح جدول -table- بارادوكس محمي بكلمة مرور

[مهدي]

يمكن لتطبيقك فتح جدول بارادوكس محمي بكلمة مرور من دون أن يطلب منك إدخالها

procedure TForm1.FormCreate(Sender: TObject);
begin
Session.AddPassword('كلمة المرور');
Table1.Open;
end;

و ذلك بكتابة الأمر
Session.AddPassword('كلمة المرور');


قبل الأمر

Table1.Open;

[B.M.AbdelAziZ]

بسم الله الرحمن الرحيم

هناك باب خلفي سري ل Paradox يمكن فتحه مهما كانت كلمة السر
PARADOX 7.0 يمكن فتحه بكلمة السر"jIGGAe" او "cupcdvum"

والسلام عليكم ورحمة الله وبركاته

[merouane]

هناك باب خلفي سري ل Paradox يمكن فتحه مهما كانت كلمة السر
PARADOX 7.0 يمكن فتحه بكلمة السر"jIGGAe" او "cupcdvum"


السلام عليكم

كانت على لساني

سبتقني الله يعطيك الخير

تحياتي :)

[B.M.AbdelAziZ]

بسم الله الرحمن الرحيم

خيرا اخي مروان المرة المقبلة عليك

اضيف فقط، انه يمكن تشفير البيانات قبل تخزينها في القاعدة
وبهذا عند تخطي كلمة السر تبقى البيانات مشفرة و غير مفهومة


والسلام عليكم ورحمة الله

[مهدي]

بارك الله فيك أخي عزيز
أشكرك على هذه المعلومة
هل لديك أمثلة لطرق التشفير ؟

[merouane]

السلام عليكم

أعذرني سأجيبك بما لدي لعموم الفائدة

var
s: string[255];
c: array[0..255] of Byte absolute s;
i: Integer;
begin
{ Crypte le text }
s := Edit1.Text;
for i := 1 to ord(s[0]) do c[i] := 23 xor c[i];
LabCrype.Caption := s;
{ Décrypte le text }
s := LabCrype.Caption;
for i:=1 to Length(s) do s[i] := Char(23 xor ord(s[i]));
LabDecrype.Caption := s;
end;
انظر في الملفات المرفقات

[مهدي]

بارك الله فيك رضوان
صحيح لا ينال العلم مستكبر و لا مستحي
عندي سؤال آخر إن أمكن
كيف يمكن تشفير الملفات (صور، ملفات صوتية ...) التي توضع في الحقول من نوع Ole ؟ ملفات الجرافيك ؟

[B.M.AbdelAziZ]

alsouf هل تتعمد المشاركة من اجل المشاركة !
تكتب رد بموضوع ثم بعد اشهر تعيد رد اخر!