Public Function EncryptFile(ByVal sSource As String, ByVal sTarget As _
      String, ByVal sPassword As String, Optional ByVal BufferSize As Long = _
      4096) As Boolean
        Try
            Dim sKey As Byte() = (New UnicodeEncoding).GetBytes( _
              sPassword.PadRight(8, "*"))
            Dim OldFileStream As New FileStream(sSource, FileMode.Open)
            Dim NewFileStream As New FileStream(sTarget, FileMode.Create)
            Dim RijndaelManaged As New RijndaelManaged
            Dim CryptoStream As New CryptoStream(NewFileStream, _
              RijndaelManaged.CreateEncryptor(sKey, sKey), _
              CryptoStreamMode.Write)
 
            Dim Data(BufferSize) As Byte
            Dim Buffer As Long
            Dim BufferCount As Long
            Dim FileLen As Long = OldFileStream.Length
 
            Do
                If BufferCount >= FileLen - BufferSize Then
                    ReDim Data(FileLen - BufferCount)
                    Buffer = OldFileStream.Read(Data, 0, FileLen - BufferCount)
                    CryptoStream.Write(Data, 0, Buffer)
                    Exit Do
                End If
 
                Buffer = OldFileStream.Read(Data, 0, BufferSize)
                CryptoStream.Write(Data, 0, BufferSize)
                BufferCount += Buffer
            Loop
 
            OldFileStream.Close()
            CryptoStream.Close()
            NewFileStream.Close()
        Catch
            Return False
        End Try
        Return True
    End Function

Dim sKey As Byte() = (New UnicodeEncoding).GetBytes( _
sPassword.PadRight(8, "*"))

Dim CryptoStream As New CryptoStream(NewFileStream, _
RijndaelManaged.CreateEncryptor(sKey, sKey), _
CryptoStreamMode.Write)

Sch?ne Gr??e
JackInBlack