________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

fg viperbone

        Dim fsDecrypted As New StreamWriter(sOutputFilename, False, _
          System.Text.Encoding.Default)
        fsDecrypted.Write(New StreamReader(cryptostreamDecr, _
        System.Text.Encoding.Default).ReadToEnd)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

mfgMeik MillerMein beste Code:If then

Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Imports System.Runtime.InteropServices
Public Class clsDES : Inherits ApplicationException
    Private mKey As String
    Private Vector() As Byte = {&H12, &H44, &H16, &HEE, &H88, &H15, &HDD, &H41}
    Private TheKey(7) As Byte
    Private objDES As New DESCryptoServiceProvider
    Public Property Key() As String
        Get
            Return mKey
        End Get
        Set(ByVal strKey As String)
            Dim arrKeyBuffer(32767) As Byte
            Dim AscEncod As New ASCIIEncoding
            Dim i As Integer = 0
            Try
                mKey = strKey
                AscEncod.GetBytes(strKey, i, strKey.Length, arrKeyBuffer, i)
            Catch ex As Exception
                Throw New ApplicationException("Key Conversion Error.")
            End Try
            Try
                Dim hashSha As New SHA1CryptoServiceProvider
                Dim arrHash() As Byte = hashSha.ComputeHash(arrKeyBuffer)
                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

mfgMeik MillerMein beste Code:If then

Public Sub FolderEncrypt(ByVal InitialPath As String, ByVal Recursion As _
  Boolean, ByVal DeleteSourceFile As Boolean)
        Dim x As Long
        If Recursion = True Then
            FillRecursiveArray(InitialPath)
        Else
            FillNonRecursiveArray(InitialPath)
        End If
        For x = 1 To arrFiles.Length - 1 Step 1
            FileEncrypt(arrFiles(CInt(x)), arrFiles(CInt(x)) & ".CRP", True)
        Next
        Try
            If DeleteSourceFile = True Then
                For x = 1 To arrFiles.Length - 1 Step 1
                    System.IO.File.Delete(arrFiles(CInt(x)))
                Next
            End If
        Catch
            Throw New ApplicationException("Error, can't delete uncrypted" & _
              "files.")
        End Try
    End Sub
    Public Sub FolderDecrypt(ByVal InitialPath As String, ByVal Recursion As _
      Boolean, ByVal DeleteSourceFile As Boolean)
        Dim x As Long
        If Recursion = True Then
            FillRecursiveArray(InitialPath)
        Else
            FillNonRecursiveArray(InitialPath)
        End If
        For x = 1 To arrFiles.Length - 1 Step 1
            FileDecrypt(arrFiles(CInt(x)), Microsoft.VisualBasic.Left(arrFiles( _
              CInt(x)), arrFiles(CInt(x)).Length - 3), True)
        Next
        Try
            If DeleteSourceFile = True Then
                For x = 1 To arrFiles.Length - 1 Step 1
                    System.IO.File.Delete(arrFiles(CInt(x)))
                Next
            End If
        Catch
            Throw New ApplicationException("Error, can't delete crypted files.")
        End Try
    End Sub

