منتديات روكشا     َولَوْلَا إِذْ دَخَلْتَ جَنَّتَكَ قُلْتَ مَا شَاءَ اللَّهُ لَا قُوَّةَ إِلَّا بِاللَّه

الرئيسية |  التسجيل  |  مركز رفع الملفات  |  الاتصال بنا  

 



العودة   منتديات روكشا > المنتدي التخصصي > قسم التصاميم والبرمجة والجرافيكس والميديا > انشاء وتصميم وبرمجة البرامج

الملاحظات

انشاء وتصميم وبرمجة البرامج برنامج الوورد اكسس اكسيل بوربوينت فيجوال بيسك برامج محاسبة برامج ادارة وتنظيم حسابات تنسيق الملفات

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 12-09-2018, 01:28 PM

الصورة الرمزية ابن الوليد

ابن الوليد

.:: ادارة المنتدي ::.

 
تاريخ التسجيل: Nov 2018
الدولة: مصر
المشاركات: 1,628
معدل تقييم المستوى: 10
ابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud of
إرسال رسالة عبر MSN إلى ابن الوليد إرسال رسالة عبر Yahoo إلى ابن الوليد إرسال رسالة عبر Skype إلى ابن الوليدابن الوليد غير متواجد حالياً
افتراضي حماية قاعدة البيانات برقم الهارد دسك

 

اعزائي الكرام في هذا المنتدى المبارك
السلام عليكم ورحمة الله وبركاته
بناء على رغبة الكثير من الاعضاء في معرفة طريقة حماية قاعدة البيانات برقم الهارد دسك فسنبدأ معا خطوه خطوه حتى يتمكن الجميع من فهم آلية طريقة الحماية ولن ابخل على اي شخص بأي معلومة مهما كانت في هذا الموضوع وإن شاء الله ان اصل بكم الى الاحتراف في هذا الموضوع وهذا بجهودكم وتفاعلكم معنا فعلى بركة الله نبدأ
سوف اقوم بتقسيم الموضوع الى ثلاثة اقسام
القسم الاول : كيف تتعرف على رقم الهارد دسك الخاص بك او الذي سوف تضع عليه قاعدة البيانات وتتم الحماية بواسطة الهارد دسك نفسه ومن ثم سوف نتعرف على الفرق بين الارقام العشرية والارقام السداسية العشرية ولن يطول بنا المقام فيها ولكن للمعلومية فقط وسيوضع مثالين لكل منهم لنعرف الفرق بين الارقام واخيرا سأضع الاكواد الخاصه بها .
القسم الثاني : سوف نزيد جرعة المعلومات وسنضيف تعليمات جديده الى الاكود السابقه وكلها عباره عن نماذج مفتوحه للجميع يمكن الاطلاع عليها وسنقوم بالنقاش والشرح لكل تعليمه اضافية للكود السابق
القسم الثالث : حماية جميع الوحدات النمطية برقم سري والغاء تفعيل مفتاح الشفت بواسطة الكود ثم عملية تشفير قاعدة البيانات كلها وزيادة في التعقيد سنجعلها بسيغة MDE فعلى بركة الله نبدأ
القسم الاول :
يمكنك التعرف على رقم الهارد دسك من خلال التالي
1. اذهب الى ابدأ
2. اختر تشغيل
3. اكتب في الحقل العبارة التالية CMD.EXE
4. سيظهر لك موجه الدوس ذو الشاشة السوداء في نهاية العبارة التي تراها اكتب \ CD
يعني اكتب C ثم D ثم السلاش المائل لليسار وهي عبارة معناها تغيير المجلد Change Dirctory
5. اضغط انتر من لوحة المفاتيح
6. سترى محث المشيرة قد اصبح \: C
7. اكتب الان الكلمة التالية VOL وتعني قيمة او رقم الهاردسك وانظر لرقم الهارد دسك الخاص بك
انظر الصورة

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

كود المبرمج 2003
كود:
' لمعرفة السيريال نمبر الخاص بالهاردسك 
 Dim obj_FSO As Object, obj_Drive As Object
 Set obj_FSO = CreateObject("Scripting.FileSystemObject")
 Set obj_Drive = obj_FSO.GetDrive("c:\")
 'MsgBox obj_Drive.SerialNumber
  SerialNumber = obj_Drive.SerialNumber
 Set obj_FSO = Nothing
 Set obj_Drive = Nothing
End Sub
اقتباس:
كود زهره لجميع محركات الاقراص فلوبي هارد دسك سيدي روم
كود:
'كود زهره رقم 1
'انشئ وحده نمطية جديده وضع فيها هذا الكود
'Insert this code to the module :
Declare Function GetVolumeInformation Lib "kernel32.dll" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long
'ضع هذا الكود في الوحدة النمطية للنموذج
'Insert the following code to your form:
Function GetSerialNumber(strDrive As String) As Long
Dim SerialNum As Long
Dim res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
res = GetVolumeInformation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
GetSerialNumber = SerialNum
End Function

كود:
'انشئ زر أمر في النموذج واعطه اسم 
'(Command1)
'وضع هذا الكود في حدث عند النقر
Private Sub Command1_Click()
'Replace 'c:\' with the drive you want to find his serial number
Call MsgBox(GetSerialNumber("c:\"))
End Sub
الكود رقم 2
كود:
'كود زهره رقم 2
'قم بإنشاء وحده نمطية جديده وضع فيها هذا الكود
Private Declare Function GetVolumeInformation Lib _
"kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long

'ضع هذا الكود في النموذج 
Function GetSerialNumber(strDrive As String) As Long
    Dim SerialNum As Long
    Dim Res As Long
    Dim Temp1 As String
    Dim Temp2 As String
    Temp1 = String$(255, Chr$(0))
    Temp2 = String$(255, Chr$(0))
    Res = GetVolumeInformation(strDrive, Temp1, _
    Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
    GetSerialNumber = SerialNum
End Function

'ضع هذا الكود في حدث عند التحميل للنموذج
Private Sub Form_Load()
MsgBox GetSerialNumber("C:\") 
End Sub
الملفات المرفقة
نوع الملف: rar hardsikN.rar‏ (45.0 كيلوبايت, المشاهدات 1)
__________________
رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
كود طريقة زرع أمر قاعدة بيانات فى لوحة تحكم المنتدى وحل مشكله ليست لديك صلاحية لتنفيذ استفسارات sql نور ركن تطوير وإدارة المنتديات العربية 3 04-02-2019 01:30 PM
برنامج تقسيم و تعديل الهارد MiniTool Partition Wizard10.2 ابن الوليد برامج الحاسب 1 12-05-2018 09:03 PM
برنامج أفضل 3 برامج تقوم بحماية الملفات برقم سري ابن الوليد برامج الحاسب 0 11-22-2018 01:28 PM

 

RSS RSS 2.0 XML MAP HTML

الساعة الآن 03:05 AM

نبذة عن المنتدى

روابط مفيدة

إعلانات نصية

روابط الموقع

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



Powered by vBulletin® Copyright ©2000 - 2019,