Mail chiffré

[DomNotes]

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

[Michael DELIQUE]

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.

[DomNotes]

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)


[Dominux]

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.

[roubech]

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 ...

[Michael DELIQUE]

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

[DomNotes]

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)

[Michael DELIQUE]

Bien vue

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