[ سؤال ] استفسار بخصوص تشفير الهوست .. واخرى

تم تحميل الصفحة في 1,9731746 ثانية
استفسار بخصوص تشفير الهوست .. واخرى
إنضم
26 ديسمبر 2009
المشاركات
419
الإعجابات
310
النقاط
63
السلم عليكم ورحمة الله وبركاته
تحيه طيبه للجميع..

اخواني كيف استطيع استخدام برنامج

CRYPT.NET


في تشفير الهوست والبورت


كذلك كيف استطيع تخطي النود انترنت سكيروتي مع الديفندر ؟
وشكرا
 

Hac Tool

مُشرف أقسام التشفير
rankrankrank
إنضم
10 أكتوبر 2016
المشاركات
532
الإعجابات
545
النقاط
93
العمر
28
مرحبا بك
اول شي لازم لك سورس كود ستب خام
تاني لازم لك فنكشن تشفير و فك تشفير
نقوم بتفكيك ستب تستخرج سورس
شفر معلومات لي تبيه و خط فنكشن فك تشفير في سورس
" 127.0.0.1" = dim port as string
" 9992" = dim host as string
بعد ما تشفر تصبح كد
("***********")dim port as string = decrypt
("***********")dim host as string = decrypt
 
الإعجابات: TxxT
إنضم
26 ديسمبر 2009
المشاركات
419
الإعجابات
310
النقاط
63
مرحبا بك
اول شي لازم لك سورس كود ستب خام
تاني لازم لك فنكشن تشفير و فك تشفير
نقوم بتفكيك ستب تستخرج سورس
شفر معلومات لي تبيه و خط فنكشن فك تشفير في سورس
" 127.0.0.1" = dim port as string
" 9992" = dim host as string
بعد ما تشفر تصبح كد
("***********")dim port as string = decrypt
("***********")dim host as string = decrypt
تسلم اخوي ماقصرت
هل ينفع ستب المعدل ليشتغل على البور شل ؟
وفي حاله ادراج فنكشن تشفير وفك تشفير هل تنصح بخوارزمية معينه
 

Hac Tool

مُشرف أقسام التشفير
rankrankrank
إنضم
10 أكتوبر 2016
المشاركات
532
الإعجابات
545
النقاط
93
العمر
28
تسلم اخوي ماقصرت
هل ينفع ستب المعدل ليشتغل على البور شل ؟
وفي حاله ادراج فنكشن تشفير وفك تشفير هل تنصح بخوارزمية معينه
لم تفهم كود و ايش تعمل راح تعمل معك في اي شي
استعمل اي خورزمية من ستريج الى ستريج
مثل دي
كود:
 Public Shared pass As String = "password"

        Public Shared Function AES_Encrypt(ByVal input As String) As String
            Dim AES As New System.Security.Cryptography.RijndaelManaged
            Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
            Dim encrypted As String = ""
            Try
                Dim hash(31) As Byte
                Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
                Array.Copy(temp, 0, hash, 0, 16)
                Array.Copy(temp, 0, hash, 15, 16)
                AES.Key = hash
                AES.Mode = CipherMode.ECB
                Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor
                Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
                encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
                Return encrypted
            Catch ex As Exception
                Return Nothing
            End Try

        End Function
 Public Shared Function AES_Decrypt(ByVal input As String) As String
            Dim AES As New System.Security.Cryptography.RijndaelManaged
            Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
            Dim decrypted As String = ""
            Try
                Dim hash(31) As Byte
                Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
                Array.Copy(temp, 0, hash, 0, 16)
                Array.Copy(temp, 0, hash, 15, 16)
                AES.Key = hash
                AES.Mode = CipherMode.ECB
                Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
                Dim Buffer As Byte() = Convert.FromBase64String(input)
                decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
                Return decrypted
            Catch ex As Exception
                Return Nothing
            End Try

        End Function
 
الإعجابات: TxxT

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

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

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

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