CRYPTAGE ET DÉCRYPTAGE DE CHAÎNES ET DE FICHIERS [MODULE DE CLASSE]

Commentaire de asimengo le 27/10/2008 11:13:09

super intéressant.

Je te fais une proposition si tu peux la trouver intéressante.
l'ajout de la méthode (dé)cryptage de recordset.
Pour le cryptage envoie en paramètres le ADODB.Recordset et pour le décryptage pareil retour d'un recordset (bien évidemment le résultat sera dans un paramètre Byref).

En fait tu traites déjà, disons 80% de ce cas avec les méthodes "(dé)cryptage de tableau de byte" vu que tu tiens compte de la dimension du tableau.
La seule différence pour le recordset sera dans le fichier de cryptage de sauvegarder à l'entête la définition des champs et pour le décryptage la reconstitution du recordset. Cette méthode sera d'autant plus intéressante que le décryptage se fait en mémoire.

Si tu faisais cette mise jour je suis preneur, je pense qu'il y'aurait pas mal d'application.

Commentaire de asimengo le 27/10/2008 16:30:48

Oui en fait c'est bien d'un RS que je parle, peu importe que ce soit une table ou résultat de requête.

Ce n'est nullement pas dans le but de me faire une BD propriétaire.

En fait j'ai crée pour mon exploitation perso des composants permettant de piloter une appli entière depuis une base de données personnalisée. Cette base de données contient la structure de toutes les tables de la BD, les menus, les paramètres, la structure de tous les combos, la structure des formualaires, .... Ces composants creent dynamiquement les contrôles des formulaires en fonction des commandes. Aucun souci vitesse, on n'a même pas l'impression.

C'est cette base de données perso que je veux crypter question de protéger ma technique. En effet il suffit d'avoir ses composants et connaitre la structure de cette base de données perso pour me copier le Copyright.

Ta source m'intéresse effectivement pour crypter chaque table de ma bd perso (bd non relationnelle, je n'en ai pas besoin puisque c'est moi qui la fournit) et de pouvoir la mettre en mémoire, ce que je fais déjà en ce moment à la différence que la source n'est pas crypter et la technique non protégée.
Dans tous les cas je dois passer par là, mais s'il y'a déjà une source ready to use, c'est plutot mieux de démarrer sur des references qui marchent.

NB: Je suis uniquement intéressé par la méthode de Fichier crypter à mémoire. Donc d'une classe ayant les caractéristiques similaires d'un RS, mais avec juste en plus la propriété pour indiquer le chemin du fichier source et la code de cryptage.

Commentaire de asimengo le 28/10/2008 15:26:48

@PCPT : Merci une fois de plus de la peine que tu t'es donné pour ma demande.

En définitive je pense que ta méthode "(dé)cryptage de tableau de byte" me suffirait largement, après le reste je manage suivant mes besoins.

En effet, il me suffit de passer à ta méthode "tableau" légèrement modifiée, le RS.getrow. En effet il me faudra les enregs en ligne et les champs en colonne. Pour avoir la structure des champs, il faudra passer aux 4 premières lignes respectivement les proprités champs Name, Type, DefinedSize, Attributes. J'aime bien toujours que mes composants soient autonomes.

Au décrytage, une lecture séquentielle permet de reconstituer aisément le RS, ou dans mon cas ma Classe de gestion dynamique des items.

Pour le clone du recordset, ci-dessous le code que j'utilise
'Copie les enregistrements de poRstSource dans poRstDestination
Public Function MakeCloneRecordset(ByVal poRstSource As ADODB.Recordset, ByRef poRstDestination As ADODB.Recordset, Optional ByVal pbIgnoreData As Boolean = False, Optional ByRef paMaxLenghtFields As Variant) As Boolean
On Error GoTo Err_MakeCloneRecordset
Dim oFld As ADODB.Field, vBookmark As Variant, bEvaluateMaxLenght As Boolean, lCpt As Long

    Set poRstDestination = New ADODB.Recordset
    With poRstDestination
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockPessimistic
        'Initialisation de la liste des champs
        For Each oFld In poRstSource.Fields
            .Fields.Append oFld.Name, oFld.Type, oFld.DefinedSize, oFld.Attributes
        Next oFld
        'Préparation du tableau pour la recupération de la taille max des champs
        If Not IsMissing(paMaxLenghtFields) Then
            bEvaluateMaxLenght = True
            ReDim paMaxLenghtFields(1 To .Fields.Count) As Long
        End If
        
        'Ouverture du recordset pour remplissage
        .Open
    End With
    
    If Not pbIgnoreData Then
        'Remplissage du recordset
        With poRstSource
        'On peut aussi faire With poRstSource.Clone(adLockReadOnly), ainsi on ne s'embetera plus avec la gestion des bookmarks.
        'Mais je me suis demandé si ce n'était pas du temps perdu cette méthode, temps de Clone.
        'je ne me suis pas penché dessus pour voir les différences de vitesse.
            If .RecordCount <> 0 Then
                vBookmark = .Bookmark
                .MoveFirst
                Do While Not .EOF
                    poRstDestination.AddNew
                    For Each oFld In .Fields
                        lCpt = lCpt + 1
                        poRstDestination.Fields(oFld.Name).Value = oFld.Value
                        If bEvaluateMaxLenght And Not IsNull(oFld.Value) Then paMaxLenghtFields(lCpt) = MaxValues(paMaxLenghtFields(lCpt), Len(Str(oFld.Value)))
                    Next oFld
                    poRstDestination.Update
                    .MoveNext
                Loop
                .Bookmark = vBookmark
                poRstDestination.MoveFirst
            End If
        End With
    End If
    
    MakeCloneRecordset = True

Exit_MakeCloneRecordset:
    Exit Function

Err_MakeCloneRecordset:
    MsgBox Err.Description
    Resume Exit_MakeCloneRecordset
End Function

Merci encore.
A+