### R code from vignette source 'EncryptedFormat.Rnw'