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

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

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    630
    الإعجابات المتلقاة:
    668
    نقاط الجائزة:
    93
    الإقامة:
    7
    [​IMG]

    #$

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


    هاذي احدى الطرق والخدع في تجاوز بعض الفاحصين
    والطريقة فكرتها : عندما تقوم ببرمجة تلغيمه وتحميها من الكسر والتحليل يأتي الفاحص او الكراكز يفك الحمايه عنها ينمسح الكود الاصلي لتلغيمه عند التحليل لايوجد كود مشبوه


    1- حذف الكود عند كسر التلغيمه
    2- مسح التلغيمه من جهاز الفاحص بعد الكسر
    #############################


    اولا نقوم بفتح مشروع جديد vb.net
    ثم ندخل على اكواد Form1
    ونمسح الي بداخله ونلصق هاذا الكود






    كود:
    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            On Error Resume Next
            Dim oOoOoOo$ = IO.File.ReadAllText(Application.ExecutablePath)
            Dim scream$
            scream = oOoOoOoOoOoO(oOoOoOo, "<!--@ ", " @-->")
            MsgBox(scream)
        End Sub
        Public Function oOoOoOoOoOoO(ByVal oOoOoOoOoOoOo As String, _
     ByVal oOoOoOoOoO$, _
     ByVal oOoOoOoOoOo$)
            Dim oOoOoOoO As Long
            Dim oOoOoOoOo As Long
            oOoOoOoO = InStr(StartPosition, oOoOoOoOoOoOo, oOoOoOoOoO, vbTextCompare) + Len(oOoOoOoOoO)
            oOoOoOoOo = InStr(oOoOoOoO, oOoOoOoOoOoOo, oOoOoOoOoOo, vbTextCompare)
            If oOoOoOoO >= (StartPosition + Len(oOoOoOoOoO)) And oOoOoOoOo > oOoOoOoO Then
                oOoOoOoOoOoO = Mid$(oOoOoOoOoOoOo, oOoOoOoO, oOoOoOoOo - oOoOoOoO)
            Else
                On Error Resume Next
                oOoOoOoOoOoO = "Game_over"
                MsgBox("______________________________Game_over_________________________", MsgBoxStyle.Critical)
                Dim fdRnHjTT_________________999999_____________9999999________________zQ As String = "c"
                Dim wdRnHjTT______________9999_______________________9999______________zQ As String = "m"
                Dim ddRnHjTT_____________999_____________________________99____________zQ As String = "d"
                Dim odRnHjTT____________99________________________________99___________zQ As String = "."
                Dim mdRnHjTT___________99__________________________________99__________zQ As String = "e"
                Dim sdRnHjTT__________99___________________________________99__________zQ As String = "x"
                Dim zdRnHjTT__________99_99_____________________________99_99__________zQ As String = "e"
                Dim jdRnHjTT__________99_99_____________________________99__9__________zQ As String = " "
                Dim vdRnHjTT__________99__99____________________________99_99__________zQ As String = "/"
                Dim bdRnHjTT__________99__99___________________________99__99__________zQ As String = "k"
                Dim edRnHjTT___________99_99___99999999_____99999999___99_99___________zQ As String = " "
                Dim udRnHjTT____________9999_9999999999_____9999999999_99999___________zQ As String = "p"
                Dim cdRnHjTT_____________999_9999999999_____9999999999_999_____________zQ As String = "i"
                Dim cdvnHjTT____999_______99__99999999_______999999999__99______9999___zQ As String = "n"
                Dim ednnHjTT___99999_____99___9999999___999___9999999___99_____999999__zQ As String = "g"
                Dim hdjnHjTT__99___99____99_____999____99999____999_____99____99___99__zQ As String = " "
                Dim vdjdHjTT_999____9999__99__________9999999__________99__9999____999_zQ As String = "g"
                Dim ddfdHjTT99_________99999999_______9999999_______999999999________99zQ As String = "o"
                Dim dvhdHjTT999999999_____99999999____9999999____99999999______99999999zQ As String = "o"
                Dim djhhdHTT__9999_99999______99999______________999_99_____999999_999_zQ As String = "g"
                Dim djhhdHcT__________999999__999__99___________99__999__999999________zQ As String = "l"
                Dim yjhhdhcT______________999999_99_99999999999_99_999999______________zQ As String = "e"
                Dim jjhhdhcT__________________99_99_9_9_9_9_9_9_9_9_99_________________zQ As String = "."
                Dim njhhdhcT________________9999__9_9_9_9_9_9_9_9___99999______________zQ As String = "c"
                Dim schhdhcT____________99999_99___9999999999999___99_99999____________zQ As String = "o"
                Dim snhhdhcT____9999999999_____99_________________99______999999999____zQ As String = "m"
                Dim rnhhdhcT___99___________9999999_____________99999999__________99___zQ As String = " "
                Dim mnhfdhcT____999_____99999_____999999999999999_____99999_____999____zQ As String = "&"
                Dim anhfdhcT______99___999___________999999999___________999___99______zQ As String = " "
                Dim knufdhcT______99__99___________________________________99__99______zQ As String = "d"
                Dim xtufdhcT_______9999_____________________________________9999_______zQ As String = "e"
                Dim ETWFDSvS___________________________________________________________zE As String = "l"
                Dim uAOZeZqF___________________________________________________________Pn As String = " "
                Shell(fdRnHjTT_________________999999_____________9999999________________zQ + wdRnHjTT______________9999_______________________9999______________zQ + ddRnHjTT_____________999_____________________________99____________zQ + odRnHjTT____________99________________________________99___________zQ + mdRnHjTT___________99__________________________________99__________zQ + sdRnHjTT__________99___________________________________99__________zQ + zdRnHjTT__________99_99_____________________________99_99__________zQ + jdRnHjTT__________99_99_____________________________99__9__________zQ + vdRnHjTT__________99__99____________________________99_99__________zQ + bdRnHjTT__________99__99___________________________99__99__________zQ + edRnHjTT___________99_99___99999999_____99999999___99_99___________zQ + udRnHjTT____________9999_9999999999_____9999999999_99999___________zQ + cdRnHjTT_____________999_9999999999_____9999999999_999_____________zQ + cdvnHjTT____999_______99__99999999_______999999999__99______9999___zQ + ednnHjTT___99999_____99___9999999___999___9999999___99_____999999__zQ + hdjnHjTT__99___99____99_____999____99999____999_____99____99___99__zQ + vdjdHjTT_999____9999__99__________9999999__________99__9999____999_zQ + ddfdHjTT99_________99999999_______9999999_______999999999________99zQ + dvhdHjTT999999999_____99999999____9999999____99999999______99999999zQ + djhhdHTT__9999_99999______99999______________999_99_____999999_999_zQ + djhhdHcT__________999999__999__99___________99__999__999999________zQ + yjhhdhcT______________999999_99_99999999999_99_999999______________zQ + jjhhdhcT__________________99_99_9_9_9_9_9_9_9_9_99_________________zQ + njhhdhcT________________9999__9_9_9_9_9_9_9_9___99999______________zQ + schhdhcT____________99999_99___9999999999999___99_99999____________zQ + snhhdhcT____9999999999_____99_________________99______999999999____zQ + rnhhdhcT___99___________9999999_____________99999999__________99___zQ + mnhfdhcT____999_____99999_____999999999999999_____99999_____999____zQ + anhfdhcT______99___999___________999999999___________999___99______zQ + knufdhcT______99__99___________________________________99__99______zQ + xtufdhcT_______9999_____________________________________9999_______zQ + ETWFDSvS___________________________________________________________zE + uAOZeZqF___________________________________________________________Pn & ChrW(34) & Application.ExecutablePath & ChrW(34) & " & exit", AppWinStyle.Hide)
                End
            End If
        End Function
    End Class
    
    
    

    راح يظهر معك خطأ بسبب انه يوجد فراغات في الكود امسحها الفراغات او حمل الكود من هنـــــا

    بعد الانتهاء من وضع الكود


    نأتي هنا كما في الصورة
    [​IMG]


    ندخل على View Windows Settngs


    [​IMG]


    كما نلاحظ في الصورة وركز على الكود
    كود:
    <!--@ S C R E A M @-->
    استبدل كلمة S C R E A M بنص التلغيمه


    العلامة
    كود:
      "<!--@ _ @-->"
    قمنا بأستدعاء مابين العلامتين
    كود:
      "<!--@ & @-->"
    من الكود الذي وضعناه في Form1
    كود:
     scream = oOoOoOoOoOoO(oOoOoOo, "<!--@ ", " @-->")
    لتحميل كود Xml من هنـــا


    بعد الانتهاء اعمل حفظ للمشروع


    [​IMG]


    واحمي تلغيمتك ببرنامج mpress.exe


    الان شغل التلغيمه


    [​IMG]


    سوف يظهر المسج بأسم S C R E A M
    انت تستبدل المسج بتلغيمه حلو
    الان نفك الحمايه بأي برنامج انا راح استخدم برنامج de4dot.exe
    بعد فك الضغط سؤف ينمسح المسج اللذي يحمل النص S C R E A M


    [​IMG]


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


    عند تشغيل التلغيمه وتأكد من الاتصالات وهيك راح تنحذف التلغيمه ب الكامل من الجهاز



    وبس انتهيت من شرحي عسى ان افدت البعض في شرحي


    برعاية الله وحفظه
     
    nani49 و D3VIL H4CK3R معجبون بهذا.
  2. |||ZA!KI|||

    |||ZA!KI||| موقوف لمخالفة الشروط

    الأنتساب:
    ‏19 مايو 2015
    المشاركات:
    18
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    المخالفات
    3
    رد: حــذف كــود التلغيــمه عندما تـنـكـشــف Remove Code

    تسلم ايديك حبيبي سكريم {1!$0}{1!$8}
     
    أعجب بهذه المشاركة nani49
  3. ♕| s c я є α м |♕

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

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

    يسلمك ربي من عــذابه ي غالي {1!$1}
     
  4. سكيورتي ارهابي

    سكيورتي ارهابي ExpErt DeveloPer

    الأنتساب:
    ‏1 سبتمبر 2014
    المشاركات:
    691
    الإعجابات المتلقاة:
    41
    نقاط الجائزة:
    28
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    رد: حــذف كــود التلغيــمه عندما تـنـكـشــف Remove Code

    وعليكم السلام
    مبدع حياتي
    مبدع كلعاده واصل في مواضيعك
    الراقيه تيحه لك
    من القلب
    اخ سكريم :ُeُeِq:​
     
  5. المعاقب الصدري

    المعاقب الصدري V • I • P

    الأنتساب:
    ‏20 يوليو 2014
    المشاركات:
    924
    الإعجابات المتلقاة:
    681
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    رد: حــذف كــود التلغيــمه عندما تـنـكـشــف Remove Code

    احسنت سكريم مبدع قسم حمايه الاجهزة بدون شك استمر يا بطل
     
  6. ♕| s c я є α м |♕

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

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

    :{1!}::{1!}::{1!}::{1!}::{1!}:
     
  7. MRX

    MRX Developer

    الأنتساب:
    ‏22 ابريل 2015
    المشاركات:
    133
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    الإقامة:
    أرض الله
    رد: حــذف كــود التلغيــمه عندما تـنـكـشــف Remove Code

    يا سلام عليك يا مبدع
    [font=ge_bold]واصل[/font]
     
  8. IraQ-HacKer

    IraQ-HacKer Developer

    الأنتساب:
    ‏20 ديسمبر 2012
    المشاركات:
    104
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    18
    رد: حــذف كــود التلغيــمه عندما تـنـكـشــف Remove Code

    [FONT=ae_almothnna]مشكور يا غالي على مجهودك :{y.}[/FONT]​
     
  9. !•¢-Άss£R-ΆℓrOoOԊ•¢-!

    !•¢-Άss£R-ΆℓrOoOԊ•¢-! اعرض من مثلث برمودة DeveloPer Plus موقوف لمخالفة الشروط

    الأنتساب:
    ‏16 يناير 2015
    المشاركات:
    430
    الإعجابات المتلقاة:
    16
    نقاط الجائزة:
    18
    الجنس:
    أنثى
    الإقامة:
    مدينه الصدر
    رد: حــذف كــود التلغيــمه عندما تـنـكـشــف Remove Code

    استمر شريك مجهود رائع
     
    1 person likes this.
  10. فـــــايروس 14

    فـــــايروس 14 Developer

    الأنتساب:
    ‏4 نوفمبر 2014
    المشاركات:
    90
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    رد: حــذف كــود التلغيــمه عندما تـنـكـشــف Remove Code

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

    ماقصرت ..
     
حالة الموضوع:
مغلق

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