Cifrar ficheros con capicom

[pappland]

Un saludo....

Estoy dando mis primeros pasos con BV y quiero saber como puedo cifrar u resumir ficheros.

Se hacerlo con cadenas de texto mediante los siguientes codigos, pero como los modifico para hacerlo con ficheros????


Private Sub Boton_Encriptar_Click()
Dim ed As New EncryptedData
ed.Content = TextBox_EncriptacionTexto.Text
ed.Algorithm.Name = CAPICOM_ENCRYPTION_ALGORITHM_3DES
ed.SetSecret Text_Clave.Text
TextBox_Resultado.Text = ed.Encrypt
End Sub


Private Sub Boton_Resumir_Click()
Dim resumen As New HashedData
resumen.Algorithm = CAPICOM_HASH_ALGORITHM_MD5
resumen.Hash (Text_Resumen.Text)
Text_resultadoResumen = resumen.Value
End Sub

Lo que quiero es saber como cambio os textareas por ficheros.



Gracias...