DominoArea.org [Archive]

Bonjour,
J'ai des mail qui ont été chiffré par erreur dans une bal et j'aimerai les déchiffré.
J'ai essayer :

Code : Tout sélectionner

doc.encrypt="0"

mais ça ne marche pas, les mails restent chiffré.

Cordialement

Normale

le champ encrypt est juste la pour dire qu'il faut ou pas chiffrer le mail. il ne sert pas a chriffré.

la clé de chiffrement/déchiffrement c'est l'id de la personne.

Bonjour,
J'ai l'Id qui a servi à crypter les messages. Comment procéder pour déchiffrer en utilisant la clé de chiffrement ?
Je souhaiterais faire un agent pour déchiffrer l'ensemble des messages chiffrés (nombreux) car l'utilisateur souhaite faire une délégation de sa messagerie à ses collaborateurs.

Ci-dessous le code que j'ai commencé à établir :

Code : Tout sélectionner

Dim session As New notessession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim collection As NotesDocumentCollection
    Dim i As Integer
    Dim encryptFlag As Variant
    Dim item As NotesItem
   
    Set db = session.CurrentDatabase
   
    Set collection = db.UnprocessedDocuments
   
    i=1
    Set doc = collection.GetFirstDocument()
   
    encryptFlag = doc.getItemValue("Encrypt")
   
    If encryptFlag(0) = "1" Then
        Call doc.ComputeWithForm( True, False )
        Set item = doc.ReplaceItemValue( "Encrypt", "0")
        'ou bien utiliser cette ligne à la place de la ligne au dessus
        'call doc.ReplaceItemValue( "Encrypt", "0")
        Call doc.Save( True, True )
    End If
    Print "décryptage du document " + Cstr(I) + " sur " + Cstr(db.UnprocessedDocuments.Count)
    I=I+1
    Set doc = collection.GetNextDocument(doc)


Comme le précise @Michael, le champ encrypt est juste un indicateur, je pense que le fait de recalculer tout le masque ne changera rien. L'idée serait plutôt de reconstruire chaque champ Body et peut-être les pièces jointes... juste une idée, il y a peut-être plus simple.

j'ai jamais essayé, mais en regardant l'aide, je vois une méthode isEncrypted et une méthode encrypt pour NotesDocument
mais je ne vois rien pour décrypter ...

tu ne vois rien, parce que c'est le client qui décrypte a la volé avec l'id.

Bonjour,
je vous envoie ci-dessous l'agent pour décrypter les mails.

Code : Tout sélectionner

Dim session As New notessession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim collection As NotesDocumentCollection
    Dim i As Integer
    Dim encryptFlag As Variant
    Dim item As NotesItem
   
    Set db = session.CurrentDatabase
   
    Set collection = db.UnprocessedDocuments
   
    i=1
    Set doc = collection.GetFirstDocument()
     Call doc.removeitem("$Seal")
      Call doc.removeitem("$SealData")
      Call doc.removeitem("Encrypt")
      Call doc.save(True, False)

    Print "décryptage du document " + Cstr(I) + " sur " + Cstr(db.UnprocessedDocuments.Count)
    I=I+1
    Set doc = collection.GetNextDocument(doc)

Bien vue

Merci pour le code, je le passe en tips => viewtopic.php?f=47&t=28658