Dim enRin As Rijndael = Rijndael.Create
 
    Dim key() As Byte = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16}
    Dim iv() As Byte = {16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1}
 
    enRin.Key = key
    enRin.IV = iv
    enRin.Padding = PaddingMode.Zeros
 
    Dim enFile As FileStream = File.Open("C:\Facebook\test.xml", FileMode.Open, _
      FileAccess.ReadWrite)
 
    Dim cStream As New CryptoStream(enFile, enRin.CreateEncryptor(enRin.Key, _
      enRin.IV), CryptoStreamMode.Write)
 
 
    Dim sWriter As New StreamWriter(cStream)
    sWriter.Close()
    cStream.Close()
    enFile.Close()