delphi4arab منتديات دلفي للعرب
كلمة المرور مع قواعد البياتات - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كلمة المرور مع قواعد البياتات (/showthread.php?tid=1063)



كلمة المرور مع قواعد البياتات - chehrour - 18-07-2009

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


كلمة المرور مع قواعد البياتات - kachwahed - 18-07-2009

السلام عليكم
هذه الوحدة قد تساعدك:
PHP كود :
unit SecurityTable;

interface

uses
  BDE
, SysUtils, DBTables, Windows;

function 
TablePasswort(var table: TTable; password: String) : Boolean;

implementation

function StrToOem(const AnsiStr: String) : String;
begin
  SetLength
(result, Length(AnsiStr));
  if 
Length(result)>0 then
    CharToOem
(PChar(AnsiStr), PChar(result))
end;

function 
TablePasswort(var table: ttable; password: String) : Boolean;
var
  
pTblDesc : pCRTblDesc;
  
hDb      : hDBIDb;
begin
  result 
:= false;
  
with table do
  
begin
    
if Active and (not Exclusive) then
      Close
;
    if (
not Exclusive) then
      Exclusive 
:= true;
    if (
not Active) then
      Open
;
    
hDb := DBHandle;
    
Close
  end
;
  
GetMem(pTblDesc, sizeof(CRTblDesc));
  
FillChar(pTblDesc^, sizeof(CRTblDesc), 0);
  
with pTblDesc^ do
  
begin
    StrPCopy
(szTblName, StrToOem(table.tablename));
    
szTblType := szParadox;
    
StrPCopy(szPassword, StrToOem(password));
    
bPack := true;
    
bProtected := true
  end
;
  if 
DbiDoRestructure(hDb, 1, pTblDesc, nil, nil, nil, false)<>DBIERR_NONE then
    
exit;
  if 
pTblDesc<>nil then
    FreeMem
(pTblDesc, sizeof(CRTblDesc));
  
result := true
end
;

end. 
بعد استدعائها استعملها كما يلي:
PHP كود :
TablePasswort (Table1, 'secret'); 

بالتوفيق.



كلمة المرور مع قواعد البياتات - nabilkeb - 18-07-2009

تنشئ كلمة المرور كما في الصورة :

[صورة: 904236762.jpg]

و لفتح القاعدة المحمية بكلمة المرور :
كود :
Session.AddPassword('كلمة المرور'); Table1.Open

- و لا تعول كثيرا أخي على هاكذا حماية ، راجع هذا الرابط

****بالتوفيق أخي و السلام عليكم****


كلمة المرور مع قواعد البياتات - chehrour - 18-07-2009

شكرا لكم جميعا الرد المفيد جزاكم الله عني خيرا
لكن يا اخي nabilkeb لماذا قلت لاتعول عليها كثيرا


كلمة المرور مع قواعد البياتات - STRELiTZIA - 18-07-2009

و عليكم السلام و رحمة الله و بركاته
إقتباس :لكن يا اخي nabilkeb لماذا قلت لاتعول عليها كثيرا
لان ثغرات الحمايات العامة كثيرة Standard protections و لا يمكن اعتمادها في حماية قواعد البيانات...
ايضا استعمال اوامر تظهر فيها كلمات السر بوضوح دون تشفير تعتبر حماية غير فعالة، هي عبارة فقط على Simple protection و لا تحتاج الى هندسة عكسية لتخطيها، يكفي فتح البرنامج في اي محرر للوصول الى كلمة السر.

بالتوفيق ان شاء الله


كلمة المرور مع قواعد البياتات - chehrour - 18-07-2009

شكرا اخي جزيلا وجزاك الله عني خير
في الحقيقة انا موظفق اعمل بمصلحة المتسخدمين ومكلف بالتامينات الاجتماعية للموظيفن وصممت برنامج بسيط ليساعدني في البحث عن المعلومات فهي سرية وخاصة بالموظفين و لا**** ان يطلع عليها احد لا**** ان يطرأ عليها اي تغيير حيث لايمكنني اكتشاف ذللك فجزاك الله خيرا بماتنصحني


كلمة المرور مع قواعد البياتات - nabilkeb - 18-07-2009

أخي Chehrour قلت لا تعول ونصحتك بزيارة الرابط ، فهل فعلت ؟

أهلا بأستاذنــا STRELiTZIA، كيف الحال؟
إقتباس :استعمال اوامر تظهر فيها كلمات السر بوضوح دون تشفير تعتبر حماية غير فعالة
تقصد بالوضوح عدم استبدالها في المنقح بنقاط أو نجوم ؟ أم أن ذلك أيضا يدخل في قولك
إقتباس :تظهر فيها كلمات السر بوضوح
؟


كلمة المرور مع قواعد البياتات - Anter2010 - 20-07-2009

السلام عليكم و رحمة الله
سؤال لو سمحتم هل قاعدة البيانات Absolute database
سهلة الكسر