B4J Question How to encrypt with B4J and decrypt with VBA ?

[amorosik]

I created a web server in B4J for receiving requests from a program created with Microsoft Access
The sending of requests from Access to the B4J web server takes place correctly and also the responses
Now I would like to pass some encrypted data, using routines like at this link, which shows an example of encryption and decryption in B4J code

#AdditionalJar: bcprov-jdk15on-154
Sub Process_Globals
    
End Sub

Sub AppStart (Args() As String)
    Dim p As String = "123456"
    Dim s As String = "top secret"
    Dim enc As String = Encrypt(s, p)
    Log(enc)
    Dim dec As String = Decrypt(enc, p)
    Log(dec)
End Sub

Private Sub Encrypt (Text As String, Password As String) As String
    Dim c As B4XCipher
    Dim b() As Byte = c.Encrypt(Text.GetBytes("utf8"), Password)
    Dim su As StringUtils
    Return su.EncodeBase64(b)
End Sub

Private Sub Decrypt(EncryptedText As String, Password As String) As String
    Dim c As B4XCipher
    Dim su As StringUtils
    Dim enc() As Byte = su.DecodeBase64(EncryptedText)
    Dim dec() As Byte = c.Decrypt(enc, Password)
    Return BytesToString(dec, 0, dec.Length, "utf8")
End Sub

The question is: how to make a routine in vba that can correctly decrypt the string encrypted by the Encrypt routine in B4J?
And similarly, how to make a procedure in vba to encrypt a string so that once decrypted by the Decrypt procedure as in the link above, the string appears as original?

 

[EnriqueGonzalez]

You can't, the B4xCipher uses standard encryption but doesn't give you the salt that is used to encrypt. you need to use the other encryption library. the steps taken to encrypt/decrypt should be the same for any language

Base64 and Encryption library

Here's a library that, for the moment, can perform Base64 encoding and decoding and symmetric algorithm encryption and decryption. Tested symmetric algorithms are DES, Triple DES and AES (Rijndael). As the Java encryption rountines are all byte array oriented you will need my ByteConverter...

www.b4x.com

 

[aeric]

I don't know how but theoretically it is possible since B4XCipher is compatible with PHP through OpenSSL. If OpenSSL is installed in PC, maybe VBA can access the DLL or COM object.

 

[aeric]

Try to search AES CBC VBA PHP_OpenSSL_Encrypt

VBA AES CBC encryption

I have referred encryption in https://github.com/susam/aes.vbs and below is the code i endup with Function Min(a, b) Min = a If b < a Then Min = b End Function Function B64Encode(bytes)...

stackoverflow.com

 

[aeric]

[B4x] AES-256 encryption with salt and iv (works with all platforms like php, .net, etc.)

This example is based on agrahams encryption library: Encryption Lib 1. Generate a 32 byte pw (just call the sub) and store it 2. Encrypt the data by calling AES_Encrypt. Return is a byte array or a base64 encoded string 3. Salt is a random value which is added at the beginning of the encrypted...

www.b4x.com