قرار دادن پسورد برای بانک و باز کردن آن با دلفی

با عرض سلام
من می خوام به بانک اطلاعات خود پسورد قرار بدم و این بانک فقط با برنامه ای که من نوشتم باز بشه و اطلاعاتش نمایش داده بشه
مثلا
من یک بانک اطلاعاتی پارادوکس دارم که به این بانک هم پسورد دادم تا کسی نتونه بانک را باز کنه بعد من در دلفی برنامه ای بنویسم که این بانک را باز کنه
اگر کسی می تونه من را راهنمائی کنه خیلی خوشحال می شم می تونید برای من پیغام یا ایمیل ارسال کنید به نشانی زیر
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
از تمام کسانی که کمک کنند یا نکنند خیلی ممنون می شم قربان تمام مهندسین برم

سلام

خوب این که خیلی ساده است.

با برنامه ای که بانک اطلاعاتی رو ایجاد کردی پسورد بزار.

و وقتی که میخواهی به بانک وصل بشی پسورد بده.

اگر خواستی بگو نمونه ای از بانک اکسس برات بزارم.

موفق باشی

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

این پسوردی که میگین رو نمیشه به این راحتیا در هنگام برنامه نویسی وارد بانک اکسس کرد و یا ایجاد کرد.
این پسورد رو باید به کمک خود اکسس انیجاد کنید و بعد در دیتابیس دلفی به اون کانکت بشین.

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

مهندسین امیدوارم که من را ببخشند که زیاد سوال می کنم !
آقا اصلا من می خوام به بانکم در اکسس پسورد بدم و این بانک را بتونم با برنامه نویسی به زبان دلفی باز کنم و آن را ویرایش کنم .
در کل من از تمام دوستانی که کار را بلد هستند می خواهم یه توضیح مفصر برای این سوال داشته باشند اگر ممکن باشه با یه مثال هم توضیح دهند خیلی بهتر متوجه می شیم .
کل سوالات:
1- چطور به بانک اطلاعات اکسس پسورد بدیم ؟
2- چطور این بانک را در برنامه ای که نوشتیم باز کنیم که پسورد بانک از کاربر پرسیده نشود؟

در ضمن من در بانک db (پارادکس) می تونم پسوردی برای بانکم قرار بدم اما نمی تونم این بانک را در برنامه طوری قرار دهم که وقتی برنامه را برای کسی فرستادم این پسورد بانک از کاربر پرسیده نشود کل موضوع این است هر کسی بلد است خواهش می کنم لطف کند بگوید
با این که بیشتر جواب ها را در چنین سوالاتی از مهندس سولجر و مرد مباح دیدم اما کاش می شده بهتر توضیح بدن و سرسری یه جواب ندهند
با تشکر از تمام دوستانی که ما را در این را کمک خواهند کرد

توصیه میکنم یه خورده زحمت بکشین لااقل یه کتاب اکسس بخونی
برای گذاشتن پسورد دیتابیس رو به صورت Exclusive باز کنید بعد از منوی Tools >Sucurity> Set DataBase Password

نقل قول:

---

