Sub DecryptFile (SFile As String,DFile As String, Password As String)As ResumableSub
Dim size As Long = File.Size(SFile, "")
Dim rafInput, rafOutput As RandomAccessFile
rafInput.Initialize(SFile, "", True)
rafOutput.Initialize(DFile, "", False)
Dim b() As Byte
Dim enc As B4XCipher
Do While rafInput.CurrentPosition < size
Dim blockLength As Int = rafInput.ReadInt(rafInput.CurrentPosition)
If b.Length <> blockLength Then
Dim b(blockLength) As Byte
End If
rafInput.ReadBytes(b, 0, b.Length, rafInput.CurrentPosition)
Dim bb() As Byte = enc.Decrypt(b, Password)
rafOutput.WriteBytes(bb, 0, bb.Length, rafOutput.CurrentPosition)
' ProgressBar1.Progress = rafInput.CurrentPosition / size
Sleep(30)
Loop
rafInput.Close
rafOutput.Close
Return True
End Sub