mfgMeik MillerMein beste Code:If then

 Public Sub FileEncrypt(ByVal inName As String, ByVal outName As String, ByVal _
   DeleteSourceFile As Boolean)
 
        Dim bufPacket(4096) As Byte    'Create packet separator buffer (4096 
        ' Byte / Packet)
        Dim totalBytesWritten As Long = 8  'Written Bytes Cmptr
        Dim packageSize As Integer    'Set number of byte to be write at same 
        ' time
        Try
            Dim fIn As New FileStream(inName, FileMode.Open, FileAccess.Read)
            Dim fOut As New FileStream(outName, _
            FileMode.OpenOrCreate, FileAccess.Write)
            Try
                fOut.SetLength(0)
                Dim totalFileLength As Long = fIn.Length    'Set Source File 
                ' Size
                Dim crStream As New CryptoStream(fOut, _
                  objDES.CreateEncryptor(TheKey, Vector), _
                  CryptoStreamMode.Write)
                While totalBytesWritten < totalFileLength
                    packageSize = fIn.Read(bufPacket, 0, 4096)
                    crStream.Write(bufPacket, 0, packageSize)
                    totalBytesWritten = Convert.ToInt32(totalBytesWritten + _
                      packageSize / objDES.BlockSize * objDES.BlockSize)
                End While
                crStream.Close()
                fIn.Close()
                fOut.Close()
                If DeleteSourceFile = True Then
                    System.IO.File.Delete(inName)
                End If
            Catch ex As Exception
                Throw New ApplicationException(ex.Message)
                fIn.Close()
                fOut.Close()
            End Try
        Catch ex As Exception
            Throw New ApplicationException("Input and/or Output File are" & _
              "invalid.")
        End Try
    End Sub
    Public Sub FileDecrypt(ByVal inName As String, ByVal outName As String, _
      ByVal DeleteSourceFile As Boolean)
        Dim bufPacket(4096) As Byte    'Create packet separator buffer (4096 
        ' Byte / Packet)
        Dim totalBytesWritten As Long = 8  'Written Bytes Cmptr
        Dim packageSize As Integer    'Set number of byte to be write at same 
        ' time
        Try
            Dim fIn As New FileStream(inName, FileMode.Open, FileAccess.Read)
            Dim fOut As New FileStream(outName, _
            FileMode.OpenOrCreate, FileAccess.Write)
            Try
                fOut.SetLength(0)
                Dim totalFileLength As Long = fIn.Length    'Input File Size
                Dim crStream As New CryptoStream(fOut, _
                  objDES.CreateDecryptor(TheKey, Vector), _
                  CryptoStreamMode.Write)
                While totalBytesWritten < totalFileLength
                    packageSize = fIn.Read(bufPacket, 0, 4096)
                    crStream.Write(bufPacket, 0, packageSize)
                    totalBytesWritten = Convert.ToInt32(totalBytesWritten + _
                      packageSize / objDES.BlockSize * objDES.BlockSize)
                End While
                fIn.Close()
                fOut.Close()
                If DeleteSourceFile = True Then
                    System.IO.File.Delete(inName)
                End If
            Catch ex As Exception
                Throw New ApplicationException(ex.Message)
                fIn.Close()
                fOut.Close()
            End Try
        Catch ex As Exception
            Throw New ApplicationException("Input and/or Output File are" & _
              "invalid.")
        End Try
    End Sub

mfgMeik MillerMein beste Code:If then

 Public Function StringEncrypt(ByVal strSource As String) As String
        Dim memStream As New MemoryStream  'Create memory stream to hold 
        ' encrypted string
        Try
            Dim bufSource() As Byte = Encoding.UTF8.GetBytes(strSource)
            Dim crStream As New CryptoStream(memStream, objDES.CreateEncryptor( _
              TheKey, Vector), CryptoStreamMode.Write)
            crStream.Write(bufSource, 0, bufSource.Length)
            crStream.FlushFinalBlock()
            Return Convert.ToBase64String(memStream.ToArray())
        Catch ex As Exception
            Throw New ApplicationException("String encryption Error.")
        End Try
    End Function
    Public Function StringDecrypt(ByVal strSource As String) As String
        Dim memStream As New MemoryStream  'Create memory stream to hold 
        ' decypted string
        Dim objDecode As System.Text.Encoding = System.Text.Encoding.UTF8 ' 
        ' Memory Decode Object
        Try
            Dim bufSource() As Byte = Convert.FromBase64String(strSource)
            Dim crStream As New CryptoStream(memStream, objDES.CreateDecryptor( _
              TheKey, Vector), CryptoStreamMode.Write)
            crStream.Write(bufSource, 0, bufSource.Length)
            crStream.FlushFinalBlock()
            Return objDecode.GetString(memStream.ToArray())
        Catch ex As Exception
            Throw New ApplicationException("String decryption Error.")
        End Try
    End Function

Private arrFiles() As String
    Private Function GetFileContents(ByVal FullPath As String) As String
        Dim strContents As String
        Dim objReader As StreamReader
        Try
            objReader = New StreamReader(FullPath)
            strContents = objReader.ReadToEnd()
            objReader.Close()
            Return strContents
        Catch Ex As Exception
            Throw New ApplicationException("Read Input File Error.")
        End Try
    End Function
    Private Function SaveTextToFile(ByVal strData As String, ByVal FullPath As _
      String) As Boolean
        Dim bAns As Boolean = False
        Dim objReader As StreamWriter
        Try
            objReader = New StreamWriter(FullPath)
            objReader.Write(strData)
            objReader.Close()
            bAns = True
        Catch Ex As Exception
            Throw New ApplicationException("Write Ouput File Error.")
        End Try
        Return bAns
    End Function

