iOS Question iEncryption library

[Giuliano Cucchiarini]

Hi
I am trying to encrypt and decrypt a string using the iEncryption library (ver 1.01).
(I need a very simple method)

Dim PlainText as string="String to encrypt"
Dim myCipher As Cipher
Dim myArray() As Byte=PlainText.GetBytes("UTF8")
Dim encriptedPassword() As Byte=myCipher.Encrypt(myArray ,"myPassword")


This very simple code does not work, the programs get stuck in the last instruction, without any error message.

Can you help me
Thank you

Giuliano C.

 

[Erel]

I'm unable to reproduce it. It seems to work fine.

Are you using the hosted builder?

 

[Giuliano Cucchiarini]

Yes, i am using hosted builder.

 

[Erel]

Is this the full code? Which device are you using?

 

[Giuliano Cucchiarini]

This is the full code, I create a very simple App to test. The device is iPAD Air 2
I wiil try to reboot the tablet...I will let you know.
Thank you

 

[Giuliano Cucchiarini]

Hi Erel, what I created a brand new project, with only the 4 instructions I sent you...
Same story, but I noticed that if I build a release App, it works...
Maybe is a bug somewhere....

 

[Erel]

It seems like a bug in the native crypt API on 64 bit devices that run 32 bit binaries. Open Tools - Server - Settings and set it to 64 bit.

 

[Giuliano Cucchiarini]

I tried...It works, even in debug mode...But what I noticed is that the result of the encryption is different every time I run the code...

 

[Giuliano Cucchiarini]

Sorry Erel for the last comment, I understand that the encryption must give a different result every time, by design...
Are you going to fix the 64 bit issue?
Thank very much for your precious help!
Giuliano C.

 

[Erel]

Are you going to fix the 64 bit issue?

It seems like a bug in iOS when you run a 32 bit app on a 64 bit device. This will not happen in release mode or if you set the 64 bit option.

 

[tucano2000]

Erel , I tried to do the same and the application freezes on iphone 4S on the line :

myEncript = myCipher.Encrypt ( myArray , " fakhfaodfhdf344230oaljfalh " )

It is a bug with this library or my code ?

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public App As Application
    Public NavControl As NavigationController
    Private Page1 As Page

    Private Button1 As Button
    Private myEncript() As Byte
    Private StringEncriptada As String
End Sub

Private Sub Application_Start (Nav As NavigationController)
    NavControl = Nav
    Page1.Initialize("Page1")
    Page1.RootPanel.LoadLayout("Pagetest")
    Page1.Title = "Page 1"
    Page1.RootPanel.Color = Colors.White
    NavControl.ShowPage(Page1)
    Dim PlainText As String="esteeumtestedeencriptacao"
    Dim myCipher As Cipher
    Dim bc As ByteConverter
    Dim myArray() As Byte=bc.StringToBytes(PlainText,"ISO-8859-1")
    myEncript = myCipher.Encrypt(myArray ,"fakhfaodfhdf344230oaljfalh")
    Dim bc As ByteConverter
    StringEncriptada=bc.StringFromBytes(myEncript,"ISO-8859-1")
End Sub

 

[Erel]

There is a problem with the cryptography API and 32 bit devices. I will check it.

 

[Erel]

This issue is now fixed. If you are using the hosted builder then you just need to recompile the app.

https://www.b4x.com/android/forum/threads/updates-to-internal-libraries.48179/#post-304890

 

[tucano2000]

Excellent Erel, Thanks !!! Now is working after upgrading iEncryption v1.02. I 'm using the hosted mac. My before library is 1.01.

Here is my code for encryption and decryption. I accept suggestions for improvement

'Code module
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public App As Application
    Public NavControl As NavigationController
    Private Page1 As Page

    Private Button1 As Button
    Private myEncript() As Byte
    Private StringEncriptada As String
    Private Password As String = "fakhfaodfhdf344230oaljfalh"  '<= Encryption password
End Sub

Private Sub Application_Start (Nav As NavigationController)
    NavControl = Nav
    Page1.Initialize("Page1")
    Page1.RootPanel.LoadLayout("Pagetest")
    Page1.Title = "Page 1"
    Page1.RootPanel.Color = Colors.White
    NavControl.ShowPage(Page1)
  
    'Encrypt
    Dim PlainText As String="This is a encryption test..."   '<== String to encryption
    Dim myCipher As Cipher
    Dim bc As ByteConverter
    Dim myArray() As Byte=bc.StringToBytes(PlainText,"ISO-8859-1")
    myEncript = myCipher.Encrypt(myArray ,Password)
    Dim bc As ByteConverter
    StringEncriptada=bc.StringFromBytes(myEncript,"ISO-8859-1")
End Sub

Sub Button1_Click
    'Decrypt
    Dim myCipher As Cipher
    Dim PlainText1 As String
    Dim Bc As ByteConverter
    Dim myArray() As Byte=Bc.StringToBytes(StringEncriptada,"ISO-8859-1")
    PlainText1 = Bc.StringFromBytes(myCipher.Decrypt(myArray, Password), "ISO-8859-1")
    Log("Decripted=" & PlainText1)
End Sub