B4J Question [solved]RAF: ReadEncryptedObject stucks

[KMatle]

Sub DeCryptFile (ImportPath As String, ImportFileName As String, DECPW As String)
    Dim rafIN1, rafOUT1 As RandomAccessFile

    Dim l, x As Int
           
    rafIN1.Initialize(ImportPath,ImportFileName, True)
    l = File.Size(ImportPath,ImportFileName)
    Dim FileBuffer(l) As Byte
    rafIN1.Initialize(ImportPath, ImportFileName, False)
    >> FileBuffer=rafIN1.ReadEncryptedObject(DECPW,rafIN1.CurrentPosition) <<
    rafIN1.Close

Trying to read an encrypted file. The marked line is executed, Java Platform runs up to 2,3 GB memory, CPU is at 27% (it is running in the background). No exception. I can stop the debugger and everything is ok again.

I assume that my file is corrupt... Bug?

 

[Erel]

How did you create the file?

Why are you initializing RAF twice?

 

[KMatle]

My fault (too tired yesterday). I forgot to decode from Base64