السلام عليكم ورحمة الله وبركاته
لدي رقم تم تشفيره بواسطة الدالة
هذا كود مع الشرح
Public Function GetEncryptedData(ByVal Data As String) As String
Dim shaM As New SHA1Managed
Dim Enc_Password As String = Convert.ToBase64String(shaM.ComputeHash(Encoding.ASCII.GetBytes((Data))))
GetEncryptedData = Enc_Password
' Enc_Password الرقم المشفر موجود في
'عند مواصلة الكود ستعيد الدالة ما يمكن تمريره للدالة الاخرى التي بدورها ستعيد الرقم الاصلي
Dim eNC_data() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(Data) ' هنا بناء على الرقم قبل التشفير
Dim eNC_str As String = Convert.ToBase64String(eNC_data) 'سيتم التحويل الى
GetEncryptedData = eNC_str
End Function
Public Function GetDecryptedData(ByVal Data As String) As String
'هنا سأستخدم ما أعادة المتغير الاخير في الدالة السابقه
Dim dEC_data() As Byte = Convert.FromBase64String(Data)
'ثم سأسترجع الرقم الاصلي
Dim dEC_Str As String = System.Text.ASCIIEncoding.UTF8.GetString(dEC_data)
GetDecryptedData = dEC_Str
End Functionأنا الان ليس لدي الا الرقم المشفر الموجود في المتغير Enc_Password والذي انتجته الدالة الاولى
هل يمكن ان أعرف عن طريقه الرقم الاصلي ؟؟؟