[ طريقة ] اداة مجانية بديلة عن spyTheSpy من برمجتي

تم تحميل الصفحة في 1,3171972 ثانية
اداة مجانية بديلة عن spyTheSpy من برمجتي
إنضم
5 أغسطس 2011
المشاركات
385
الإعجابات
296
النقاط
63
الإقامة
0x400000
بعد تجريب طريقة التخطي على جهازي وصلت الى النتيجة التالية
التخطي يعمل فقط بتغيير البايت +4 بدون البايت +D
عندما اوقفت السكان عاد البايتان الى حالة الـ 0 اي False
مما قد يدل على ان التخطي يوقف السكان في البرنامج
 
إنضم
8 سبتمبر 2013
المشاركات
7,316
الإعجابات
10,913
النقاط
168
الإقامة
1.5
بعد تجريب طريقة التخطي على جهازي وصلت الى النتيجة التالية
التخطي يعمل فقط بتغيير البايت +4 بدون البايت +D
عندما اوقفت السكان عاد البايتان الى حالة الـ 0 اي False
مما قد يدل على ان التخطي يوقف السكان في البرنامج
اخي اتمنى تخطي البرنامج بدون التأثير على عمله (تجميد او قتل او ايقاف الفحص اصلاً)
في الحالة العادية انت تخطيته بصراحة و لكن يمكن قتل او تجميد العملية لا داعي للذاكرة ..
لكن التخطي الذي اريده هو تخطي رن تايم يعني البرنامج شغال و ما يكشف ملفك ..
انت ابدعت و الله بس هذا التخطي الذي يفيدني في التطوير
وهل يا ترى طاقم الفحص قام بفحص الاداة اتمنى عدم التلغيم
اطمئن اخي الاداة ليست ملغمة .. اذا لم تملك الثقة في ناشرها اتمنى منك عدم استخدامها حتى تجد احد ذو خبرة افضل منك في فحص الاداة ..
محبتي ♥
هذي أخر تحديث للأداة؟ لإني ببداً بالتخطي
خلال ساعتين ان شاء الله اصحح الخطأ و اعلمك بذلك اخي .. اعتذر و الله لكن ايامي سيئة نوعاً ما هذه الفترة ..
 
إنضم
8 سبتمبر 2013
المشاركات
7,316
الإعجابات
10,913
النقاط
168
الإقامة
1.5
بعد تجريب طريقة التخطي على جهازي وصلت الى النتيجة التالية
التخطي يعمل فقط بتغيير البايت +4 بدون البايت +D
عندما اوقفت السكان عاد البايتان الى حالة الـ 0 اي False
مما قد يدل على ان التخطي يوقف السكان في البرنامج
تم تصحيح مسئلة حفظ المسارات الحمد لله ..
حالياً انا مكتفي بهذه النسخة فقط اريد ان اتفوق على مشاكل SpyTheSpy ..
كل التخطيات التي تخص البرنامج (بدون الذاكرة) سوف احاول التصدي لها في اصدار البرنامج الثاني الذي سوف يكون افضل من هذا الاصدار بإذن الله
حالياً وواحد فقط الي تخطى البرنامج هو الاخ بشار .. تخطاه بطريقتين او 3 اظن .. و ينتظر النسخة الثانية لكي يتخطاها ههه ..

تخطي الذاكرة ايضاً يعتبر تخطي من الاخ اسلام و الاخ MSF لكن قد لا أستطيع التصدي له بسهولة لذلك سأركز على بشار اكثر لان طرقه استطيع التعامل معها برمجياً (او هذا ما اعتقده ههه)

تم طرح النسخة المصححة على Github
3rdEye 0.1.2
 
إنضم
8 سبتمبر 2013
المشاركات
7,316
الإعجابات
10,913
النقاط
168
الإقامة
1.5
جميل جداَ اخي .. هل الطريقة تشمل ايقاف البرنامج ثم النسخ الملف ثم اعادة تشغيله مثلاً..؟
لاني ذكرت عدم التأثير على الية البرنامج (تجميد -ايقاف-تعطيل خواص)... و اذا ذاكرة لا مشكلة ههه ما اقدر اعمل معاه شي حالياً
 

Tiger_Risky

