تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في انشاء برنامج التشفير
#1
السلام عليكم ورحمة الله وبركاته ،،
اخواني اريد صنع برنامج يشفر الارقام السري مثل من اسم ورقم الى utf-5 التشفير المشهور واريد العكس ايضا يفك التشفير من utf-5 الى النص مع الارقام ..

هل يوجد مثال ،،،

لاني اريد البرنامج مثل في عملية تقوية حماية الدخول للبرنامج بحيث يشفر الرقم للدخول ،، وبهذا المشروع المهم ممكن نستخدمة بكثييير من فكرات ،،، وراح اسوي مشاريع بهذه الفكره واطرحها بالمنتدى ،،

اتمني تساعدوني في المثال .
الرد }}}}
تم الشكر بواسطة:
#2
يوجد سؤال لى عن نفس الطلب وفى نهاية السئال تقريبا فى الصفحة الثانية رد للاخ سجاد فيه المراد كما تريد بالضبط
الان النت بطئ جدا لو لم تجده انتظر غدا باذن الله
الرد }}}}
تم الشكر بواسطة:
#3
تفضل على هذا الرابط فى المشاركة رقم 10
الرد }}}}
تم الشكر بواسطة:
#4
ali.alfoly كتب :تفضل على هذا الرابط فى المشاركة رقم 10

شكرا لك ،، وجاري التجربة
الرد }}}}
تم الشكر بواسطة:
#5
اخي ما قصدته في الموضوع فك تشفير UTF-8 او UTf-5 يعني اسم التشفيره لها MD5 والبرنامج لا يفك ويستخدم تشفير MD5 ؟؟؟
الرد }}}}
تم الشكر بواسطة:
#6
وايضا لاحظ هذا الموقع القوي في التشفير وفك التشفير http://ar.freemd5.com/
الرد }}}}
تم الشكر بواسطة:
#7
اه انا اسف انا فهمت خطاء
والله تمنيت لو انى اعرف كيف اساعدك
ولاكن سامحنى
وان شاء الله الاخوه ما يقصرو ونستفيد جميعا
الرد }}}}
تم الشكر بواسطة:
#8
ali.alfoly كتب :اه انا اسف انا فهمت خطاء
والله تمنيت لو انى اعرف كيف اساعدك
ولاكن سامحنى
وان شاء الله الاخوه ما يقصرو ونستفيد جميعا


شكرا لك اخي ما قصرت يكفي انك حاولت تساعد ،،
اتمنى من الاخوان المساعدة
الرد }}}}
تم الشكر بواسطة:
#9
فيه دالتين Encrypt and Decrypt
كود :
Public Function Encrypt(ByVal text As String, ByVal key As String) As String        Try
            Dim crp As New TripleDESCryptoServiceProvider
            Dim uEncode As New UnicodeEncoding
            Dim bytPlainText() As Byte = uEncode.GetBytes(text)
            Dim stmCipherText As New MemoryStream
            Dim slt() As Byte = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
            Dim pdb As New Rfc2898DeriveBytes(key, slt)
            Dim bytDerivedKey() As Byte = pdb.GetBytes(24)


            crp.Key = bytDerivedKey
            crp.IV = pdb.GetBytes(8)


            Dim csEncrypted As New CryptoStream(stmCipherText, crp.CreateEncryptor(), CryptoStreamMode.Write)


            csEncrypted.Write(bytPlainText, 0, bytPlainText.Length)
            csEncrypted.FlushFinalBlock()
            Return Convert.ToBase64String(stmCipherText.ToArray())
        Catch ex As Exception
            Throw
        End Try
    End Function
    Function Decrypt(ByVal text As String, ByVal key As String) As String


        Dim crp As TripleDESCryptoServiceProvider
        Try
            crp = New TripleDESCryptoServiceProvider
            Dim uEncode As New UnicodeEncoding
            Dim bytCipherText() As Byte = Convert.FromBase64String(text)
            Dim stmPlainText As New MemoryStream
            Dim stmCipherText As New MemoryStream(bytCipherText)
            Dim slt() As Byte = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
            Dim pdb As New Rfc2898DeriveBytes(key, slt)
            Dim bytDerivedKey() As Byte = pdb.GetBytes(24)
            crp.Key = bytDerivedKey
            crp.IV = pdb.GetBytes(8)


            Dim csDecrypted As New CryptoStream(stmCipherText, crp.CreateDecryptor(), CryptoStreamMode.Read)
            Dim sw As New StreamWriter(stmPlainText)
            Dim sr As New StreamReader(csDecrypted)
            sw.Write(sr.ReadToEnd)
            sw.Flush()
            csDecrypted.Clear()
            crp.Clear()
            Return uEncode.GetString(stmPlainText.ToArray())
        Catch ex As Exception
            Throw
        End Try


    End Function

لاتنسى
كود :
Imports System.Security.Cryptography
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#10
هذا موضوع اجنبي يمثل لنا بمشروع لحل سؤالي ،،، يقول ان المشروع يحولها الى MD5 ويفك تشفيرة MD5 لكن لا ارى ذلك ،، خذوه ممكن يساعدنا
http://competefornothing.com/?p=639
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف تتحقق من وجود برنامج مثبت وان لم يكن مثبت تثبته محمد بن عطية 1 58 20-05-17, 09:26 PM
آخر رد: محمود بكرى
  [VB.NET] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 137 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 95 19-05-17, 06:46 PM
آخر رد: dubai.eig
  تشغيل برنامج دون الحاجه للاقلاع ببرامج اخري medoddd 0 35 19-05-17, 12:46 PM
آخر رد: medoddd
  كيفية انشاء الباركود المتألق9 2 49 18-05-17, 10:33 PM
آخر رد: المتألق9
  افكاركم بخصوص برنامج ادارة محلات بلاي ستيشن Basil Abdallah 3 78 18-05-17, 07:49 PM
آخر رد: Basil Abdallah
  مساعدة بخصوص تشفير ملف exe OakenShield 1 58 18-05-17, 11:27 AM
آخر رد: OakenShield
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 6 522 16-05-17, 01:12 AM
آخر رد: salah mansour
  [VB.NET] عايز اعرف ازاى اعمل برنامج بقاعدة بيانات xaml MOSTAFA.KAMEL 3 107 13-05-17, 11:01 PM
آخر رد: العواد الصغير
  طلب برنامج .NET Reactor مع التفعيل OakenShield 0 33 13-05-17, 01:28 PM
آخر رد: OakenShield

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم