[noway]

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

[ممدوح]

اذا كان الهدف عد وجود كلمة السر فاتبع هذه الخطوات
إذهب إلى خصائص المشروع وتحديدا 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 وضع فيه الكود

[noway]

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