Hello, all
I have a problem with the Libary MessageDigest (Encryption), I tried String Encryption to MD5 with success. But when I try to descrypt the program code it looks like an error. following the program code
any suggestions about this descryption code?
I have a problem with the Libary MessageDigest (Encryption), I tried String Encryption to MD5 with success. But when I try to descrypt the program code it looks like an error. following the program code
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim crypt As Crypter
End Sub
Sub Activity_Create(FirstTime As Boolean)
EnscryptMD5
DescryptMD5
End Sub
Sub EnscryptMD5
Private pi As String
pi = "Image34"
Dim md As MessageDigest
Dim ByteCon As ByteConverter
Dim passwordhash() As Byte
passwordhash = md.GetMessageDigest(pi.GetBytes("UTF8"),"MD5")
Dim md5string As String
md5string = ByteCon.HexFromBytes(passwordhash)
md5string = md5string.ToLowerCase
Log("md5string : " & md5string)
'Result = f710044bf79a4b1f5d8b085e5e5d9711
End Sub
Sub DescryptMD5
Private pi As String
' Decrypt
pi = "f710044bf79a4b1f5d8b085e5e5d9711"
Dim md As MessageDigest
Dim ByteCon As ByteConverter
Dim passwordhash() As Byte
passwordhash = md.GetMessageDigest(pi.GetBytes("MD5"),"UTF8")
Dim md5string As String
md5string = ByteCon.HexToBytes(passwordhash)
md5string = md5string.ToLowerCase
Log("DescryptMD5 : " & md5string)
End Sub
any suggestions about this descryption code?
Last edited: