Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_CRC32
Erstellt den CRC32 Code aus dem übergebenen Stream.
Dim session As New NotesSession
Dim stream As NotesStream
Dim crc As Variant
Set stream = session.Createstream()
Call stream.writetext("Wer reitet so spät durch Nacht und Wind?", EOL_NONE)
crc = CNCL_CRC32(stream)
Print CNCL_ByteToText(crc, "hex")
Ausgabe:
364B3317