Feedback

VB - Dateientschlüsselung mit Rijndael

Veröffentlicht von am 03.06.2006
(3 Bewertungen)
Mit dieser Funktion kann man eine Datei mit dem Rijndael Algorithmus entschlüsseln
GFU-Schulungen  [Anzeige]

ASP.NET Core und Angular Komplett für .NET-Entwickler

Sie  lernen in drei (3) Tagen wie man mit  ASP.NET Core und den Technologien  MVC, Entity Framework, WebAPI und  Razor professionelle sowie moderne  Web-Anwendungsarchitekturen aufbaut.  Die Schulung ist der perfekte  Einstieg um insbesondere datengetriebene  und präsentationsorientierte  Applikationen auf Basis der robusten und  skalierbaren ASP.NET Core  Plattform zu erstellen. Nach der Veranstaltung kennen Sie die Konzepte von Angular und können Angular in neue und bestehende ASP.NET-Anwendungen einsetzen.

VB.NET 2017/2015/2013 Einführung

Das Seminar befähigt Sie zur eigenständigen Entwicklung von anwenderorientierten Programmen in VB.NET, worin auch der Einsatz von Datenbanken enthalten ist.

Imports System.Security.Cryptography
Imports System.IO
Imports System.Text

Public Function DecryptFile(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(OldFileStream, RijndaelManaged.CreateDecryptor(sKey, sKey), CryptoStreamMode.Read)

        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 = CryptoStream.Read(Data, 0, FileLen - BufferCount)
                NewFileStream.Write(Data, 0, Buffer)
                Exit Do
            End If

            Buffer = CryptoStream.Read(Data, 0, BufferSize)
            NewFileStream.Write(Data, 0, BufferSize)
            BufferCount += Buffer
        Loop

        NewFileStream.Close()
        CryptoStream.Close()
        OldFileStream.Close()
    Catch
        Return False
    End Try
    Return True
End Function
Abgelegt unter Entschlüsselung, Rijndael, AES.

1 Kommentare zum Snippet

hhh schrieb am 02.02.2010:
Wenn ich ein Passwort > 8 Zeichen verwende, funktioniert die Verschlüsselung nicht. Gibt's da eine Lösung?
Danke
 

Logge dich ein, um hier zu kommentieren!