Zugriff auf verschlüsselte Dokumente???

[two7]

Hallo zusammen,

ich verweis als erstes auf mein letzten Beitrag: http://atnotes.de/index.php?topic=37973.0.

Der Agent läuft soweit auch ohne Probleme. Bei einigen Test ist mir allerdings aufgefallen, dass der Agent bei verschlüsselten Dokumenten immer mit der Meldung "Object Varaible not set" abbricht, da userdoc nicht gefüllt ist.

Das ist mir soweit auch klar, da die Dokumente verschlüsselt sind und ich daher kein Zugriff darauf erhalte. Ist es möglich dies zu umgehen, dass verschlüsselte Dokumente nicht abgefragt werden?

Code

userdbName = "mail\testmaildb.nsf"	
Set userdb = session.GetDatabase( "", userdbName )
Set userview = userdb.GetView("($All)")
Set userdoc = userview.GetFirstDocument

Allerdings habe ich hier keinen Ansatz, da ich ja userdoc mit GetFirstDocument und später mit GetNextDocument fülle.

Gruss two7

[klaussal]

Hilft dir das Beispiel aus de Hilfe weiter ?

Code

Sub Initialize
  Dim session As New Notessession
  Dim db As Notesdatabase
  Set db = session.Currentdatabase
  Dim dc As Notesdocumentcollection
  Set dc = db.Unprocesseddocuments
  Dim doc As notesdocument
  Set doc = dc.Getfirstdocument
  If doc.IsEncrypted Then
    Messagebox "Encrypted",, doc.Subject(0)
  Else
    Messagebox "Not encrypted",, doc.Subject(0)
  End If
End Sub

[DerAndre]

Bestimmt nicht, da es IsEncrypted erst ab R6 gibt.

Was man machen könnte wäre ein On Error Goto Sprungmarke Nächstes Doc

[klaussal]

Oh Schit, hatte übersehen, dass das ja R5 ist ...

[DerAndre]

Ich hab es auch schreiben wollen, hab es aber im letzten Moment auch gesehen...

[Driri]

Alternativ könnte man auch auf das Item $Seal prüfen. Wenn ich mich recht erinnere, wird das Item beim Verschlüsseln angelegt und enthält Schlüsselinformationen. Es gibt dann noch ein weiteres Item, daß die verschlüsselten Daten enthält (auch irgendwas mit $Seal...).

[DerAndre]

Hi Diri.

Das müsste gehen, denn das Feld gibt es heute noch.

27

versuch mal ob

doc.hasitem("$Seal") ein Ergebnis bringt.

[guesswho]

ich hab bei einem Agenten seit Notes 4.5 das Item "Encrypt" abgeprüft, wenn das "1" enthält, dann ist das Dok verschlüsselt. Funktioniert aktuell mit 6.5 noch.

Jo

[Glombi]

ich hab bei einem Agenten seit Notes 4.5 das Item "Encrypt" abgeprüft, wenn das "1" enthält, dann ist das Dok verschlüsselt. Funktioniert aktuell mit 6.5 noch.

Jo

Das Item ist aber ggf. nicht immer da. Es ist ein reserviertes Feld bspw. in der Maildatenbank.
Ich würde das Item $Seal abfragen. So hieß das Feld schon immer in Notes.

Ich glaube auch nicht, dass das Script an der Stelle
Set userdoc = userview.GetFirstDocument
rausspringt, denn das Document sollte da sein. Erst wenn auf "Body" (oder wie das verschlüsselte Feld auch heißen mag) zugreift, sollte das Script auf die Nase fallen.
Es sei denn, Notes 5 ist da buggy.


Andreas

[guesswho]

@Andreas: Ok, ich setz den Agent nur in Maildatenbanken zur Weiterleitung ein, danke für den Hinweis.

Dabei kann man auch bei verschlüsslten Docs auf das doc zugreifen, wenn verschlüsselt, kann man eben z.B. auf Body wegen Verschlüsselung nicht zugreifen, bei Subject, From etc funktioniert der Zugriff problemlos. Das Script sollte also bei
set userdoc = ...
wirklich (noch) nicht stolpern.

Jo

[two7]

hab das mal nun mit dem $seal ausprobiert.

mein code

Code

Dim tmp As Integer
tmp = userdoc.hasitem("$Seal")
If tmp = 0 Then
While Not (userdoc Is Nothing)
....

interessant ist dabei, dass wenn ich mir tmp als MsgBox oder via Print ausgeben lasse, er bei manchen verschlüsselten Dokumenten "-1" ausgibt und bei dem Rest "0". Allerdings steigt das Script immer noch mit o.g. Fehlermeldung aus. Habe dann mal das Dokumente bei dem es aussteigt und die anderen Dokumente, die verschlüsselt sind, es aber funktioniert, miteinander verglichen und bei allen existiert das $Seal-Feld und ist gefüllt.

Versteh einfach nicht, warum es einmal funktioniert und einmal nicht.
Kann auch Gerne mal die DB jm. zukommen lassen, wenn er das gerne mal näher betrachen will, denn nur vom schreiben ist wohl das Problem schwer zu lösen.

two7

[guesswho]

ist interessant, ich schau mir das morgen mal an, muss jetzt leider kurz weg, aber würde mich nun auch interessieren.

seven2 

[two7]

auf das encrypt-feld erhalte ich kein zugriff. ich seh, dass es bei verschlüsselten dokumenten existiert, wenn ich aber mittels

if Not(IsEmpty(userdoc.Encrypt) Then .......

dann heißt es nur "illegal reference to: ENCRYPT" .... wobei das Feld ja existiert, wenn es verschlüsselt ist.

Wenn ich mit

If userdoc.hasItem(Encrypt) Then .......

ran gehe, dann passiert gar nichts, außer das Notes die CPU mit 100& belastet und schon bei der ersten Prüfung hängenbleibt (da in meiner LogDB nicht mal ein Eintrag angelegt wird, ist dies daruas zu folgern.)

 

[guesswho]

auch wenn das Feld Encrypt wohl eher nicht generell geeignet ist: ich habs mit folgendem Code in Mail-Datenbanken, NUR in Mail-Datenbanken verwendet

If note.HasItem("Encrypt") Then
 Set item = note.GetFirstItem("Encrypt")
  If  item.Contains("1") Then
    fwitem.AppendText("DER INHALT DES MAILS WURDE VOM ABSENDER VERSCHLÜSSELT")
    fwitem.AppendText("Sie können den Inhalt des Dokuments deshalb nicht sehen")
  End If
End If

aber nochmal: lt. Andreas ist das ein reserviertes Feld in der Mail-Datenbank, viellleicht ist das in deiner Datenbank nicht vorhanden.

Jo

[two7]

funktioniert einwandfrei. Vielen Dank.
Interessant ist aber, wenn ich statt

If  item.Contains("1") Then

If  Not (item.Contains("1")) Then

eingebe, das Script wieder die CPULast auf 100% treibt Aber solange die erste Variante geht, reicht mir das schon.

Hab da noch eine weitere Frage, die habe ich allerdings in einem neuen Thread gestellt http://atnotes.de/index.php?topic=38342.0

[koehlerbv]

Wenn ich eine EOL-Version betreiben würdet, würde ich ja dringend einen PMR bei IBM empfehlen.

Dieses Verhalten kenne ich gar nicht. Welche Version setzt Ihr denn ein, 2-7?

Interessehalber: Was passiert, wenn Du statt
If  Not (item.Contains("1")) Then
folgende Notation verwendest:
If note.Encrypt (0) <> "1" Then
?

Bernhard