Das Notes Forum

Lotus Notes / Domino Sonstiges => Tools & Downloads => Thema gestartet von: Desperado am 15.08.02 - 21:53:59

Titel: Suche Tool für Entschlüsselung
Beitrag von: Desperado am 15.08.02 - 21:53:59

Meine Mails sind unter Lotus Notes standardmäßig verschlüsselt. Wenn ich die Verschlüsselung aufhebe, gilt das nur für neu ankommende Mails. Wie kann ich meine alten Mails entschlüsseln?
Für jeden Hinweis bin ich dankbar.

Titel: Re: Suche Tool für Entschlüsselung
Beitrag von: Meff am 16.08.02 - 07:40:04

Hi Desperado,

das Thema wurde bereits ein paar mal im Forum besprochen. Schau mal hier rein, das kann Dir vielleicht helfen.

http://www.atnotes.de/cgi-bin/yabb/YaBB.pl?board=R5TIP;action=display;num=1029233863

Meff ;)

Titel: Re: Suche Tool für Entschlüsselung
Beitrag von: Desperado am 16.08.02 - 08:06:29

Wäre toll, aber die Seite gibt's nicht. Gibt es noch eine andere Quelle, denn das mit dem Script wäre genau das richtige.

Bei dem Link wird verwiesen auf http://searchdomino.techtarget.com/tip/1,289483,sid4_gci788705,00.html?F romTaxonomy=%2Fpr%2F283826 ,
aber die Seite gibt's nicht, es gibt nicht mal die Seite
http://searchdomino.techtarget.com/
Bitte dringend um Hilfe.

Titel: Re: Suche Tool für Entschlüsselung
Beitrag von: JoJo am 16.08.02 - 09:16:23

Der Link funktioniert wunderbar. Hier das Skript:

Unencrypting mail

Vladimir Tankhimovich
27 Dec 2001, Rating 5.00 (out of 5)

To unencrypt mail, create a LotusScript agent and run it using ID with the same public key that was used to encrypt.



Code


Sub Initialize
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim coll As NotesDocumentCollection
     Set db = session.CurrentDatabase
     Set coll = db.allDocuments
     Set docMemo = coll.GetFirstDocument
     While (Not docMemo Is Nothing)
           Set item = docMemo.GetFirstItem("Body")
           If Not item Is Nothing Then item.IsEncrypted = False
           Set item = docMemo.GetFirstItem("Encrypt")
           If Not item Is Nothing Then Call item.Remove
           Set item = docMemo.GetFirstItem("$Seal")
           If Not item Is Nothing Then Call item.Remove
           Call docMemo.Save(False, False)      
           Set docMemo = coll.GetNextDocument(docMemo)
     Wend
End Sub

Titel: Re: Suche Tool für Entschlüsselung
Beitrag von: Meff am 16.08.02 - 09:23:16

@Forum

ich habe noch ne andere Lösung, werde diese mal auf unseren Server legen.

Meff ;)

Titel: Ihr seid super
Beitrag von: Desperado am 16.08.02 - 09:56:07

Vielen Dank für Eure Hilfe.
Meff: Andere Lösungen interessieren mich auch, also wenn Du noch welche hast und auf den Server legst, wär klasse.
Nochmals Danke
Desperado

Titel: Re: Suche Tool für Entschlüsselung
Beitrag von: HordesPrime am 16.12.04 - 12:28:17

ich habe mal das von jojo und das über searchdomino.com angebotete wntschlüsselungsscript probiert. das prob dabei ist nur, das attachements nach der entschlüsselung NICHT mehr lesbar sind.

fehlermeldung:
geben sie den decodierungsschlüssel...blabla

wie kann ich dieses problem beheben.

zur info

domino 5.011 server
notes 5.011 client

thx

Titel: Re: Suche Tool für Entschlüsselung
Beitrag von: franki2 am 30.04.06 - 12:27:22

Moin Moin,

ich weis der Thread ist schon ewig alt.
Bei uns hat mal jemand eine Mailschablone entwickelt, in der eine Entschlüsselungsfunktion eingebaut ist.
Soweit ich weis, liegt da kein Urheberrecht drauf.

Bei Fragen mir Mailen.

Grüße

Franki2