#lang racket

(define c1 (list #x32 #x1b #x61 #x49 #x48 #x1c #x03 #x2a #x1e #x06 #x5e #x32 #x28 #x24 #x5c #x24))
(define c2 (list #x1a #x12 #x12 #x3c #x48 #x39 #x58 #x01 #x39 #x41 #x50 #x41 #x2a #x18 #x5c #x1c))
(define c3 (list #x1c #x1c #x22 #x2d #x47 #x5f #x29 #x29 #x37 #x78 #x02 #x26 #x2b #x3e #x08 #x1e))

(define known-str (bytes->list #"js61xumi"))
(define known-str-len (length known-str))

(define key-part-1 (map bitwise-xor known-str (take c1 known-str-len)))
(define key-part-2 (map bitwise-xor known-str (drop c2 known-str-len)))
(define key (append key-part-1 key-part-2))

(define (decrypt bytes key)
  (map bitwise-xor bytes key))

(define m1 (decrypt c1 key))
(define m2 (decrypt c2 key))
(define m3 (decrypt c3 key))

(displayln (list->bytes m1))
(displayln (list->bytes m2))
(displayln (list->bytes m3))
(displayln (list->bytes key))