[DK-x]

اشكرك اخي elgokr على كل شيء
انا بحثت بهذا الخصوص ووجدت

كود :

Imports System.Security.Cryptography

Public Class RijCrypto

   Public Shared LastErr as String

   Public Shared Function tryEncryptBytes(ByRef B() As Byte, ByVal Pass As String) As Boolean
       Try
           Dim PassMD5Bytes() As Byte
           Dim MD5 As New MD5CryptoServiceProvider
           PassMD5Bytes = MD5.ComputeHash(System.Text.Encoding.ASCII.GetBytes(Pass))
           Dim Rij As New RijndaelManaged
           Rij.Mode = CipherMode.ECB
           Rij.Key = PassMD5Bytes
           Dim Encryptor As ICryptoTransform = Rij.CreateEncryptor
           B = Encryptor.TransformFinalBlock(B, 0, B.Length)
           Return True
       Catch ex As Exception
           LastErr = ex.ToString
           Return False
       End Try
   End Function

   Public Shared Function tryDecryptBytes(ByRef B() As Byte, ByVal Pass As String) As Boolean
       Try
           Dim PassMD5Bytes() As Byte
           Dim MD5 As New MD5CryptoServiceProvider
           PassMD5Bytes = MD5.ComputeHash(System.Text.Encoding.ASCII.GetBytes(Pass))
           Dim Rij As New RijndaelManaged
           Rij.Mode = CipherMode.ECB
           Rij.Key = PassMD5Bytes
           Dim Decryptor As ICryptoTransform = Rij.CreateDecryptor
           B = Decryptor.TransformFinalBlock(B, 0, B.Length)
           Return True
       Catch ex As Exception
           LastErr = ex.ToString
           Return False
       End Try
   End Function

End Class

ويتم الاستخدام

كود :

TextBox2.Text = tryDecryptBytes(TextBox1.Text)

لكن بعد الاستخدام يظهر خطأ

   

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