تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الرجاء المساعدة : كيف اخفى او اشفر كلمة السر لقاعدة بيانات من ملف App.config
#1
Exclamation 
كيف اخفى او اشفر كلمة السر لقاعدة بيانات من ملف App.config؟
الرجاء المساعدة
الرد }}}}
تم الشكر بواسطة:
#2
اذا كان الهدف عد وجود كلمة السر فاتبع هذه الخطوات
إذهب إلى خصائص المشروع وتحديدا 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 , ابراهيم النعيمي
#3
الكود تمام
الف شكر على الشرح و التوضيح
ربـــنـــــــا يعوضك على تعبك معايا
الرد }}}}
تم الشكر بواسطة: ممدوح


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اضافة الصور لقاعدة البيانات SQL m.farag87 0 8 منذ 2 ساعة مضت
آخر رد: m.farag87
  [VB.NET] قاعدة بيانات اكسس hglogtd 8 136 14-10-17, 03:38 PM
آخر رد: hglogtd
  المساعدة في كود بحث وفلتر khaled12345 6 135 14-10-17, 05:36 AM
آخر رد: khaled12345
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 42 13-10-17, 06:39 PM
آخر رد: e-coder
  مساعده بفكره بناء جدول بيانات ( اداره رواتب الموظفين) Rabeea Qbaha 4 124 09-10-17, 12:22 AM
آخر رد: Amir_alzubidy
  كيف الاتصال بقاعدة بيانات SQLite أحمد إبراهيم سعد 4 139 04-10-17, 12:22 PM
آخر رد: أحمد إبراهيم سعد
  [سؤال] طلب كود لتكرار كلمة في TextBox vbb6 3 91 01-10-17, 04:11 PM
آخر رد: vbb6
  [VB.NET] مشكلة ظهور جدولين من قاعدة بيانات أكسس في أداة DataGridView Waleed Al-Khamesy 7 148 30-09-17, 11:50 PM
آخر رد: Abu Ehab
  مشكله تكرار اول قيمه اضيقت لقاعدة البيانات !! Rabeea Qbaha 2 80 29-09-17, 04:51 AM
آخر رد: Rabeea Qbaha
  عايز اعمل حاجة تخليني اعرف كام جهاز مشغل البرنامج ومواصفات الاجهزة ووالوصول لقاعدة ال hoshosgost@yahoo.com 2 113 28-09-17, 11:41 PM
آخر رد: مصمم الدوادمي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم