Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_Adler32
Erstellt die Prüfsumme gemäß dem Adler-32-Algorithmus und gibt den Wert als Array mit 4 Bytes zurück.
Dim session As New NotesSession
Dim stream As NotesStream
Dim adler32 As Variant
Set stream = session.Createstream()
Call stream.writetext("Wer reitet so spät durch Nacht und Wind?", EOL_NONE)
adler32 = CNCL_Adler32(stream)
Print CNCL_ByteToText(adler32, "hex")
Ausgabe:
6BF80ED5