كيفية تشفير البيانات في قاعدة البيانات؟

الحل في تشفير البيانات ثم بتبعثها الى قاعدة البيانات

وعند الحاجة اليها تطلب البيانات المشفرة ثم تقوم بفك تشفيرها

اذا لم تتعامل مع التشفير فاليك المثال البسيط التالي ويقوم بتغيير الاسكي للاحرف بقيمة واحد

قم باضافة command1 , command2 , text1 , text2

ثم الصق الكود التالي :

Private Sub Command1_Click()
Text2.text = encr(Text1.text)
End Sub

Private Sub Command2_Click()
Text1.text = unencr(Text2.text)
End Sub

Private Function encr(SText As String)
encr = ""
For i = 1 To Len(SText)
    encr = encr & Chr(Asc(Mid(SText, i, 1)) + 1)
Next i
End Function

Private Function unencr(SText As String)
unencr = ""
For i = 1 To Len(SText)
    unencr = unencr & Chr(Asc(Mid(SText, i, 1)) - 1)
Next i
End Function

واالسلام عليكم

السلام عليكم ورحمة الله وبركاته

أخي العزيز البريشي، شكراً جزيلاً على الرد السريع ولكن ما أطلبه هو

أنا عندي قاعدة بيانات جاهزة بالبيانات وعايز أشفر البيانات التي بها علشان لو حد فتحها ميعرفش يقرا أى بيانات منها ،

وفي نفس الوقت أتعامل مع البيانات عن طريق الفيجوال بيسيك

السلام عليكم ورحمة الله وبركاته

يا ترى مفيش حد عنده إجابه

اقتباس

الحل في تشفير البيانات ثم بتبعثها الى قاعدة البيانات

وعند الحاجة اليها تطلب البيانات المشفرة ثم تقوم بفك تشفيرها

أعطاك الحل ! و بدك أكثر من هيك توضيح ؟

إذا القاعده موجود فيها البيانات من الأصل إعمل برنامج بناءا على الأسس إللي أعطاك إياها الأخ البريشي وقم بتشفير كل محتوياتها :wacko:

السلام عليكم و رحمة الله

فى البداية شكرا للاخ البريشى

الاخ الذى قام بطرح السؤال يريد تشفير ملف موجود بالفعل

جرب الكود التالى الذى يتعامل مع النظام bainary و عن طريقه يمكنك تشفير اى ملف "لا يقتصر الامر على قواعد البيانات"

و ان شاء الله يكون مفيد .

قم بانشاء ملف تكست على ال c

Open "c:\file.txt" For Binary As #1

Get #1, 1, a

Get #1, LOF(1), b

Put #1, 1, b

Put #1, LOF(1), a

Close

لفك التشفير استخدم نفس الكود و يمكنك تغيير القيم لتصل اى مراحل اقوى من التشفير بس اوعى تنسى اللى انت عملته علشان لو نسيت مستحيل هتفتح الملف تانى :o

يعنى ايه انذار اللى موجودة تحت اسمى على اليمين معلش ياجماعة انا مش خبير منتديات ارجو التوضيح

بسم الله الرحمن الرحيم

AhmedSamak كتب:

فى البداية شكرا للاخ البريشى

الاخ الذى قام بطرح السؤال يريد تشفير ملف موجود بالفعل

جرب الكود التالى الذى يتعامل مع النظام bainary و عن طريقه يمكنك تشفير اى ملف "لا يقتصر الامر على قواعد البيانات"

و ان شاء الله يكون مفيد .

قم بانشاء ملف تكست على ال c

Open "c:\file.txt" For Binary As #1

Get #1, 1, a

Get #1, LOF(1), b

Put #1, 1, b

Put #1, LOF(1), a

Close

لفك التشفير استخدم نفس الكود و يمكنك تغيير القيم لتصل اى مراحل اقوى من التشفير بس اوعى تنسى اللى انت عملته علشان لو نسيت مستحيل هتفتح الملف تانى :o

←

لا شكر على واجب

بالنسبة لتشفير الملفات فيجب التشفير بنظام bainary فعلا

لكن الشيفرة التي كتبتها تقلب فقط الحرف الأول بدل الأخير وهذا لا يفيد كثيرا والأفضل قلب جميع أحرف الملف . أو الزيادة على قيمتها حسب معادلة معينة ... الخ

بالنسبة لقلب الملف كاملا هذا تصحيح للشيفرة السابقة :

Dim a As Byte
Dim b As Byte
Open "c:\file.txt" For Binary As #1
s = LOF(1)

For i = 1 To s \ 2
    Get #1, i, a
    Get #1, s - i + 1, b
    Put #1, i, b
    Put #1, s - i + 1, a
Next i
Close #1

أما بالنسبة للإنذار : لاحظ أن النسبة صفر بالمئة احمد الله يعني . علما أن كل عضو يدخل الى المنتدى تظهر له هذه الاشارة ولا تظهر لغيره .

جرب ادخل الى مشاركتك بدون تسجيل ولاحظ ذلك

على فكرة أخ AhmedSamak موقع سؤالك خطأ ( يفترض أن يكون في المساعدة في استخدام المنتديات و الموقع

تحياتي لك وللجميع

السلام عليكم ورحمة الله وبركاته