نوشته شده توسط MasterData [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

توصیه میکنم یه خورده زحمت بکشین لااقل یه کتاب اکسس بخونی
برای گذاشتن پسورد دیتابیس رو به صورت Exclusive باز کنید بعد از منوی Tools >Sucurity> Set DataBase Password

---

خوب مهندس من این کتاب را پیدا کردم و خوندم اما نصف مشکل حل شد نصف دیگه مشکل مونده!!!!!!!!!!!!
خوب حالا این بانک را چطور باز کنم که دیگه از کاربر پسورد پرسیده نشه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/

همه نصف مشکل را حل می کنند اما نصف دوم مشکل که خیلی مهم است را کسی تا حالا نگفته کسی نیست یه جواب درست و حسابی به ما بده:11: :40: :40: :40:

سلام
توي يكي از اين چند جايي كه در اين مورد پست زديد من جوابتون را دادم، فقط كافيه توي Connection String كلمه عبور را مشخص كنيد.

خوب یکی از مهندسی گفته که تو قسمت Connection string پسورد را وارد کنید کجا وارد کنیم معلوم نیست
در ضمن من گفتم که بانک های پادادکس و اکسس که ایشون فکر کنم فکر کردن که ما هم مثل خودشان مهندس هستیم که با یه اشاره کافی باشه آقای مهندس ما تازه وارد هستیم خواهشا کمی توضیح اگر ممکنه بدید برای دو بانک که یکی اکسس است و دیگیری پارادکس (db ) خواهشا جواب بدید که چطوری پسورد را وارد کنیم کجا وارد کنیم به چه روشی به چه صورت!!!!!!!!!!!!!!
کمی صبوری در جواب دادن هم خودش بزرگی جواب دهنده را می رساند

نقل قول:

---

نوشته شده توسط as13851365 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خوب یکی از مهندسی گفته که تو قسمت Connection string پسورد را وارد کنید کجا وارد کنیم معلوم نیست
در ضمن من گفتم که بانک های پادادکس و اکسس که ایشون فکر کنم فکر کردن که ما هم مثل خودشان مهندس هستیم که با یه اشاره کافی باشه آقای مهندس ما تازه وارد هستیم خواهشا کمی توضیح اگر ممکنه بدید برای دو بانک که یکی اکسس است و دیگیری پارادکس (db ) خواهشا جواب بدید که چطوری پسورد را وارد کنیم کجا وارد کنیم به چه روشی به چه صورت!!!!!!!!!!!!!!
کمی صبوری در جواب دادن هم خودش بزرگی جواب دهنده را می رساند

---

سلام
كم كم دارم به اين واژه مهندس حساسيت پيدا مي كنم.

اينطوري :

کد:

---

ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Password=;'+
 'Data Source='+DBSource+';Mode=ReadWrite;Extended Properties="";Persist Security Info=False;'+
 'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="ah67dhg8";'+
 'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+
 'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;'+
 'Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;'+
 'Jet OLEDB:SFP=False';

---

نقل قول:

---

كم كم دارم به اين واژه مهندس حساسيت پيدا مي كنم

---

مشکلی نیست. من هم به ؟ و ! حساس شدن. عادت میکنی :d

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


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

به عنوان مثال دوستان گرامی عکس های الف و ب و ج connection string ابزار یک از عکس د می باشد
خوب دوستان از روی عکس راهنمائی کنید هم برای شما راحتتر است هم برای ما .
دوستانی که بلد هستند می تونند چنین توضیح بدن :

1- یک بانک ایجاد کنید و برایش یک پسورد قرار دهید
2- یک فرم جدید باز کنید
3- ابزار های ..... روی فرم قرار بدهید
4- مشخصات ابزار ..... به این مقدارها تغییر دهید
5-حالا کلید f9 را بزنید تا برنامه اجرا شود
6- برنامه اجرا شده بدون این که پسورد را از کاربر بپرسد یک راست فرم را نمایش می هد
7-کاربر بدون این که با کادر پسورد بانک مواجه شود می تواند بانک را تغییر دهد
8- این برنامه هیچ مشکلی ندارد اگر مشکلی داشت من دیگر برنامه نویسی نمی کنم %

دوستان گرامی این یک برنامه است دوستانی که بلد هستند باید خوب بتونن این اطلاعات را به دیگران نیز انتقال دهند انتقال اطلاعات مهم است نه این که دانستن اطلاعات
با تشکر از ------------- می ترسم بازم کلمه ای از نوشته های من تکراری باشه و دوستان را دچاره حساسیت کنم برای همین چیزی نمی نویسم------------

نقل قول:

---

آقایونی که فقط بلدن نق بزنند البته با عرض پوزش
من و امثال من از شما دوستان چیزه زیادی نمی خواهیم تنها می خواهیم که به ما کمک کنید .

---

اوه ! چرا ناراحت میشی. من منظورم با شما نبود زودی ناراحت شدی.

من توی بانک اطلاعاتی تجربه زیادی ندارم. اگر میتونستم هیچ وقت دریغ نمیکردم.


موفق و پیروز باشید.

سلام
اتفاقا من و امثال من هم از شما توقع داريم تقاضاي هلوي پوست كنده نكنيد.
شما كه اين قدر وقت ميگذاريد و از صفحه كپچر ميگيريد و شماره گذاري مي كنيد بايد بدونيد كه با فشار دادن كليد F1 روي كنترل مورد نظرتون ميتونيد از راهنماي دلفي استفاده كنيد . اكثر كنترلها هم داراي مثال هستند.
اكثر اين خاصيتها بخاطر عنواني كه دارند به راحتي قابل فهم هستند.
تو اين انجمن قبلا چندين بار در اين مورد بحث شده كه از كجا شروع كنيد و چيكار كنيد.
راحت ترين كار (اينطور به نظر ميرسه كه علاقه اي به خواندن متون با الفباي بيگانه‏ يا همان انگليسي نداريد) استفاده از يك كتاب فارسي در مورد دلفي است. اينطوري با مفاهمين اوليه آشنا ميشويد و معمولا همه اين كتابها هم اكثر كنترلها را معرفي مي كنند.
ببينيد اينجا بحث ناراحت شدن نيست. بحث اين است كه خيلي از كاربرها بجاي اينكه سعي كنند خودشون مطلبي را ياد بگيرند انتظار دارند ديگران اين كار را برايشان انجام دهند‏. قبلا n بار گفته شده كه شما پروژه خودتان را شروع كنيد و مشكلاتتان را اينجا مطرح كنيد وگر نه پرسيدن و گفتن اين مطلب كه F9 باعث اجراي برنامه ميشود كه دردي از كسي دوا نميكند.
سعي هم نكنيد از ابتدا همه كنترلها را ياد بگيريد . بهتره هنگام كار با كنترلها آشنا شويد. شما چند روزه دنبال روش اتصال به بانك هستيد در صورتيكه با يك جستجو در اينترنت ميتوانيد به راحتي به پاسخ خود برسيد ولي منتظر شده ايد كه كسي يك لقمه آماده براي شما بگيرد.
من ترجيح ميدهم شما ناراحت بشويد و خودتون برويد دنبال جواب تا اينكه وقتتون را براي رسيدن به جواب چند روز به هدر دهيد.

نان فورس درست میگه.
نباید یک لقمه رو هلوی پوست کنده بکنبم و بدیم بهت.
چون پس فردا دوباره پست میدی و میپرسی چی کار کنم.
یک کمی هم خودت بگرد و تلاش کن.
ما کمک میکنیم و همفکری.

دوستان امیدوارم که من را ببخشید چون بلخره من به هدفم رسیدم

ماشاالله تو هم خیلی میتونی تایپ کنی و پستت رو زیبا کنی.

اما نمیتونی کمی زحمت بکشی و به نــتــیـجه برســـــی!!!!!

در ضمن. اگر سرچ میکردی. تاپیک " آموزش های وصل شدن به دیتابیس های مختلف" رو پیدا میکردی.

بفرما

کد:

---

http://forum.p30world.com/showthread.php?t=108109

---

متاسفانه پرسش شما مشخص نیست. آخه مشکل پسورد هست یا وصل شدن به دیتابیس

و یا اطلاعاتی در مورد بانک های اطلاعاتی و یا اطلاعاتی در مورد استفاده از بانک های اطلاعاتی.

خوب شما هم باید فکر دوست گرامی رو هم بکنید که میخواهد جواب بده. این دوست عزیز هم

که جواب میده ، چیزی بابت این کارش که نمیگیره! که شما هر طوری که دوست داری رفتار میکنی !


پیروز و سربلند باشید

با عرض پوزش از تمامی توستانی که من را با سوالاتم تحمل کردند

من بلخره تونستم به بانکم وصل شو و هیچ مشکلی ندارم .

اما دوستم سولجر جان یک منبع معرفی کرد که وقتی به اونجا رفتم

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

واقعا برای تلاش های خودم برای دادن پسورد به بانک خیلی خندیدم اونجا من از اول تا آخر صفحه را خوندم طوری که در این صفحه ها من به پستی برخورد کردم که در اونجا نوشته بود برنامه های وجود داره که به راحتی می شه پسورد این بانک ها پاک کرد .

من خسته شدم دوستان کمکم کنید این دفعه دیکه زیاد مزاحم شما نمی شم.

سوالم این است که چه کاری کنم که این بانک ها از امنیت بیشتر برخوردار باشن من بیشتر با رکورد کار کردم و در رکورد داده ها را به کد تبدیدل می کنم بعد این کد را با کد دیگری محاسبه می کنم بعد این کد را به کاراکتر تبدیل می کنم و در فایل می نویسم حالا در بانک چه کار های می تونم انجام بدم که فقط برنامه من بتونه این بانک را باز کنه و اطلاعات واقعی ان را نشان بده همین.
عوض کردن پسوند و غیره خواهشا در باره امنینت این بانک ها توضیح بدهید

راستیتش من به این فکر می کردم که کسی تا حالا نخواسته یا نتونسته این جواب را به این سوال من ( برای بانک پسورد گذاشتیم چطوری بانک را در دلفی باز کنیم )
جواب این سوال :
از قسمت ADO یک کامپوننت ADOTable را روی فرم قرار دهید بعد در قسمت Properties قسمت Connection String رو انتخاب کنید پنچره ای باز می شود که به صورت پیش فرض گزینه دوم انتخاب شده است و شما کافیست دکمه Build... را بزنید بعد یک پنچره باز می شه که دارای چهار زبانه است در زبانه اول کافیست گزینه Microsoft Jet 4.00 LE DB Provider را نتخاب کنید (پنجمین گزینه ) بعد دکمهNext را بزنید در زبانه دوم که با شماره جدا شده اند در قسمت اول کافیست فایل مورد نظر را انتخاب کنید بعد در زبانه چهارم (ALL ) مقدار گزینه Jet OLEDB : Database password پسوردی را که برای بانک قرار دادید را وارد کنید بعد کار تمام شدOK را می زنید بعد در قسمت TablenName نام جدول را انتخاب می کنید و Active را هم ترو می کنید کار تمام شد

سلام
خب بالاخره به نتيجه رسيديد و ماهم چيز جديدي ياد گرفتيم.
براي امنيت بيشتر ميتونيد از جايگزينهاي ديگري براي بانك اطلاعاتي استفاده كنيد كه به اين راحتي نميشود كلمه عبور آنها را تغيير داد يا حذف كرد و يا اينكه اطلاعات را بصورت كد شده در بانك بنويسيد.

خوب دوستان عزیز

منظور شما از کد کردن چیست؟
چطوری این داده ها را کد کنیم که وقتی بانک را باز کردیم این داده ها دوباره از کد خارج شوند؟

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

راههای ایجاد امنیت در بانک ( امنیت بانک که دیگران نتونن از بانک سواستفاده کنند)

از دوستان کسی می تونه بانکی در اکسس ایجاد کنه که این بانک از هر لحاظ امنیت داشته باشه بطوری که کسی اولا نتونه بانک را باز کنه دوما اگر کسی بانک را باز کرد هیچ چیزی از بانک نتونه گیرش بیاد یعنی اطلاعات داخل بانک به کد تبدیل بشه و غیره .
هر کسی که در این زمینه اطلاعاتی دارد اگر به ماهم یه چیزهای یاد بدهد خیلی ممنون می شم.

من در این پست ها فقط سه نفر را بیشتر آنلاین می بینم که جا دارد از این سه نفر که مرد مباح و سولجر و نونه فورس است کمال تشکر را بکنم که وقعا شرمنده کردن امیدوارم که در تمام مراحل زندگی موفق باشند

البته یه تعداد از دوستان هم نظراتی دادن که از اون ها هم کمال تشکر را دارم

سلام
ميتونيد داده ها را كد كنيد، با روالهايي كه براي اين منظور وجود دارد، يا از جايگزينهايي مثل EasyTable يا Accuracer يا ابزارهاي مشابه استفاده كنيد.
معمولا روالهاي كد كننده داراي امكان از كد خارج ساختن هم هستند كه وقتي اطلاعات را ميخوانيد آنها را از حالت كد خارج مي كنيد.

در باره این ابزار ها اگر کمی توضیح بدید خیلی ممنون می شم

Accuracer Easy Table

مشخصات این ابزار ها
نحوه کار کردن این ابزار ها ( از چه روشی استفاده می کنند (نحوه کد کردن ))

سلام
كار كردن باهاشون ساده است، معمولا به همراه مثال هستند.
چند تا كامپوننت مثل Table و ... اضافه ميكنند كه اونها را روي فرم قرار ميدهيد و بقيه كارها هم مثل همين چيزي است كه الان انجام ميدهيد.
اين سايت را ببينيد :

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دوست گرامی من زبان انگلیسی بلد نیستم اگر ممکنه سایت های فارسی معرفی کنید
و یا این که خودتان کمی توضیح بدهید

من یک دفتر تلفن نوشتم که در نوع خودش بینظر است از فایل استفاده کردم نه از بانک در این برنامه من از یک تابع برای کد کردن داده ها استفاده کردم و از یک تابع دیگر برای باز کردن این کد استفاده کردم این برنامه در کل به نظر من خوبه اگر می شده یه فضائی برای آپلودش پیدا کنم آپلود می کردم و شما دوستان نظرتون را در باره این برنامه به من می گفتید خیلی بهتر می شد من در بانک هر کاری کردم نشد که داده ها را به کد تبدیل کنم یعنی داده ها را به کد تبدیل کنم و در بانک ذخیره کنم بعد این داده ها را از کد خارج کنم و دوباره به نمایش بگذارم

سلام
براي معرفي سايت فارسي بايد چند سالي صبر كنيد!
نميخوام باعث دلسرديتون بشم ولي استفاده از فايل براي دفترچه تلفن از دوران رنسانس به اين طرف ديگر مرسوم نيست و بانكهاي اطلاعاتي جايگزين آن شده است!
خب فعلا كه اطلاعات را كد كرديد و مشكلي نداريد، قصد داريد اطلاعات دفترچه تلفن را در بانك ذخيره كنيد يا فايل؟
الان با معرفي و ارسال يك كامپوننت مشكل شما حل ميشود؟

نميخوام باعث دلسرديتون بشم ولي استفاده از فايل براي دفترچه تلفن از دوران رنسانس به اين طرف ديگر مرسوم نيست و بانكهاي اطلاعاتي جايگزين آن شده است!
خب فعلا كه اطلاعات را كد كرديد و مشكلي نداريد، قصد داريد اطلاعات دفترچه تلفن را در بانك ذخيره كنيد يا فايل؟
الان با معرفي و ارسال يك كامپوننت مشكل شما حل ميشود؟[/quote]


دوست گرامی من می خوام همان کاری که در فایل ( کد کردن و باز کردن کد) انجام می دم را در بانک هم انجام بدم یعنی داده های درون بانک را با یک تابع به کد تبدیل کنم و با یک تابع دیگر آن را از کد خارج کنم طوری که در برنامه و داده ها هیچ مدخلی وارد نشود

نقل قول:

---

نميخوام باعث دلسرديتون بشم ولي استفاده از فايل براي دفترچه تلفن از دوران رنسانس به اين طرف ديگر مرسوم نيست و بانكهاي اطلاعاتي جايگزين آن شده است!
خب فعلا كه اطلاعات را كد كرديد و مشكلي نداريد، قصد داريد اطلاعات دفترچه تلفن را در بانك ذخيره كنيد يا فايل؟
الان با معرفي و ارسال يك كامپوننت مشكل شما حل ميشود؟

---

دوست گرامی من می خوام همان کاری که در فایل ( کد کردن و باز کردن کد) انجام می دم را در بانک هم انجام بدم یعنی داده های درون بانک را با یک تابع به کد تبدیل کنم و با یک تابع دیگر آن را از کد خارج کنم طوری که در برنامه و داده ها هیچ مدخلی وارد نشود

سلام
فكر كنم تا اين تاپيك به نتيجه برسه يه 30-40 صفحه اي پر بشه!
شما چطور فايل را كد ميكنيد؟
براي ديتا بيس هم چون معمولا فيلدها از نوع Text‌هستند به راحتي ميتوانيد مقدار آنها را كد كنيد.

اين هم يك روش براي فايل و رشته :

کد:

---

unit EZCrypt;

interface

uses
  Windows, Classes;

type
  TWordTriple = array[0..2] of Word;

function FileEncrypt(InFile, OutFile: string; Key: TWordTriple): boolean;
function FileDecrypt(InFile, OutFile: string; Key: TWordTriple): boolean;
function TextEncrypt(const s: string; Key: TWordTriple): string;
function TextDecrypt(const s: string; Key: TWordTriple): string;
function MemoryEncrypt(Src: Pointer; SrcSize: Cardinal; Target: Pointer;
  TargetSize: Cardinal; Key: TWordTriple): boolean;
function MemoryDecrypt(Src: Pointer; SrcSize: Cardinal; Target: Pointer;
  TargetSize: Cardinal; Key: TWordTriple): boolean;

implementation

function MemoryEncrypt(Src: Pointer; SrcSize: Cardinal; Target: Pointer;
  TargetSize: Cardinal; Key: TWordTriple): boolean;
var
  pIn, pOut: ^byte;
  i: Cardinal;
begin
  if SrcSize = TargetSize then
  begin
    pIn := Src;
    pOut := Target;
    for i := 1 to SrcSize do
    begin
      pOut^ := pIn^ xor (Key[2] shr 8);
      Key[2] := Byte(pIn^ + Key[2]) * Key[0] + Key[1];
      inc(pIn);
      inc(pOut);
    end;
    Result := True;
  end
  else
    Result := False;
end;

function MemoryDecrypt(Src: Pointer; SrcSize: Cardinal; Target: Pointer;
  TargetSize: Cardinal; Key: TWordTriple): boolean;
var
  pIn, pOut: ^byte;
  i: Cardinal;
begin
  if SrcSize = TargetSize then
  begin
    pIn := Src;
    pOut := Target;
    for i := 1 to SrcSize do
    begin
      pOut^ := pIn^ xor (Key[2] shr 8);
      Key[2] := byte(pOut^ + Key[2]) * Key[0] + Key[1];
      inc(pIn);
      inc(pOut);
    end;
    Result := True;
  end
  else
    Result := False;
end;

function TextCrypt(const s: string; Key: TWordTriple; Encrypt: Boolean): string;
var
  bOK: Boolean;
begin
  SetLength(Result, Length(s));
  if Encrypt then
    bOK := MemoryEncrypt(PChar(s), Length(s), PChar(Result), Length(Result), Key)
  else
    bOK := MemoryDecrypt(PChar(s), Length(s), PChar(Result), Length(Result), Key);
  if not bOK then
    Result := '';
end;

function FileCrypt(InFile, OutFile: string; Key: TWordTriple; Encrypt: Boolean):
  boolean;
var
  MIn, MOut: TMemoryStream;
begin
  MIn := TMemoryStream.Create;
  MOut := TMemoryStream.Create;
  try
    MIn.LoadFromFile(InFile);
    MOut.SetSize(MIn.Size);
    if Encrypt then
      Result := MemoryEncrypt(MIn.Memory, MIn.Size, MOut.Memory, MOut.Size, Key)
    else
      Result := MemoryDecrypt(MIn.Memory, MIn.Size, MOut.Memory, MOut.Size, Key);
    MOut.SaveToFile(OutFile);
  finally
    MOut.Free;
    MIn.Free;
  end;
end;

function TextEncrypt(const s: string; Key: TWordTriple): string;
begin
  Result := TextCrypt(s, Key, True);
end;

function TextDecrypt(const s: string; Key: TWordTriple): string;
begin
  Result := TextCrypt(s, Key, False);
end;

function FileEncrypt(InFile, OutFile: string; Key: TWordTriple): boolean;
begin
  Result := FileCrypt(InFile, OutFile, Key, True);
end;

function FileDecrypt(InFile, OutFile: string; Key: TWordTriple): boolean;
begin
  Result := FileCrypt(InFile, OutFile, Key, False);
end;

end.

---

فايل را با يك نام مثلا EZCrypt.pas ذخيره كنيد. بعد در پروژه در قسمت Uses نام فايل را اضافه كنيد. بعد مي توانيد از توابع آن استفاده كنيد، يا مستقيما اين توابع را در پروژه خود كپي كنيد.

سلام

با اینکه بارها بحث شده و نتیجه نداشته. این دفعه داریم به نتایج جالبی دست می یابیم.

من توی زبان تحت وب که کار میکنم یه چیز واقعآ جالب پیدا کردم. که بهش میگن Hash

وقتی یه اطلاعاتی هش میشن به هیچ عنوان قابل برگشت نیستن. و فقط ورودی رو هش مکنن و با اطلاعات

بانک که هش شده هستن مقایسه میشن. اما این روش فقط برای پسورد بکار میره.

برای کد کردن که نانفروس گفتن. اما من یه روش دارم که برای یه برنامه خیلی خیلی قدیمی بکار برده بودم

که حالا میتونید دانلودش کنید!

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


این هم الگوریتم کد کردم. دیگه UnCode رو خودتون بنویسید :D

کد:

---

var
    s:string;
    i:integer;
begin
    s:=memo1.Text;
    for i:=1 to Length(s) do
      S[i]:=chr(ord(s[i])+1);
    memo1.Text:=S;

---

میدونم خیلی بدرد نمیخوره اما بالاخره ممکنه بدرد کسی بخوره.

موفق باشید

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

سوال : وقتی که بانک را کد کردیم اگر بخواهیم اطلاعات بانک را از کد خارج کنیم محتوای بانک نباید تغییر کند چون اگر با خارج کردن اطلاعات از کد محتوای بانک از کد خارج شود به راحتی می توان این بانک را کپی کرد و محتوای واقعی را دید آیا راهی برای این کار وجود دارد؟

سلام

باشه. اما اگر میشه در پست هایت دست خویش را کلید Enter آشنا کن.

مثل این که کسی نمی خواد ادامه این بحث ها را با هم انجام بدیم
چرا جواب نمی دید؟
خسته شدید؟
من منتظر هستم اگر از این پست خسته شدید بگید دیگر ادامه ندیم من هم سوالی نمی پرسم
منتظر شما هستم .

نقل قول:

---

نوشته شده توسط as13851365 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مثل این که کسی نمی خواد ادامه این بحث ها را با هم انجام بدیم
چرا جواب نمی دید؟
خسته شدید؟
من منتظر هستم اگر از این پست خسته شدید بگید دیگر ادامه ندیم من هم سوالی نمی پرسم
منتظر شما هستم .

---

سلام
چي را بايد ادامه بدهيم؟!
گفتيم صبر كنيم شما هم باشيد دور هم گفتگو كنيم!
اگر هنوز مشكل حل نشده بگيد. وگر ميشه نتيجه گرفت بحث به نتيجه رسيده است.

دوستان گرامی سلام.

این پست جنبه آموزشی دارد اگر کسی هم چیزی در باره امنیت برنامه با پسورد کاربر دارد می تونه بگه تا همه بتونیم از این اطلاعات استفاده کنیم

یه سوال دارم ؟
چطور به برنامه پسورد بدیم ؟ یعنی این که کاربر بتونه با نام و پسورد خودش به برنامه وارد بشه ؟ در کل برنامه مختص کسی باشه که پسورد برنامه را می دونه ؟

اگر در یک فایل جداگانه پسورد را ذخیره کنیم هر کسی می تونه این فایل را پاک کنه و برنامه را اجرا کنه .

من یه پیشنهاد دارم این که اگر شما برنامه ای نوشتید که این برنامه اگر کاربر بخواهد به برنامه پسورد بدهد قبول کند باید راههای زیر را دنبال کنید
1) در برنامه شرطی بزارید که اگر کاربر پسوردی به برنامه داده باشد برنامه ابتدا پسورد را بخواهد بعد اجرا شود
2) اگر کاربر پسورد برنامه را پاک کرد برنامه در هنگام اجرا یک راست بره اجرا بشه
3) اگر برنامه پسورد داشت و کسی فایل برنامه را که پسورد را نگه می دارد پاک کرد برنامه متوجه بشه و دوباره پسورد را از کاربر بپرسه
4) اگر کاربر برنامه را جای دیگری اجرا کرد و پسوردی به برنامه داد دوباره این پسورد را برای برنامه ای دیگر برد این برنامه متوجه بشه که پسورد حقیقی این نیست
.
.
.
.

خلاصه این که این گونه برنامه ها هرگز به راحتی پسورد را لو نمی دن

سلام
2 تا كامپوننت است كه پيشنهاد مي كنم يه نگاهي بهشون بيندازيد :
1- Tusers Security Component
2- TMS Security System

به هیچ کامپوننتی نمی شه اعتماد کرد .
چون یکی دیگه می تونه با این کامپوننت برنامه شما را تغییر دهد

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