Zbuduj program szyfrujący rot32

10

Zbudowanie golfowego kodera rot13 jest zbyt łatwe, ponieważ litery są w tej samej kolejności w obszarze znaków ASCII. Spróbujmy zamiast tego silnika rot32.

Twoim zadaniem jest zbudowanie funkcji, która pobiera ciąg Base64 jako dane wejściowe i zwraca ten sam ciąg, ale z każdą literą obróconą o 32 symbole w stosunku do oryginału (w zasadzie z pierwszym bitem odwróconym).

Łańcuch kodujący base64, który ma być użyty w tym problemie, ma 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ+/znak dopełniający =. Zapobiega to rozwiązaniom, które w innym przypadku użyłyby lub zaimportowałyby wbudowaną bibliotekę Base64, w której zwykle łańcuchy zaczynają się Azamiast 0.

Example inputs and outputs:

> rot32("THE+QUICK+BROWN+FOX+JUMPS+OVER+THE+LAZY+DOG=")
nb8ukoc6eu5liqhu9irudogjmuip8lunb8uf4tsu7ia=

> rot32("NB8UKOC6EU5LIQHU9IRUDOGJMUIP8LUNB8UF4TSU7IA=")
h5Eoei6C8oBfckboFclo7iadgocjEfoh5Eo9AnmoDc4=

> rot32("Daisy++daisy++give+me+your+answer+true/I+/+m+half+crazy++all+for+the+love+of+you")
7GOY2uuJGOY2uuMO/KuSKu2U+XuGTY0KXuZX+KvcuvuSuNGRLuIXG32uuGRRuLUXuZNKuRU/KuULu2U+

Wygrywa najkrótszy program w dowolnym języku.

Joe Z.
źródło
4
Z tego pytania zrozumiałbym, że musimy wykonać dekodowanie base-64, nieco błądzące bity i kodowanie base-64. Ale twoja przykładowa odpowiedź sugeruje, że cała dyskusja na temat base-64 to czerwony śledź, i to jest tak samo jak rot-13, z wyjątkiem tego, że zestaw znaków, które nie są ignorowane, jest większy. Który to jest?
Peter Taylor
1
To tak jak z rot-13, ale myślałem, że kręcenie bitów może być możliwą strategią skrócenia kodu.
Joe Z.

Odpowiedzi:

4

CJam, 24 bajty

q"+"":/{a[A"{,^}/_32m>er

Wypróbuj online.

Jak to działa

q         " Read from STDIN.                                                              ";
"+"       " Push that string.                                                             ";
":/{a[A"  " Push that string.                                                             ";
{         " For each character in the second string:                                      ";
  ,       "   Push the string of all charcters with a lower ASCII code.                   ";
  ^       "   Take the symmetric difference of the two topmost strings on the stack.      ";
}/        " Result: 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ+/0123456789'.   ";
_32m>     " Rotate a copy 32 characters to the right.                                     ";
er        " Perform character transliteration.                                            ";
Dennis
źródło
15

Powłoka Bash / Unix, 29

tr 0-9a-zA-Z+/ w-zA-Z+/0-9a-v

Wejście ze STDIN, wyjście na STDOUT.

Klamka
źródło
5

Perl, 41

Po prostu prosta transliteracja . Odczytuje ze STDIN, wysyła do STDOUT:

$_=<>;y#0-9a-zA-Z+/#w-zA-Z+/0-9a-v#;print

Wypróbuj tutaj.

r3mainer
źródło
2
Kto powiedział, że Perl nie jest językiem esolang (i / lub golfa)?
Optymalizator
Możesz ogolić kilka znaków za pomocą przełączników wiersza polecenia -pi -e, aby pozbyć się znaków $_=<>;i ;print.
Mark
4

CJam, 45 41 38 29 27 26 bajtów

qA,'{,97>_eu"+/"+++_32m>er

Odczytuje ciąg do zaszyfrowania ze STDIN

Jak to działa :

q                              "Read input";
 A,                            "Get 0 - 9 array";
   '{,                         "Get array/string of ASCII code 0 till ASCII code of z";
      97>                      "Remove first 96 characters to get a-z string";
         _eu                   "Copy a-z array and turn it to uppercase A-Z array";
            "+/"+++            "Push string +/ and concat all 4 arrays";
                   _32m>       "Copy the array and move first 32 characters to end";
                        er     "Transliterate input using the two arrays, leaving ="
                               "intact as it does not appear in the first array";

Wypróbuj online tutaj

Optymalizator
źródło
3

Python, 178

b = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ+/"

def rot32(s):
    o = ""
    for c in s:
        if c not in b:
            o += c
        else:
            o += b[b.find(c) ^ 32] 
    return o

Jest to niepoznakowana implementacja referencyjna ostatniego miejsca w Pythonie, której można użyć do przetestowania własnej implementacji.

Joe Z.
źródło
Przynajmniej mam nadzieję, że pozostanie na ostatnim miejscu.
Joe Z.
0

GolfScript ( 41 40 bajtów)

{'0:a{A['2/{{,>}*}%'+/'+[1$]+.32/(*@?=}%

Demo online

Składają się na to dwie części: tłumaczenie jest odmianą ostatniej techniki wymienionej w mojej trwskazówce w GolfScript , a drugą częścią jest budowanie ciągów, które wykorzystują ciąg znaków 0:a{A[jako tablicę wartości char i fałd, aby zamienić je w zakresy znaków. Zwróć uwagę na użycie 32/(*do zbudowania przetłumaczonego łańcucha przez wstawienie pierwszych 32 znaków między drugie 32 znaki i znak, który tłumaczymy.

Peter Taylor
źródło
0

python, 69

f = lambda s,b: ''.join(b[b.index(c)^32] if c in b else c for c in s)

testy

>>> b = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ+/"
>>> print f("THE+QUICK+BROWN+FOX+JUMPS+OVER+THE+LAZY+DOG=", b)
nb8ukoc6eu5liqhu9irudogjmuip8lunb8uf4tsu7ia=

>>> print f('nb8ukoc6eu5liqhu9irudogjmuip8lunb8uf4tsu7ia=', b)
THE+QUICK+BROWN+FOX+JUMPS+OVER+THE+LAZY+DOG=
Brian
źródło
0

LiveScript, 91

r=[\0 to\9].concat [\a to\z] [\A to\Z] [\+ \/];f=(.replace /[^\W_]/ ->r[32.^.r.indexOf it])

LiveScript, 50

Jeśli ciąg jest dozwolony jako drugi argument.

f=(a,b)->a.replace /[^\W_]/ ->r[32.^.b.indexOf it]
Isiah Meadows
źródło
0

JavaScript 164

b="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ+/"
function rot32(s){for(i=0,o="";i<s.length;i++)c=s[i],j=b.indexOf(c),o+=j>-1?b[j^32]:c
return o}
wolfhammer
źródło