mfgMeik MillerMein beste Code:If then

Private Function FillRecursiveArray(ByVal strSourcePath As String) As Long
        Dim Cmptr As Integer = 0 'Sub-Folder Cmptr
        Dim lstStringFolders As New ArrayList 'Folder Array
        Dim strSubFolders As String() 'Sub-Folder Array
        Dim lstSortedFolders As New ArrayList 'Sort Folder and Sub-Folder
        Dim bufFolder As String 'Folder Name Buffer
        Dim bufFile As String 'File Name Buffer
        Try
            lstStringFolders.Add(strSourcePath)
            ReDim arrFiles(0)
            Do Until Cmptr = lstStringFolders.Count
                strSubFolders = System.IO.Directory.GetDirectories(CStr( _
                  lstStringFolders.Item(Cmptr)))
                lstStringFolders.AddRange(strSubFolders)
                Cmptr += 1
            Loop
        Catch ex As Exception
            Throw New ApplicationException("Folder Recursion Error.")
        End Try
        Try
            lstStringFolders.Sort()
            For Each bufFolder In lstStringFolders
                lstSortedFolders.Add(bufFolder)
            Next
        Catch ex As Exception
            Throw New ApplicationException("Folder Sort Error.")
        End Try
        Try
            For Each bufFolder In lstSortedFolders
                For Each bufFile In Directory.GetFiles(bufFolder)
                    ReDim Preserve arrFiles(UBound(arrFiles) + 1)
                    arrFiles(UBound(arrFiles)) = bufFile
                Next
            Next
        Catch ex As Exception
            Throw New ApplicationException("File Recursion Error.")
        End Try
        Return arrFiles.Length
    End Function
    Private Function FillNonRecursiveArray(ByVal strSourcePath As String) As _
      Long
        Dim bufFile As String 'File Name Buffer
        ReDim arrFiles(0) 'File Path Array (Only in the initial path)
        Try
            For Each bufFile In Directory.GetFiles(strSourcePath)
                ReDim Preserve arrFiles(UBound(arrFiles) + 1)
                arrFiles(UBound(arrFiles)) = bufFile
            Next
        Catch ex As Exception
            Throw New ApplicationException("Error, can't list Initial Path" & _
              "File")
        End Try
        Return arrFiles.Length
    End Function

mfgMeik MillerMein beste Code:If then

Private Sub btnOrdnerEncryption_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnOrdnerEncryption.Click
 
        Dim fDlgBrowser As New Windows.Forms.FolderBrowserDialog
        Dim InitialPath As String = fDlgBrowser.SelectedPath
        Try
            With fDlgBrowser
                fDlgBrowser.ShowNewFolderButton = False
                fDlgBrowser.SelectedPath = InitialPath
                If fDlgBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then
                    InitialPath = fDlgBrowser.SelectedPath
                End If
            End With
            objCryptDES.Key = Me.UscCode.KennwortDialog
            objCryptDES.FolderEncrypt(InitialPath, True, True)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub btnOrdnerDecryption_Click(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles btnOrdnerDecryption.Click
        Dim fDlgBrowser As New Windows.Forms.FolderBrowserDialog
        Dim InitialPath As String = fDlgBrowser.SelectedPath
        Try
            With fDlgBrowser
                fDlgBrowser.ShowNewFolderButton = False
                fDlgBrowser.SelectedPath = InitialPath
                If fDlgBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then
                    InitialPath = fDlgBrowser.SelectedPath
                End If
            End With
            objCryptDES.Key = Me.UscCode.KennwortDialog
            objCryptDES.FolderDecrypt(InitialPath, True, True)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

mfgMeik MillerMein beste Code:If then

   Dim objCryptDES As New clsDES

mfgMeik MillerMein beste Code:If then

mfgMeik MillerMein beste Code:If then