dla_rafala.R

library(digest)

## Warning: package 'digest' was built under R version 3.6.2

library(base64enc)

# wiadomosc ktora przychodzi z kontrolera + dodane zera na koncu
msg = "sBk4owmW6sdJeSbN4XWPf7misl2qUkEo6qzK9Cqc8PpEki7HpG7J4AQtdzqE4Oyr0M7ifaMsTWSgfgDE2GEYd9MtvYrLZa1tCY0VoVwpsJPRAbojRF5bh1X8W08gR3t3eo-Eh7aTQdFv33b1SkXr_lbFhU9RWdgmWrPdTv3uSyMIUvODtMuwTeTVBFQkbQXM9h9PWS7Z0qs8hhkZMuTCig00"

# liczba znakow
nchar(msg)

## [1] 216

# dekodowanie z base64:
msg2 = base64decode(msg)
print(msg2)

##   [1] b0 19 38 a3 09 96 ea c7 49 79 26 cd e1 75 8f 7f b9 a2 b2 5d aa 52 41 28 ea
##  [26] ac ca f4 2a 9c f0 fa 44 92 2e c7 a4 6e c9 e0 04 2d 77 3a 84 e0 ec ab d0 ce
##  [51] e2 7d a3 2c 4d 64 a0 7e 00 c4 d8 61 18 77 d3 2d bd 8a cb 65 ad 6d 09 8d 15
##  [76] a1 5c 29 b0 93 d1 01 ba 23 44 5e 5b 87 55 fc 5b 4f 20 47 7b 77 7a 81 21 ed
## [101] a4 d0 74 5b f7 dd bd 52 91 7a e5 6c 58 54 f5 15 9d 82 65 ab 3d d4 ef de e4
## [126] b2 30 85 2f 38 3b 4c bb 04 de 4d 50 45 42 46 d0 5c cf 61 f4 f5 92 ed 9d 2a
## [151] b3 c8 61 91 93 2e 4c 28 a0 d3

length(msg2) # 160 elementow

## [1] 160

# klucz
key = charToRaw("abcdefgh20161234")
print(key)

##  [1] 61 62 63 64 65 66 67 68 32 30 31 36 31 32 33 34

# ustawienie kodowania na ECB:
aes <- AES(key, mode="ECB")
aes$decrypt(msg2, raw = FALSE)

## [1] "Now=2021011512275806&Crc=65535&T1=0.00&H1=0.00&T2=0.00&H2=0.00&Key=230&Index=16532&Serial=87P138&\x8fk\x82i\x94q0\"\xb8C\xe4Kn\xb45\031\026\xe84O\021\xb7m\xd4\xf1Q\xe4\026\xf3r-\020\x98U\xb2\x96&Ӂ5\x94O\001j\x84\xf4\024}\xca\xec\x90\xc2&\xe8ce\xc5⟷O%\xc7"

# to samo szesnastkowo:
aes$decrypt(msg2, raw = TRUE)

##   [1] 4e 6f 77 3d 32 30 32 31 30 31 31 35 31 32 32 37 35 38 30 36 26 43 72 63 3d
##  [26] 36 35 35 33 35 26 54 31 3d 30 2e 30 30 26 48 31 3d 30 2e 30 30 26 54 32 3d
##  [51] 30 2e 30 30 26 48 32 3d 30 2e 30 30 26 4b 65 79 3d 32 33 30 26 49 6e 64 65
##  [76] 78 3d 31 36 35 33 32 26 53 65 72 69 61 6c 3d 38 37 50 31 33 38 26 8f 6b 82
## [101] 69 94 71 30 22 b8 43 e4 4b 6e b4 35 19 16 e8 34 4f 11 b7 6d d4 f1 51 e4 16
## [126] f3 72 2d 10 98 55 b2 96 26 d3 81 35 94 4f 01 6a 84 f4 14 7d ca ec 90 c2 26
## [151] e8 63 65 c5 e2 9f b7 4f 25 c7