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

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

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

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

Tiger_Risky

Beginner Developer
rank
إنضم
9 ديسمبر 2018
المشاركات
36
الإعجابات
26
النقاط
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,310
الإعجابات
10,904
النقاط
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

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