プログラムまたは関数（またはプログラム/関数のセット）を作成して、次の仕様でデータを暗号化および復号化します。

暗号化

1. 各バイトを相互にXOR演算することにより、入力のXORハッシュを計算します。

2. 入力のすべてのバイトをこのハッシュでXORします。

3. 結果を4ビット左にシフトします。

4. XORハッシュの最初の4ビットで左側を埋め込みます。

5. XORハッシュの最後の4ビットを右側に埋め込みます。

例

• 与えられた入力："G0lf"（0x47306C66）

• XORハッシュを計算します。 0x47 ^ 0x30 ^ 0x6C ^ 0x66 = 0x7D

• ハッシュごとにすべてのバイトをXORします。 0x3A4D111B

• 期待される結果（シフトとパッドの後）： （）"s¤Ñ\x11½"0x73A4D111BD

ルール

• プログラム/関数は、入力/出力が実際のバイトである限り、選択したゴルフ言語（文字列、バイト配列など）で意味のある任意のタイプの入出力を行うことができます。たとえば、16進文字列を出力することはできません。

• 暗号化と復号化は、個別のプログラム（スコアはそれらの合計サイズになります）または単一のプログラムに分離できます。単一のメソッドは、暗号化または復号化する必要があるかどうかの引数を取ることができます。

• 暗号化の入力は、少なくとも1バイトのサイズであると予想されます。

• 復号化のための入力は、少なくとも2バイトであると予想されます。

• 出力で非印刷バイトをエスケープする必要はありません。

CJam、28 + 27 = 55バイト

各部分について、入出力が整数配列の形式であると想定するプログラムと、文字列を使用するプログラムを提示しています。上記のバイトカウントは整数配列バージョン用ですが、リンクされたスクリプトと説明は文字列ベースのバージョン用です（質問に記載されている例をテストするために使用できます）。

暗号化

q~_:^_GbYUe[\@f^Gfbe_*2/Gfbp
q:i_:^_GbYUe[\@f^Gfbe_*2/Gfb:c

解読

q~{_G/\G%}%)\(G*@+\2/Gfbf^p
q:i{_G/\G%}%)\(G*@+\2/Gfbf^:c

完全な往復を行い、暗号化されたコードを印刷してから再度復号化を行うテストスクリプトを次に示します。

説明

q:i_:^_GbYUe[\@f^Gfbe_*2/Gfb:c
q:i                            e# Read the input and convert characters to byte values.
   _:^                         e# Duplicate and fold XOR onto the characters to get 
                               e# the hash.
      _Gb                      e# Duplicate and convert to base 16 to get nibbles.
         YUe[                  e# Pad to width 2 with zeroes.
             \@                e# Pull up other copy and integer array.
               f^              e# XOR each integer with the hash.
                 Gfbe_         e# Convert each result to base 16 and flatten that.
                      *        e# Join the hash nibbles with this array.
                       2/      e# Split into pairs.
                         Gfb   e# Interpret each pair as base 16.
                            :c e# Convert each integer to a character.

q:i{_G/\G%}%)\(G*@+\2/Gfbf^:c
q:i                            e# Read the input and convert characters to byte values.
   {      }%                   e# Map this block onto each byte.
    _G/\G%                     e# Get the two base 16 digits individually.
            )\(                e# Slice off the last and first nibble.
               G*@+\           e# Combine into byte (the hash) and swap with array.
                    2/Gfb      e# Split array into pairs and interpret each as base 16.
                         f^    e# XOR each with the hash.
                           :c  e# Convert each integer to a character.

CJam、36 + 34 = 70バイト

バイナリ形式を使用した少し異なるアプローチ

暗号化者：

q_:^:Hf^H+{i2b8Ue[}%)4/~@\]e_8/2fb:c

使い方：

q_:^                                  e# Read input as string, copy and XOR all the chars
    :Hf^                              e# Store the XOR in H and XOR each char with H
        H+                            e# Append H to the char array
          {       }%                  e# On each of the elements in the array
           i2b                        e# Convert the ASCII value to binary
              8Ue[                    e# Pad with 0 so that the length is 8
                    )                 e# Pop out the last array element, which is H
                     4/~@\            e# Put first 4 bits of H before the input array
                                      e# And rest 4 after it
                          ]e_8/       e# Flatten everything into a single array and group
                                      e# into pieces of 8 bits
                               2fb:c  e# Convert each 8 bit part to integer and then to
                                      e# its character form

解読者：

q{i2b8Ue[4/~}%)\(@+2b\:+8/2fb\f^:c

使い方：

q{          }%                      e# For each character of the input string
  i2b                               e# Convert to ASCII code and then to its binary form
     8Ue[                           e# Pad with enough 0 so that length is 8 bit
         4/~                        e# Split into parts of 4 and unwrap
              )\(@+                 e# Take out the first and last 4 bit group and join
                                    e# them together to get the XOR Hash H
                   2b\              e# Convert H to decimal form and swap to put the
                                    e# remaining converted input array on top
                      :+8/          e# Join all bits together and split into groups of 8
                          2fb       e# Convert each 8 but group to decimal form
                             \f^    e# Swap to put H on top and XOR each number with H
                                :c  e# Get character from each of the ASCII value

暗号化と復号化をオンラインで試す

Pyth、69バイト

Ksm>+0jCd16_2zJ?,hKeKQmxFdCcK2=KsmmxFkC,dJc?tPKQK2smCid16c?KQ++hJKeJ2

これは、暗号化と復号化を組み合わせたもので、単に0暗号化または1復号化の引数として追加します。その理由は簡単です。Pythでは、文字列をビット（または4ビット整数）またはその逆に変換するのは本当に長いです。両方の機能を1つのプログラムにまとめることで、多くのバイトを節約できます。

オンラインデモンストレーション：暗号化と復号化。

説明：

最初の部分は、入力を4ビット整数のリストに変換し（各文字は2つの4ビット整数に変換されます）、に格納しKます。

  m          z   map each character d of input (=z) to:
       Cd            the ascii-value of d
      j  16          convert the result into base 16
   >+0     _2        insert a zero to the front and take the last 2 values
                     (so that each char gets mapped to exactly 2 numbers)
Ks               chain all these tuples and assign them to K

2番目の部分はハッシュ値を決定し、それらを保存しますJ。Q==0xorによってそれらを計算する場合、そうでない場合は、の最初と最後の値を取りますK。

 ?     Q           ... if Q (=second input) else ...
  ,hKeK            [K[0], K[-1]]
        m   CcK2   map each d of zipped(K chopped into pairs) to:
                   [zipped(...) gives me 2 lists, one with the values of the even indices, and one with the odd indices]
         xFd           fold the list d by xor
J                  store the result in J (this is the hash value)

次の部分では、ハッシュ値を使用してxorを実行します。Q == 0それが完全なリストKで実行される場合、そうでない場合Kは最初と最後の値のないリストのみで実行されます。

=KsmmxFkC,dJc?tPKQK2
             ?tPKQK    K[1:-1] if Q else K 
   m        c      2   map each d of [... chopped into pairs] to:
    m   C,dJ              map each pair k of zip(d,J) to:
     xFk                     apply xor to the 2 values in k
=Ks                    chain all these tuples and assign them to K

そして最後の部分Kは文字に変換し直します：

smCid16c?KQ++hJKeJ2
        ?KQ++hJKeJ    K if Q else J[0] + K + J[1]
 m     c          2   map each pair of [... chopped into pairs] to:
   id16                  convert d into a single integer
  C                      convert to char
s                     join all chars and print

Javascript（ES6）83 + 73 = 156

どちらの関数も入力を受け取り、バイトを表す数値の配列を出力します。

暗号化85 84 83

E=s=>s.concat((h=s.reduce((x,y)=>x^y))<<4&240^h).map(x=>a<<4&240|(a=x^h)>>4,a=h>>4)

復号化75 73

D=s=>s.map(x=>(a<<4&240|(a=x)>>4)^h,h=(a=s.shift())&240|s[~-s.length]&15)

デモンストレーション（Firefoxのみ）

E=s=>s.concat((h=s.reduce((x,y)=>x^y))<<4&240^h).map(x=>a<<4&240|(a=x^h)>>4,a=h>>4)
D=s=>s.map(x=>(a<<4&240|(a=x)>>4)^h,h=(a=s.shift())&240|s[~-s.length]&15)

toHexString = x=>'0x'+x.map(y=>y.toString(16)).join('')

input = [...'G0lf'].map(x=>x.charCodeAt());
document.write('Input: ' + toHexString(input) + '<br />');

encrypted = E(input);
document.write('Encrypted: ' + toHexString(encrypted) + '<br />');

decrypted = D(encrypted);
document.write('Decrypted: ' + toHexString(decrypted) + '<br />');

文字列を使用131 + 129 = 260

そして、ただの楽しみのために...代わりに入力/出力に文字列を使用するいくつかのバージョンがあります。

E=(s,h=0)=>[for(x of s)(h^=y=x.charCodeAt(),y)].concat(h<<4&240^h).map(x=>String.fromCharCode(a<<4&240|(a=x^h)>>4),a=h>>4).join('')

D=s=>(s=[s.charCodeAt(j=i)for(i in s)]).map(x=>String.fromCharCode((a<<4&240|(a=x)>>4)^h),h=(a=s.shift())&240|s[~-j]&15).join('')

E('G0lf') // 's¤Ñ\x11½'
D('s¤Ñ\x11½') // 'G0lf'