Dim sym As New Encryption.Symmetric(Encryption.Symmetric.Provider.Rijndael)
Dim key As New Encryption.Data("DeinPasswortZumVerschlüsseln")
Dim encryptedData As Encryption.Data
encryptedData = sym.Encrypt(New Encryption.Data(DasZuVerschluesselndePasswort), _
  key)
Dim base64EncryptedString as String = encryptedData.ToBase64