تقييم الموضوع :
  • 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 ) ضيف كريم