iOS Question Using B4XAES Lib

Erel said:

I'm not familiar with this library implementation but you can use (j)B4XEncryption, iEncryption. I think that the library you mentioned actually wraps these libraries.

[B4X] B4XEncryption

This library allows you to encrypt or decrypt data using the AES encryption method. It is simple to use and it is compatible with B4J jB4XEncryption library and B4i Encryption library (Encrypt and Decrypt method) which means that you can encrypt the data on one platform and decrypt it on a...

www.b4x.com

Click to expand...

Swissmade said:

But maybe B4XCipher has to go as Cipher and without B4XAES Library then the errors are gone.

Click to expand...

Erel said:

True. The code with (j)B4XEncryption and iEncryption will not be 100% identical, only 95% but the encryption is cross platform.
Simply use conditional compilation.

Click to expand...

Erel said:

95% but the encryption is cross platform

Click to expand...

Public Sub SetAES1(Mess As String, Key As String, HaveToEncrypt As Boolean) As String
    Dim AesString As String
    Dim c As B4XCipher
    Dim b() As Byte
    Dim su As StringUtils
    Try
        If HaveToEncrypt = True Then
            b = c.Encrypt(Mess.GetBytes("utf8"), Key)
            AesString = su.EncodeBase64(b)
            Log(AesString)
        Else
            Dim enc() As Byte = su.DecodeBase64(Mess)
            b = c.Decrypt(enc, Key)
            AesString = BytesToString(b, 0, b.Length, "utf8")
        End If
    Catch
'        ShowLog("Error getting Password or Key", True, LastException.Message)
        AesString = "Wrong-Key"
    End Try
    Return AesString
End Sub

Public Sub SetAES1(Mess As String, Key As String, HaveToEncrypt As Boolean) As String
    Dim AesString As String
    Dim c As Cipher
    Dim b() As Byte
    Dim su As StringUtils
    Try
        If HaveToEncrypt = True Then
            b = c.Encrypt(Mess.GetBytes("utf8"), Key)
            AesString = su.EncodeBase64(b)
            Log(AesString)
        Else
            Dim enc() As Byte = su.DecodeBase64(Mess)
            b = c.Decrypt(enc, Key)
            AesString = BytesToString(b, 0, b.Length, "utf8")  <Crash here wrong Key
        End If
    Catch
'        ShowLog("Error getting Password or Key", True, LastException.Message)
        AesString = "Wrong-Key"
    End Try

    Return AesString
End Sub

Erel said:

You don't need to add anything.
Download the example project. Change the package name based on your provision profile and run it.

Click to expand...

Erel said:

I'm sorry but I cannot further help you here.
The example project runs as-is. You don't need to change anything. And the feature has nothing to do with B4XPages.

Click to expand...