windows 8
New member
اليوم بأدن الله معى درس برمجي سنتعرف فيه على التالي بأدن الله :
كيفية التعامل معى الروجيستري في الـVb.net كيفية القرائة من الروجيستري واستخراج محتوى القيم المخزنة كيفية استغلال ماتعلمناه وتطبيقه في برنامج جميل ومهم. برمجة برنامج يقوم بأحضار كل محتويات برنامج No-Ip 
هده صورة لواجهة البرنامجالمتحصل عليه أثناء انتهاء الدرس :
أولا لنضع على الفورم الكائنات او الأدوات التالية ونرتبها مثل الصورة :
4 Label
4 صور صغيرة للتزيين
1 ListBox
الان نغير أسماء الأدوات كما في الصورة ولك حرية التعديل .
الان نأتي الى الأكواد
نضغط على Label الخروج ونكتب :
()Close
ويعني غلق البرنامج
والأن نذهب الى Lable عن المبرمج نضغط مرتين ونكتب :
("هنا أكتب ما تشاء عن نفسك او لغة البرمجة المستعملة ما تشاء")Msgbox
وهادا الأمر خاص بأضهار رسالة للمستخدم محتواها ما تكتبه انت
مثلا أنا كتبت :
("MsgBox("Made Programing By M!I3A_H4CK3R & Visual Basic Express Edition
والأن نأتي الى Label التي تحمل أسم تفريغ ونكتب في السورس كود الخاص بها :
()ListBox1.Items.Clear
وهادا الأمر يقوم بتفريغ او حدف كل محتوى ListBox
والأن نأتي الى زر النسخ ونكتب :
(My.Computer.Clipboard.SetText(ListBox1.Text
وهادا الامر خاص بنسخ كل محتوى الكائن ListBox
والأن الى الزر الرئيسي في البرنامج وهوا الخاص بالتعامل معى الروجيستري :
أولا يجب أن نصعد الى أعلى صفحة السورس ونستدعي هده المكتبة الجاهزة للتعامل معى الروجيستري :
Imports Microsoft.Win32
من دونها لن تستطيع التعامل معى الروجيستري بهده الطريقة وسيخرج لك رسالة خطأ
تم نتابع
مبرمج الهاكر
_Dim reg As RegistryKey = Registry.LocalMachine.OpenSubKey
("SOFTWARE\Vitalwerks\DUC", True)
ListBox1.Items.Add("")
ListBox1.Items.Add("------------------ اسم الحساب ------------------")
ListBox1.Items.Add("")
ListBox1.Items.Add(reg.GetValue("Hosts"))
ListBox1.Items.Add("")
ListBox1.Items.Add("----------------- Email الحساب -----------------")
ListBox1.Items.Add("")
ListBox1.Items.Add(reg.GetValue("Username"))
ListBox1.Items.Add("")
ListBox1.Items.Add("------------------ الباسورد -------------------")
ListBox1.Items.Add("")
ListBox1.Items.Add(reg.GetValue("Password"))
ListBox1.Items.Add("")
ListBox1.Items.Add("------------- لفك تشفير الباسوورد --------------")
ListBox1.Items.Add("")
ListBox1.Items.Add("http://rumkin.com/tools/compression/base64.php")
ListBox1.Items.Add("")
ListBox1.Items.Add("-----------------------------------------------"
("SOFTWARE\Vitalwerks\DUC", True)
ListBox1.Items.Add("")
ListBox1.Items.Add("------------------ اسم الحساب ------------------")
ListBox1.Items.Add("")
ListBox1.Items.Add(reg.GetValue("Hosts"))
ListBox1.Items.Add("")
ListBox1.Items.Add("----------------- Email الحساب -----------------")
ListBox1.Items.Add("")
ListBox1.Items.Add(reg.GetValue("Username"))
ListBox1.Items.Add("")
ListBox1.Items.Add("------------------ الباسورد -------------------")
ListBox1.Items.Add("")
ListBox1.Items.Add(reg.GetValue("Password"))
ListBox1.Items.Add("")
ListBox1.Items.Add("------------- لفك تشفير الباسوورد --------------")
ListBox1.Items.Add("")
ListBox1.Items.Add("http://rumkin.com/tools/compression/base64.php")
ListBox1.Items.Add("")
ListBox1.Items.Add("-----------------------------------------------"
والأن نقوم بحفض المشروع كاملا وذلك بالضغط على Save All
الأن أضغط على الزر F5 من الكيبورد اي لوحة المفاتيح لتجربة البرنامج
ومبروك تم بنجاح وهاذا الناتج .
الأن معى الشرح الكود الأخير والدي يتعامل معى الروجيستري :
Dim reg As RegistryKey = Registry.LocalMachine.OpenSubKey
("SOFTWARE\Vitalwerks\DUC", True
عرفنا متغير جديد من نوع روجيستري وأعطيناه اسم Reg والمسار الذي نريد ان نعمل فيه.
هنا السطر الثاني والثالث نفس العمل :
ListBox1.Items.Add("")
وها امر مقصود بيه أضف الكتابة التي بين علامتي التنصيص الى الأدات ListBox
السطرالرابع وهوا كيفية القرائة من الروجيستري :
ListBox1.Items.Add(reg.GetValue("Hosts"))
هنا قمنا بأمر المتغير الذي عرفناه مسبقا وهوا Reg بقرائة محتوى القيمة Hosts الموجودة في الروجيستري
وطباعة محتواها في الأدات ListBox
باقي الأكواد هيا نفسها التي شرحتها الأن ولا تحتاج الى أعادة
فقط غيرنا كل مرة اسم القيمة الموجودة في الروجيستري وهيا التي تحمل ما نحتاجه مثلا :
Hosts = أسم حساب No-Ip
Password = هيا التي تحمل الباسوور او كلمة السر .
+
كلمة السر تجدها مشفرة بخورزمية Base64
ولكسرها بسرعة وضعت لكم رابط Index بسيط لفك تشفيرها :
http://rumkin.com/tools/compression/base64.php
الى هنا نصل الى نهاية الموضوع أرجو ان افيد ولو بالقليل
لا تحرمونا من كلمة شكر تنير الموضوع
في أمان الله ودمتم في حفض الله .
التعديل الأخير بواسطة المشرف:
