Dim inp As InputStream = File.OpenInput("c:\temp", "inputFile.mp4")
Dim outp As OutputStream = File.OpenOutput("c:\temp", "outputFile.mp4", False)
Dim bc As ByteConverter
Dim pwd() As Char = bc.CharsFromBytes(bc.StringToBytes("FGERHZXCG434TRWR", "ASCII"))
Dim alice As Alice
Dim ac As AliceConstants
Dim bld As AliceContextBuilder
bld.Initialize("")
bld.Algorithm = ac.AES
bld.Mode = ac.CTR
alice.Initialize("Alice",bld.build)
alice.encryptStream(inp, outp, pwd)