Etienne BAUDOUX

Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX

Le Deal du moment :
Fnac : 2 Funko Pop achetées : le 3ème ...
Voir le deal

3 participants

    [résolu]Erreur de décryptage de fichier

    SZ_Débutant
    SZ_Débutant
    On commence à connaître
    On commence à connaître


    Masculin Nombre de messages : 110
    Age : 23
    Localisation : France, Pays De La Loire
    Emploi/loisirs : Mathématiques, informatique, programmer, badminton
    Humeur : Parfaitement bien !
    Date d'inscription : 26/11/2012

    [résolu]Erreur de décryptage de fichier Empty [résolu]Erreur de décryptage de fichier

    Message par SZ_Débutant Sam 28 Fév 2015 - 11:34

    Bonjour à tous,
    Je suis désolé pour mon inactivité de 5 mois. J'ai vraiment beaucoup de boulot et je ne voudrais pas passer pour le mec qui se connecte juste pour poser son problème.
    Je regarde souvent le forum (sans me connecté) pour voir les nouveaux problèmes.

    Le problème que j'ai rencontré est déjà sur le forum mais il n'y a pas eu de message depuis. Neutral
    Le problème est le décryptage de fichier. Lorsque je demande de décrypter un fichier dans un dossier, la génération du problème ne se termine pas correctement et la correction des erreurs ne fonctionne pas.
    Dans la correction des erreur, la description est :
    "'VelerSoftware_GeneralPlugin' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.".

    Je ne comprend pas car j'utilise la version 2014, je n'ai jamais eu ce problème auparavant et aujourd'hui, je suis perdu ! Pourquoi cela fait ça Question Question
    Merci d'avance,
    Bonne journée,
    ~ SZ_Débutant ~
    polien
    polien



    Masculin Nombre de messages : 3002
    Age : 27
    Localisation : Bouches du Rhones
    Emploi/loisirs : velo, informatique, électronique, robotique, modélisme feroviaire
    Humeur : Je commence tout mais ne finit rien :P
    Date d'inscription : 19/05/2011

    [résolu]Erreur de décryptage de fichier Empty Re: [résolu]Erreur de décryptage de fichier

    Message par polien Sam 28 Fév 2015 - 11:42

    Bonjour,

    (Niveau inactivité, on a des membres absents depuis plus de 4 ans donc ça va amusé )
    Là c'est un bug...
    As tu modifié le code de l'action concernée ?
    lereparateurdepc
    lereparateurdepc



    Masculin Nombre de messages : 5621
    Age : 31
    Localisation : Calvados
    Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
    Humeur : toujours cool
    Date d'inscription : 31/01/2010

    [résolu]Erreur de décryptage de fichier Empty Re: [résolu]Erreur de décryptage de fichier

    Message par lereparateurdepc Sam 28 Fév 2015 - 12:34

    re,

    Idem chez moi mais il me semble que oui, le bug est connus mais là..... pas d'idée.

    J'ai pas mal de chose mais je vais essayer d'y regarder Smile

    Autre chose, j'ai ensuite tenté un encryptage et pas d'erreur de génération.
    J'ai ensuite mis les 2, idem, pas d'erreur.
    Pour finir, j'ai remis que le décryptage et erreur.
    Il y a un bug dans l'action du décryptage. Une déclaration/appel semble manquante.

    EDIT : solution trouvée!!
    C'est bien un bug de l'action.
    Pour fonctionner, l'encryptage et le décryptage utilisent le même code et ce code est automatiquement ajouté au projet si l'on utilise une des 2 actions.
    OR, sur le décryptage, rien, pas de génération du code Sad il faut donc l'ajouter manuellement.
    Dans le premier onglet de la Fenêtre où se trouve l'action de décryptage, met le code VB suivant :
    Code:

    Partial Public Class VelerSoftware_GeneralPlugin

        ' Créer une clé
        Shared Function CreateKey(ByVal strPassword As String) As Byte()
            Dim chrData() As Char = strPassword.ToCharArray
            Dim intLength As Integer = chrData.GetUpperBound(0)
            Dim bytDataToHash(intLength) As Byte
            For i As Integer = 0 To chrData.GetUpperBound(0)
                bytDataToHash(i) = CByte(Microsoft.VisualBasic.Asc(chrData(i)))
            Next
            Dim SHA512 As New System.Security.Cryptography.SHA512Managed
            Dim bytResult As Byte() = SHA512.ComputeHash(bytDataToHash)
            Dim bytKey(31) As Byte
            For i As Integer = 0 To 31
                bytKey(i) = bytResult(i)
            Next
            Return bytKey
        End Function

        ' Créer un IV
        Shared Function CreateIV(ByVal strPassword As String) As Byte()
            Dim chrData() As Char = strPassword.ToCharArray
            Dim intLength As Integer = chrData.GetUpperBound(0)
            Dim bytDataToHash(intLength) As Byte
            For i As Integer = 0 To chrData.GetUpperBound(0)
                bytDataToHash(i) = CByte(Microsoft.VisualBasic.Asc(chrData(i)))
            Next
            Dim SHA512 As New System.Security.Cryptography.SHA512Managed
            Dim bytResult As Byte() = SHA512.ComputeHash(bytDataToHash)
            Dim bytIV(15) As Byte
            For i As Integer = 32 To 47
                bytIV(i - 32) = bytResult(i)
            Next
            Return bytIV
        End Function

        Public Enum CryptoAction
            ActionEncrypt = 1
            ActionDecrypt = 2
        End Enum

        ' Encrypter/Décrypter un fichier
        Shared Sub EncryptOrDecryptFile(ByVal strInputFile As String, ByVal strOutputFile As String, ByVal bytKey() As Byte, ByVal bytIV() As Byte, ByVal Direction As CryptoAction)
            Dim fsInput As System.IO.FileStream
            Dim fsOutput As System.IO.FileStream
            fsInput = New System.IO.FileStream(strInputFile, System.IO.FileMode.Open, System.IO.FileAccess.Read)
            fsOutput = New System.IO.FileStream(strOutputFile, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write)
            fsOutput.SetLength(0)
            Dim bytBuffer(4096) As Byte
            Dim lngBytesProcessed As Long = 0
            Dim lngFileLength As Long = fsInput.Length
            Dim intBytesInCurrentBlock As Integer
            Dim csCryptoStream As System.Security.Cryptography.CryptoStream
            Dim cspRijndael As New System.Security.Cryptography.RijndaelManaged
            Select Case Direction
                Case CryptoAction.ActionEncrypt
                    csCryptoStream = New System.Security.Cryptography.CryptoStream(fsOutput, _
                    cspRijndael.CreateEncryptor(bytKey, bytIV), _
                    System.Security.Cryptography.CryptoStreamMode.Write)
                    While lngBytesProcessed < lngFileLength
                        intBytesInCurrentBlock = fsInput.Read(bytBuffer, 0, 4096)
                        csCryptoStream.Write(bytBuffer, 0, intBytesInCurrentBlock)
                        lngBytesProcessed = lngBytesProcessed + CLng(intBytesInCurrentBlock)
                    End While
                    csCryptoStream.Close()

                Case CryptoAction.ActionDecrypt
                    csCryptoStream = New System.Security.Cryptography.CryptoStream(fsOutput, _
                    cspRijndael.CreateDecryptor(bytKey, bytIV), _
                    System.Security.Cryptography.CryptoStreamMode.Write)
                    While lngBytesProcessed < lngFileLength
                        intBytesInCurrentBlock = fsInput.Read(bytBuffer, 0, 4096)
                        csCryptoStream.Write(bytBuffer, 0, intBytesInCurrentBlock)
                        lngBytesProcessed = lngBytesProcessed + CLng(intBytesInCurrentBlock)
                    End While
                    csCryptoStream.Close()
            End Select
            fsInput.Close()
            fsOutput.Close()
        End Sub

    End Class

    MAIS comme il y a un bug sur l'action VB dans cette onglet, utilise l'action VB d'un évènement comme le Clique d'un bouton.
    Copie l'action et colle-la dans le premier onglet; supprime l'action VB dans l'évènement Clique du bouton.

    Cordialement,
    Le réparateur de PC
    SZ_Débutant
    SZ_Débutant
    On commence à connaître
    On commence à connaître


    Masculin Nombre de messages : 110
    Age : 23
    Localisation : France, Pays De La Loire
    Emploi/loisirs : Mathématiques, informatique, programmer, badminton
    Humeur : Parfaitement bien !
    Date d'inscription : 26/11/2012

    [résolu]Erreur de décryptage de fichier Empty Re: [résolu]Erreur de décryptage de fichier

    Message par SZ_Débutant Sam 28 Fév 2015 - 13:47

    Re,
    Merci beaucoup ! Cela a fonctionné. Je n'aurais jamais trouvé tout seul ! Merci encore à vous ! Wink
    ~ SZ_Débutant ~
    lereparateurdepc
    lereparateurdepc



    Masculin Nombre de messages : 5621
    Age : 31
    Localisation : Calvados
    Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
    Humeur : toujours cool
    Date d'inscription : 31/01/2010

    [résolu]Erreur de décryptage de fichier Empty Re: [résolu]Erreur de décryptage de fichier

    Message par lereparateurdepc Sam 28 Fév 2015 - 15:26

    re,

    Pas de soucis Smile

    Cordialement,
    Le réparateur de PC

    Contenu sponsorisé


    [résolu]Erreur de décryptage de fichier Empty Re: [résolu]Erreur de décryptage de fichier

    Message par Contenu sponsorisé


      La date/heure actuelle est Jeu 28 Mar 2024 - 9:57