Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


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

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

Masculin Nombre de messages : 110
Age : 17
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

Message par SZ_Débutant le 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 ~
avatar
polien


Masculin Nombre de messages : 2871
Age : 21
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

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

Message par polien le 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 ?



Cordialement,
Polien.

You want to have an english help for Software Zator ? Let's try to read the first tutorial in english Wink : CLIC HERE
BESOINS D'UN TUTO? CONSULTER LE SOMMAIRE !

Débutez avec SZ avec les tutos en pdf !
avatar
lereparateurdepc


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

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

Message par lereparateurdepc le 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



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


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

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

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

Message par SZ_Débutant le 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 ~
avatar
lereparateurdepc


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

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

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

re,

Pas de soucis Smile

Cordialement,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA



Contenu sponsorisé

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

Message par Contenu sponsorisé


    La date/heure actuelle est Mar 17 Oct 2017 - 2:05