کسی میدونه چطور میشه روب بانک اطلاعاتی DBF قفل گذاشت که فقط از داخل برنامه باز بشه :?:
یا اگر یک فایل DBF قفل داشت چطوری میشه اون را باز کرد ؟
خیلی ممنون :lol:
Printable View
کسی میدونه چطور میشه روب بانک اطلاعاتی DBF قفل گذاشت که فقط از داخل برنامه باز بشه :?:
یا اگر یک فایل DBF قفل داشت چطوری میشه اون را باز کرد ؟
خیلی ممنون :lol:
می خوای قفل بذاری یا قفل بشکنی :wink: اصولا این طوری که وقتی برنامه تموم می شه ، تمام فایل ها Encrypt می شن و وقتی برنامه اجرا می شه Decrypt !
برای باز کردن قفل هم بستگی داره که طرف از چه قفلی استفاده کرده :roll:
می تونی header فایل رو با low level function ها تغییر بدی
میشه خاهش کنم یه مثال بزنید :oops:
:D
سلام به همتون
خوشحالم که با لطف یه دوست آدرس جدید این سایت رو دوباره برام ارسال کرد و
باز از نزدیک با شما دوستان هم کلام میشم .
قبلا هم خدمت دوستان عرض ارادت داشتم توی سایت قبلی .
امیدوارم که در این مرحله جدید بیشتر بتونم از حضور شما بهره ببرم و در معیتتون
باشم
آقای منتظر الظهور خصوصا سلام میکنم خدمتتون .
اقا کیا شما هم حتما حضور ذهن دارید صحبتهای قبلی رو.
بقیه دوستان هم همچنین و امیدوارم که مثل همیشه همگی خوب و شاد و شاداب
باشید .
یا علی
. :D
کرامت جون ، قربانت !
محمد پور جان ! دو تا تابع درست کن مثلا TabEncrypt و TabDecrypt
توی تابع اول ، تمام جدول ها تو با FOpen باز کن و اولین کارکترش و تغییر بده مثلا اولین کارکتر رو به Z تبدیل کن !
توی تابع دوم ، برعکس این کار رو بکن . کارکتر اول همه جدول ها رو به کارکتر اصلیش ( یادم نیست چه کارکتری بود ) برگردون !
حالا تابع اول رو در انتهای برنامه و تابع دوم رو در ابتدای برنامه اجرا کن 8)
خیلی ممنون :P
سلام
کرامت جان خوش آمدی
برای قفل کردن هدر فایل اگه وقت کردم یه برنامه برات می نویسم و میل میکنم برات
با سلام
روش قفل گزاری مطرح توسط شما درست اما در زمانی که سیستم شما تحت شبکه طراحی شده و همزمان 10 الی 20 کاربر حد اقل وارد و خارج میشوند چه طرحی دارید و بحث کاهش سرعت نیز مهم است آنهم در شبکه
با تشکر طایفی
آقای kia1349
سلام
میشه برای من هم یک مثال بزنید و برام بفرستید :roll:
سلام به همگی
آقای محمدپور
در خصوص قفل کردن جدول (Table).
اگر میخواهی که اطلاعات موجود در جدول در خارج از برنامه ای که نوشته ای قابل استفاده نباشه، میتونی اطلاعات فیلدهای جدول رو بصورت رمز (Encrypt) دربیاری.
فقط دقت کن که اطلاعات فیلد یا فیلدها در داخل جدول، همیشه بصورت رمز بایستی ثبت شوند و فقط هنگامی که میخواهی از آنها استفاده کنی از حالت رمز دربیاری (Decrypt) آنهم فقط در حافظه، نه مستقیما در داخل جدول.
به این صورت هم مشکل شبکه حل میشه و هم اینکه به لحاظ سرعت مشکلی پیدا نمیکنی و هم اینکه اطلاعات فیلدهای مورد نیاز بصورت رمز در جدول میباشند.
برای مثال به تابع زیر دقت کن:
Function EncDec
LParameters tcStr ,tcPassword
Local lcResult ,lnLenPassword ,lnIndex ,lnStrAsc ,lnPasAsc
lcResult = ""
lnLenPassword = Len(tcPassword) - 1
For lnIndex=1 To Len(tcStr)
lnStrAsc = Asc(SubStr(tcStr,lnIndex,1))
lnPasAsc = Asc(SubStr(tcPassword,Mod(lnIndex,lnLenPassword)+1 ,1))
lcResult = lcResult + Chr(BitXOr(lnStrAsc,lnPasAsc))
EndFor
Return lcResult
EndFunc
حالا میتونی با استفاده از تابع فوق اطلاعات فیلد مورد نظرت را هم رمز کنی و هم از رمز در بیاری.
برای مثال اگه میخواهی که مقدار 'محمدپور' رو در فیلدی با نام Family ثبت کنی این دستور رو بنویس:
('رمز','محمدپور')Replace Family With EncDec
و اگه میخوای که اطلاعات فیلد مورد نظر را نمایش بدی میتونی بصورت زیر عمل کنی:
('رمز',Wait Window EncDec (Family
موفق باشید