نمایش نتایج 1 تا 11 از 11

نام تاپیک: قفل کردن فایل DBF در فاکسپرو 2.6

  1. #1
    کاربر دائمی
    تاریخ عضویت
    بهمن 1381
    محل زندگی
    ایران
    پست
    101

    قفل کردن فایل DBF در فاکسپرو 2.6

    کسی میدونه چطور میشه روب بانک اطلاعاتی DBF قفل گذاشت که فقط از داخل برنامه باز بشه :?:

    یا اگر یک فایل DBF قفل داشت چطوری میشه اون را باز کرد ؟

    خیلی ممنون :lol:

  2. #2
    کاربر دائمی آواتار Mohammad_Mnt
    تاریخ عضویت
    اسفند 1381
    محل زندگی
    جنگلی به نام ایران
    سن
    41
    پست
    1,875
    می خوای قفل بذاری یا قفل بشکنی :wink: اصولا این طوری که وقتی برنامه تموم می شه ، تمام فایل ها Encrypt می شن و وقتی برنامه اجرا می شه Decrypt !
    برای باز کردن قفل هم بستگی داره که طرف از چه قفلی استفاده کرده :roll:

  3. #3
    می تونی header فایل رو با low level function ها تغییر بدی
    در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
    ************************************************** ******************************************
    اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی

  4. #4
    کاربر دائمی
    تاریخ عضویت
    بهمن 1381
    محل زندگی
    ایران
    پست
    101
    میشه خاهش کنم یه مثال بزنید :oops:

  5. #5
    :D

    سلام به همتون
    خوشحالم که با لطف یه دوست آدرس جدید این سایت رو دوباره برام ارسال کرد و
    باز از نزدیک با شما دوستان هم کلام میشم .
    قبلا هم خدمت دوستان عرض ارادت داشتم توی سایت قبلی .
    امیدوارم که در این مرحله جدید بیشتر بتونم از حضور شما بهره ببرم و در معیتتون
    باشم
    آقای منتظر الظهور خصوصا سلام میکنم خدمتتون .
    اقا کیا شما هم حتما حضور ذهن دارید صحبتهای قبلی رو.
    بقیه دوستان هم همچنین و امیدوارم که مثل همیشه همگی خوب و شاد و شاداب
    باشید .

    یا علی
    . :D

  6. #6
    کاربر دائمی آواتار Mohammad_Mnt
    تاریخ عضویت
    اسفند 1381
    محل زندگی
    جنگلی به نام ایران
    سن
    41
    پست
    1,875
    کرامت جون ، قربانت !
    محمد پور جان ! دو تا تابع درست کن مثلا TabEncrypt و TabDecrypt
    توی تابع اول ، تمام جدول ها تو با FOpen باز کن و اولین کارکترش و تغییر بده مثلا اولین کارکتر رو به Z تبدیل کن !
    توی تابع دوم ، برعکس این کار رو بکن . کارکتر اول همه جدول ها رو به کارکتر اصلیش ( یادم نیست چه کارکتری بود ) برگردون !
    حالا تابع اول رو در انتهای برنامه و تابع دوم رو در ابتدای برنامه اجرا کن 8)

  7. #7
    کاربر دائمی
    تاریخ عضویت
    بهمن 1381
    محل زندگی
    ایران
    پست
    101
    خیلی ممنون :P

  8. #8
    سلام
    کرامت جان خوش آمدی
    برای قفل کردن هدر فایل اگه وقت کردم یه برنامه برات می نویسم و میل میکنم برات
    در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
    ************************************************** ******************************************
    اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی

  9. #9
    با سلام

    روش قفل گزاری مطرح توسط شما درست اما در زمانی که سیستم شما تحت شبکه طراحی شده و همزمان 10 الی 20 کاربر حد اقل وارد و خارج میشوند چه طرحی دارید و بحث کاهش سرعت نیز مهم است آنهم در شبکه

    با تشکر طایفی

  10. #10
    کاربر دائمی
    تاریخ عضویت
    بهمن 1381
    محل زندگی
    ایران
    پست
    101
    آقای kia1349
    سلام

    میشه برای من هم یک مثال بزنید و برام بفرستید :roll:

  11. #11
    سلام به همگی
    آقای محمدپور

    در خصوص قفل کردن جدول (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

    موفق باشید

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •