Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Imports System.Runtime.InteropServices
 
 
Public Class clsDES : Inherits ApplicationException
#Region "Private Var"
    Private mKey As String
 
    'Random Value Vector (Protect against encryption repetition (ex. 
    ' "aloaloalo" <> "ģ!ģ!ģ!")
    Private Vector() As Byte = {&H12, &H44, &H16, &HEE, &H88, &H15, &HDD, &H41}
    Private TheKey(7) As Byte    '8-Byte Key
    Private objDES As New DESCryptoServiceProvider    'DES Encryption Object
#End Region
 
#Region "Propertys"
    Public Property Key() As String
        Get
            Return mKey
        End Get
        Set(ByVal strKey As String)
            ' Temporary buffer to hold the key
            Dim arrKeyBuffer(7) As Byte
            Dim AscEncod As New ASCIIEncoding
            Dim i As Integer = 0
 
            Try
                mKey = strKey
 
                'Convert key string into byte array
                AscEncod.GetBytes(strKey, i, strKey.Length, arrKeyBuffer, i)
            Catch ex As Exception
                Throw New ApplicationException("Key Conversion Error.")
            End Try
 
 
 
            Try
                'Hash the key
                Dim hashSha As New SHA1CryptoServiceProvider
                Dim arrHash() As Byte = hashSha.ComputeHash(arrKeyBuffer)
 
                'Hold hashed key in TheKey array
                For i = 0 To 7
                    TheKey(i) = arrHash(i)
                Next i
            Catch ex As Exception
                Throw New ApplicationException("Hashing Key Error.")
            End Try
        End Set
    End Property
#End Region
 
#Region "Methods"
    Public Function FolderEncrypt(ByVal InitialPath As String, ByVal Recursion _
      As Boolean, ByVal DeleteSourceFile As Boolean)
        Dim x As Long
 
        'RECURSION VERIFICATION
        If Recursion = True Then
            'Find files in all sub-folder, recursion
            FillRecursiveArray(InitialPath)
        Else
            'Find InitialPath file only, no recursion
            FillNonRecursiveArray(InitialPath)
        End If
 
        'ENCRYPT FILE'
        For x = 1 To arrFiles.Length - 1 Step 1
            FileEncrypt(arrFiles(x), arrFiles(x) & ".CRP", True)
            'Application.DoEvents()
        Next
 
        Try
            If DeleteSourceFile = True Then
                'DELETE SOURCE FILE (Uncrypted)
                For x = 1 To arrFiles.Length - 1 Step 1
                    System.IO.File.Delete(arrFiles(x))
 
                    'Application.DoEvents()
                Next
            End If
        Catch
            Throw New ApplicationException("Error, can't delete uncrypted" & _
              "files.")
        End Try
    End Function

Mit freundlichen Gr??en

Peter