منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الرجاء المساعدة : كيف اخفى او اشفر كلمة السر لقاعدة بيانات من ملف App.config - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الرجاء المساعدة : كيف اخفى او اشفر كلمة السر لقاعدة بيانات من ملف App.config (/showthread.php?tid=17819)

الرجاء المساعدة : كيف اخفى او اشفر كلمة السر لقاعدة بيانات من ملف App.config - noway - 28-10-16

كيف اخفى او اشفر كلمة السر لقاعدة بيانات من ملف App.config؟
الرجاء المساعدة

RE: الرجاء المساعدة : كيف اخفى او اشفر كلمة السر لقاعدة بيانات من ملف App.config - ممدوح - 28-10-16

اذا كان الهدف عد وجود كلمة السر فاتبع هذه الخطوات
إذهب إلى خصائص المشروع وتحديدا Settings
في سطر الاتصال Database1ConnectionString قم بالتالي
غير الخاصية Type من (connectionStirng) إلى String
الخاصية Scope من Application إلى User
احذف النص الموجود في Value

الان يمكن أن تضع نص الاتصال بالكود قبل أي سطر في الحدث Form1_Load على سبيل المثال
وبالطريقة التي تريدها مثل
كود :
My.Settings.Database1ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Jet OLEDB:Database Password=password;"

وإذا أردت تشفيره ب Base64 يمكنك استخدام هذه الطريقة لفك التشفير أن تعيين نص الاتصال
كود :
Dim EncryptedConnectionString As String = "UHJvdmlkZXI9TWljcm9zb2Z0LkFDRS5PTEVEQi4xMi4wO0RhdGEgU291cmNlPXxEYXRhRGlyZWN0b3J5fFxEYXRhYmFzZTEuYWNjZGI7SmV0IE9MRURCOkRhdGFiYXNlIFBhc3N3b3JkPXBhc3N3b3JkOw=="
Dim DecryptedConnectionString As String = System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(EncryptedConnectionString))
My.Settings.Database1ConnectionString = DecryptedConnectionString

وطريقة تحويله إلى نص مشفر ب Base64 هي كالتالي
كود :
Dim ConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Jet OLEDB:Database Password=password;"
Dim EncryptedConnectionString As String = Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(ConnectionString))
Me.TextBox1.Text = EncryptedConnectionString

وإذا أردت طريقة أكثر تقدما بدلاً من استخدام الحدث Form1_Load استخدم الحدث MyApplication_Startup لأحداث المشروع كالتالي
من صفحة خصائص المشروع وتحديدا Application تجد في آخر الصفحة زر اسمه View Application Events تجده يفتح لك صفحة كود
في الأعلى من قائمة الكود حدد (MyApplication Events) وعلى يمينها اختر MyApplication_Startup وضع فيه الكود

RE: الرجاء المساعدة : كيف اخفى او اشفر كلمة السر لقاعدة بيانات من ملف App.config - noway - 28-10-16

الكود تمام
الف شكر على الشرح و التوضيح
ربـــنـــــــا يعوضك على تعبك معايا