Beginner Developer
rank
إنضم
9 ديسمبر 2018
المشاركات
37
الإعجابات
29
النقاط
18
العمر
29
جميل جداَ اخي .. هل الطريقة تشمل ايقاف البرنامج ثم النسخ الملف ثم اعادة تشغيله مثلاً..؟
لاني ذكرت عدم التأثير على الية البرنامج (تجميد -ايقاف-تعطيل خواص)... و اذا ذاكرة لا مشكلة ههه ما اقدر اعمل معاه شي حالياً
ليس تجميد ولا إيقاف ولا تعطيل

نسخ وحذف


كود:
Imports System.IO

Module Module1

    Sub Main()

        MsgBox("Tiger_Risky")

        Dim path As String = "C:\Users\FUJITSU\Desktop\TG"
        'c(path)
        Dim th As New Threading.Thread(AddressOf K)
        th.Start(path)


    End Sub
    Private Sub c(ByVal path As String)
        Dim f As Object = CreateObject("shell.application")
        For Each i In f.Windows
            If i.document.folder.self.Path = path Then
                i.Quit()
            End If
        Next
    End Sub
    Private Sub K(ByVal path As String)
        Dim stu As Boolean = R(path)
        If stu Then
0:
            Try
                If Not System.IO.Directory.Exists(path) Then
                    System.IO.Directory.CreateDirectory(path)
                    Threading.Thread.Sleep(1)
                    GoTo 0
                Else
                    IO.File.Copy(System.Windows.Forms.Application.ExecutablePath, path & "\test.exe", True)
                    MsgBox(" A M E E R ^_* ? ")
                End If
            Catch ex As System.UnauthorizedAccessException
                Threading.Thread.Sleep(1)
                GoTo 0
            End Try
        End If
    End Sub
    Private Function R(ByVal p As String) As Boolean
        If System.IO.Directory.Exists(p) Then
            Dim dir As New System.IO.DirectoryInfo(p)
            Dim nameFolder As String = dir.Name
            Dim fullname As String = dir.FullName
            Dim startPath As String = System.IO.Directory.GetParent(dir.FullName).ToString
1:
            Try
                System.IO.Directory.Delete(fullname, True)
            Catch ex As System.UnauthorizedAccessException

                Threading.Thread.Sleep(1)
                GoTo 1
            End Try

            Return True
        End If
        Return False
    End Function
End Module
 
إنضم
8 سبتمبر 2013
المشاركات
7,316
الإعجابات
10,913
النقاط
168
الإقامة
1.5
ليس تجميد ولا إيقاف ولا تعطيل

نسخ وحذف


كود:
Imports System.IO

Module Module1

    Sub Main()

        MsgBox("Tiger_Risky")

        Dim path As String = "C:\Users\FUJITSU\Desktop\TG"
        'c(path)
        Dim th As New Threading.Thread(AddressOf K)
        th.Start(path)


    End Sub
    Private Sub c(ByVal path As String)
        Dim f As Object = CreateObject("shell.application")
        For Each i In f.Windows
            If i.document.folder.self.Path = path Then
                i.Quit()
            End If
        Next
    End Sub
    Private Sub K(ByVal path As String)
        Dim stu As Boolean = R(path)
        If stu Then
0:
            Try
                If Not System.IO.Directory.Exists(path) Then
                    System.IO.Directory.CreateDirectory(path)
                    Threading.Thread.Sleep(1)
                    GoTo 0
                Else
                    IO.File.Copy(System.Windows.Forms.Application.ExecutablePath, path & "\test.exe", True)
                    MsgBox(" A M E E R ^_* ? ")
                End If
            Catch ex As System.UnauthorizedAccessException
                Threading.Thread.Sleep(1)
                GoTo 0
            End Try
        End If
    End Sub
    Private Function R(ByVal p As String) As Boolean
        If System.IO.Directory.Exists(p) Then
            Dim dir As New System.IO.DirectoryInfo(p)
            Dim nameFolder As String = dir.Name
            Dim fullname As String = dir.FullName
            Dim startPath As String = System.IO.Directory.GetParent(dir.FullName).ToString
1:
            Try
                System.IO.Directory.Delete(fullname, True)
            Catch ex As System.UnauthorizedAccessException

                Threading.Thread.Sleep(1)
                GoTo 1
            End Try

            Return True
        End If
        Return False
    End Function
End Module
الله غريب فعلا .. بكل الاحوال كفو .. اشكرك جدا على ارفاق السورس اخي ما قصرت والله .. بعدين اشوف المشكلة وين..
طلب : جرب باقي الاصداراات.. هي تقبل مسار واحد لا تحط اكثر من مسار وامورك تما م ..
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 1 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل