Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_ByteRotateRight
Rotiert die Bits des übergebenen Bytes oder Array von Bytes nach rechts.
Dim a As Byte
Dim i As Integer
Dim b(0 To 2) As Byte
Dim c As Variant
a = &b00011001
For i = 1 To 10
Print Right(UString(8,"0")+Bin(a), 8)
a = CNCL_ByteRotateRight(a, 1, True)
Next
Print "Array mit 3 Bytes"
b(0) = &b00110010
b(1) = &b01010101
b(2) = &b00001111
c = b
For i = 1 To 10
Print CNCL_Bytetotext(c, "binär")
c = CNCL_ByteRotateRight(c, 2, False)
Next
Ausgabe:
00011001
10001100
01000110
00100011
10010001
11001000
01100100
00110010
00011001
10001100
Array mit 3 Bytes
000011110101010100110010
100000111101010101001100
001000001111010101010011
110010000011110101010100
001100100000111101010101
010011001000001111010101
010100110010000011110101
010101001100100000111101
010101010011001000001111
110101010100110010000011