Aide sur le cryptage d'un fichier

Question

Posez votre question Signaler

Aide sur le cryptage d'un fichier

sobhi9009 - 22 nov. 2016 à 17:27 - Dernière réponse : cs_Le Pivert

Messages postés: 5594
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 9 décembre 2018

- 23 nov. 2016 à 08:08

VB.NET Posez votre question Signaler

Bonjour tout le monde,
Je suis débutant en VB.net, et je souhaite mettre en place un script qui va décrypter un fichier texte.
Le cryptage de ce fichier a été fait en AES symétrique, et voici le script de décryptage:


Imports System.IO
Imports System.Security.Cryptography
 
Public Class Form1
 
    Private Shared Function Assign(Of T)(ByRef source As T, ByVal value As T) As T
        source = value
        Return value
    End Function
 
    Private Sub Decrypt(inputFilePath As String, outputfilePath As String)
        Dim EncryptionKey As String = "MAKV2SPBNI99212"
        Using encryptor As Aes = Aes.Create()
            Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D,
             &H65, &H64, &H76, &H65, &H64, &H65,
             &H76})
            encryptor.Key = pdb.GetBytes(32)
            encryptor.IV = pdb.GetBytes(16)
            Using fs As New FileStream(inputFilePath, FileMode.Open)
                Using cs As New CryptoStream(fs, encryptor.CreateDecryptor(), CryptoStreamMode.Read)
                    Using fsOutput As New FileStream(outputfilePath, FileMode.Create)
                        Dim data As Integer
                        While (Assign(data, cs.ReadByte())) <> -1
                            fsOutput.WriteByte(CByte(data))
                        End While
                    End Using
                End Using
            End Using
        End Using
    End Sub
End Class

Ma question semble un peu bête, comment spécifier le fichier d'entrée (document crypté) et le fichier de sortie (document décrypté) ?

PS: J'ai essayé de modifier les valeurs "inputFilePath" et "outputFilePath" par le chemin du fichier, mais cela n'aboutit pas au résultat.

Merci pour votre aide,

Afficher la suite

A voir également:

Votre réponse

Répondre au sujet

2 réponses

Votre réponse

Répondre au sujet

Posez votre question

vb95 · Answer 1 · 2016-11-22T22:24:10+0100

Signaler Commenter la réponse de vb95

vb95

Messages postés: 1724
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 9 décembre 2018

22 nov. 2016 à 22:24

0

Merci

Bonjour
Ce n'est pas le chemin du fichier qu'il faut mais le nom complet du fichier ( répertoire et fichier )
Le chemin comme tu dis n'est que la succession de répertoire et sous-répertoires le cas écéant

cs_Le Pivert · Answer 2 · 2016-11-23T08:08:45+0100

Bonjour,

comme ceci:

Imports System.Security.Cryptography
Imports System.IO
'http://www.aspsnippets.com/Articles/Encrypt-and-Decrypt-XML-File-using-C-and-VBNet.aspx
Public Class Form1
    Private Shared Function Assign(Of T)(ByRef source As T, ByVal value As T) As T
        source = value
        Return value
    End Function
    Private Sub Encrypt(inputFilePath As String, outputfilePath As String)
        Dim EncryptionKey As String = "MAKV2SPBNI99212"
        Using encryptor As Aes = Aes.Create()
            Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, _
             &H65, &H64, &H76, &H65, &H64, &H65, _
             &H76})
            encryptor.Key = pdb.GetBytes(32)
            encryptor.IV = pdb.GetBytes(16)
            Using fs As New FileStream(outputfilePath, FileMode.Create)
                Using cs As New CryptoStream(fs, encryptor.CreateEncryptor(), CryptoStreamMode.Write)
                    Using fsInput As New FileStream(inputFilePath, FileMode.Open)
                        Dim data As Integer
                        While (Assign(data, fsInput.ReadByte())) <> -1
                            cs.WriteByte(CByte(data))
                        End While
                    End Using
                End Using
            End Using
        End Using
    End Sub
    Private Sub Decrypt(inputFilePath As String, outputfilePath As String)
        Dim EncryptionKey As String = "MAKV2SPBNI99212"
        Using encryptor As Aes = Aes.Create()
            Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, _
             &H65, &H64, &H76, &H65, &H64, &H65, _
             &H76})
            encryptor.Key = pdb.GetBytes(32)
            encryptor.IV = pdb.GetBytes(16)
            Using fs As New FileStream(inputFilePath, FileMode.Open)
                Using cs As New CryptoStream(fs, encryptor.CreateDecryptor(), CryptoStreamMode.Read)
                    Using fsOutput As New FileStream(outputfilePath, FileMode.Create)
                        Dim data As Integer
                        While (Assign(data, cs.ReadByte())) <> -1
                            fsOutput.WriteByte(CByte(data))
                        End While
                    End Using
                End Using
            End Using
        End Using
    End Sub
    ' Encrypter
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Encrypt("C:\Users\LePivert\Documents\Logiciels\astlog\readme.txt", "C:\Users\LePivert\Documents\monfichiercode.txt")'adapter les chemins
    End Sub
    ' Decrypter
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Decrypt("C:\Users\LePivert\Documents\monfichiercode.txt", "C:\Users\LePivert\Documents\monfichierdecode.txt")'adapter les chemins
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Crypter"
        Button2.Text = "Decrypter"
    End Sub
End Class

Aide sur le cryptage d'un fichier

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !