encryption - コードゴルフ: XOR 暗号化

Question

From : Encryption Co.
To : x$*sj4 (あなたです)

あなたの使命は、それを受け入れることを選択した場合、最短のキーストローク数でプログラムを作成することです。

2 つのファイル名パラメーター (コマンドラインまたは標準入力) を受け取ります。最初のパラメーターはキーを含むファイルで、2 番目のパラメーターはメッセージです。どちらのファイルもプレーンテキストになります。
XOR 暗号化を使用してメッセージにキーを適用し、ファイルを上書きします。

例：

入力ファイル：

StackOverflow はクールです

鍵：

コードゴルフ

暗号化された出力ファイルの 16 進ダンプ:

0000000: 101b 0506 4b08 1909 1425 030b 1200 2e1c  ....K....%......
0000010: 4c25 2c00 080d 0a                        L%,....

簡単にするために、ファイルがメモリに収まると仮定します

このメッセージは 5... 4... 3... 2... 1... で自己暗号化されます。

     #####
    #### _\_  ________
    ##=-[.].]| \      \
    #(    _\ |  |------|
     #   __| |  ||||||||
      \  _/  |  ||||||||
   .--'--'-. |  | ____ |
  / __      `|__|[o__o]|
_(____nm_______ /____\____

XOR 暗号化は、キーのサイズがメッセージのサイズ以上であり、キーが公平なランダムプロセスによって生成されている場合、クラックすることは不可能です。参照:ワンタイムパッド。したがって、ここには「不十分な暗号化」はありません。

score 25 · Accepted Answer

悔い改め、13 7文字（ファイルサポートなし）、14文字（ファイルサポートあり）

Repentは、J、APL、Golfscript、Pythonからインスピレーションを得た、私自身の難解なスタックベースのおもちゃ言語です。これが簡単な解決策です。説明しますが、非常に遅く、頭を抱えているので、説明して、午前中にSilverlightインタープリターをリリースします。

↓↷¦*⊕;€

説明：

↓     Copies the message string back onto the stack
↷    Puts the extra message string to the bottom of stack
¦     Find length of message string
*     Multiply key array by last number - repeats key for at least as long as message
⊕;    Apply XOR between each element corresponding of message array and repeated 
      key array, pushing XOR encoded message to stack
€     Print encoded message string/(char array) as string.

次のように使用します：

Repent "↓↷¦*⊕;€" "Code Golf" "StackOverflow is Cool" > output.txt

出力（ほとんどの文字は表示されません）：

Ascii: K    % .L%, 
Hex:   10 1B 05 06 4B 08 19 09 14 25 03 0B 12 00 2E 1C 4C 25 2C 00 08 0D 0A

ファイルを使用すると、次のようになります。

↓↶▲⇄▲↓3↔⇄¦*⊕;▼

言語リファレンス（未完成）

通訳（未完成）

score 22 · Accepted Answer

Perl、40文字

少し壊れやすいです。

print$/=!1,($_=<>)^substr<>x 1E4,0,y///c

Perlには組み込みの文字列xor演算子があります。この問題を解決するための難しい部分は、2つの弦を同じ長さにすることです。

$/=!1

「レコード区切り文字」を未定義の値に設定し、何も印刷されないようにします。この設定では、ファイル読み取りライン演算子はファイル全体を丸呑みします。

$_=<>

最初のファイル全体（メッセージを含む）を変数にロードします$_。

substr <> x 1E4, 0, y///c

2番目のファイル（キー）から別の文字列を作成し、それを10,000回追加します。うまくいけば、（1）この本当に長い文字列はメッセージ文字列よりも長くなり、（2）プログラムがメモリ不足になるほど長くはなりません（このようにこのソリューションは壊れやすいです）。y///cは、の文字数をカウントする操作であり$_、と言うよりも1文字短くなりますlength。これにより、キー文字列がメッセージ文字列と同じサイズに短縮されます。

score 12 · Accepted Answer

C# 190 文字

using System.IO;class a{static void Main(string[] b){var c=File.ReadAllBytes(b[0]);var d=File.ReadAllBytes(b[1]);for(int e=0;e<c.Length;e++) c[e]^=d[e%d.Length];File.WriteAllBytes(b[0],c);}}

score 8 · Accepted Answer

Python、162 文字

m,r,o=map,raw_input,open
a,b=r(),r()
t,k=m(lambda x:list(o(x).read()[:-1]),[a,b])
o(a,'w').write(''.join(m(chr,m(lambda c:ord(c[0])^ord(c[1]),zip(t,len(t)*k)))))

Python 3、143 文字

i,o=input,open
a,b=i(),i()
t,k=map(lambda x:list(o(x,'rb').read()[:-1]),[a,b])
o(a,'wb').write(bytes(map(lambda c:c[0]^c[1],zip(t,len(t)*k))))

score 8 · Accepted Answer

GolfScript、28 文字

n.+/~:k;.,.)k.,@\/)*<{\(@^}%

使用するには、メッセージファイル、改行、キーファイルをスクリプトの標準入力に渡します。

$ (cat message-file ; echo ; cat key-file) | ruby golfscript.rb poorencrypt.gs

$ (エコー StackOverflow はクールです;エコー;エコー コード ゴルフ) | \
          ruby golfscript.rb poorencrypt.gs > エンコードされたファイル
$ (猫エンコード ファイル;エコー;エコー コード ゴルフ) | ruby golfscript.rb poorencrypt.gs
StackOverflow はクールです

score 7 · Accepted Answer

Java、319 313 310 文字

更新 1:に置き換えchar[]c=r(a[0]);char[]k=r(a[1]);られchar[]c=r(a[0]),k=r(a[1]);、6 文字節約されました。
更新 2:に置き換えfor(int i=0;i<c.length;c[i]^=k[i++%k.length]);られint i=0;for(char p:c)c[i]^=k[i++%k.length];、3 文字節約されました。

import java.io.*;class X{public static void main(String[]a)throws Exception{char[]c=r(a[0]),k=r(a[1]);int i=0;for(char p:c)c[i]^=k[i++%k.length];Writer w=new FileWriter(a[0]);w.write(c);w.close();}static char[]r(String a)throws Exception{return new BufferedReader(new FileReader(a)).readLine().toCharArray();}}

より読みやすいバージョン:

import java.io.*;
class X{
 public static void main(String[]a)throws Exception{
  char[]c=r(a[0]),k=r(a[1]);int i=0;for(char p:c)c[i]^=k[i++%k.length];
  Writer w=new FileWriter(a[0]);w.write(c);w.close();
 }
 static char[]r(String a)throws Exception{
  return new BufferedReader(new FileReader(a)).readLine().toCharArray();
 }
}

Java IO は非常に冗長です。2 つの file-to-char[] 読み取りをメソッドにリファクタリングすると、4 文字節約されました。はい、ライターを閉じる (フラッシュする) ことは絶対に必要です。それ以外の場合、ファイルは空のままです。そうでなければ、~~298~~ ~~292~~ 289 文字でした。

score 6 · Accepted Answer

Python3 - 114 文字

stdin からパラメーターを受け取ります

a=input().split()
k,t=[open(x,"rb").read()for x in a]
open(a[1],"wb").write(bytes(x^y for x,y in zip(k*len(t),t)))

score 4 · Accepted Answer

別

Perl ソリューション、59 (42) 文字

（これまでのところ機能しているように見えるワンライナーに準拠しています:)

計算されたキーの長さを持つプログラム (59 文字):

 $.-1?$_^=substr($k x((length)/length($k)+1),0,length):$k=$_

Mobrule の「壊れやすい」アプローチをキーの長さに使用する場合、42 文字になります。

 $.-1?$_^=substr($k x 1e4,0,(length)):$k=$_

コマンドライン：

 $> perl -i -0777 -pe'<insert above>' keyfile messagefile

これにより、メッセージが xor-ed 形式に書き換えられ、クリアテキスト形式に戻ります。

 $> cat keyfile ; cat messagefile

 Code Golf
 StackOverflow is Cool

適用コマンド:

 $> perl -i.bak -0777 -pe'<insert above>' keyfile messagefile
 $> cat keyfile ; cat messagefile

 Code Golf
 ^P^[^E^FK^H^Y   ^Tl/^@^SEI4O/   e/e

再度適用:

 $> perl -i.bak -0777 -pe'<insert above>' keyfile messagefile
 $> cat keyfile ; cat messagefile

 Code Golf
 StackOverflow is Cool

よろしく

rbo

score 4 · Accepted Answer

F#、168 文字

open System.IO
[<EntryPoint>]
let main a=
let k=File.ReadAllBytes a.[1]
let z i v=v^^^k.[i%k.Length]
File.WriteAllBytes(a.[0], Array.mapi z (File.ReadAllBytes a.[0]))
0

注: ほとんどが IO で、キーは Array.mapi です。また、一部の F# Guru は、おそらくこのソリューションを完全に打ち負かすでしょう。私は生粋の C# プログラマーであり、F# を楽しみ以外の目的で使用したことはありません。

score 4 · Accepted Answer

Ruby 72 62 文字

$<.inject{|k,l|l.each_byte{|b|$><<(b^(r=k.slice!0)).chr;k<<r}}

~~\n入力キーからa を取り除く必要がなければ、10 文字を節約できk=a.chomp;~~ ました。

制限: 単一行のキーのみを処理します。

使い方：

$<すべての入力ファイルのすべての行を含む配列のように機能します。

.inject配列を反復処理し、

{|k,l| : 最初のパスでは、引数はキー行であり、入力の最初の行です。

l.each_byte{|b|入力行から各文字を int として取得します。

$><<「印刷」を意味します

(b^(r.k.slice!0)キーの最初の文字で 'b' を XOR します (これをスライスして 'r' に格納します)。

.chr;整数を ascii に変換します

k<<rキーの最初の文字を最後までローテートします。

}}ブロックは更新された k を生成します。これは、次に注入するパスの最初の引数として使用されます。2 番目の引数は、入力の次の行になります。

score 3 · Accepted Answer

Haskell、181 文字

Haskell でゴルフをしている場合、I/O は厄介であり、バイナリ I/O は 2 倍です。このソリューションは、おそらく大幅に改善される可能性があります。お気軽に！

import Data.Bits
import Data.ByteString as B
u=unpack
g o[l,n]=o$pack$Prelude.zipWith xor(u n)(cycle$u l)
f x=mapM B.readFile x>>=g(B.writeFile$x!!1)
main=Prelude.getLine>>=f.words

使用法：

$ ghc --make encrypt.hs
$ echo -n 'Code Golf' > key
$ echo -n 'StackOverflow is Cool' > message
$ echo 'key message' | ./encrypt
$ od -tx1 message

score 3 · Accepted Answer

q、88文字

Arthur Whitney によって書かれ、APL と Lisp に触発された言語であるhttp://kx.com/のq を使用して実装されています。

a[0]1:"x"$2 sv'{(x|y)&not x&y}.'0b vs''flip{y:count[x]#y;(x;y)}.(read1')a:(hsym')`$'.z.x

何が起こっているのかを少し説明します: (右から左に読んでください)

a:(hsym')`$'.z.x

ランタイム引数のリストから 2 つのファイルハンドルのリストを作成し、変数「a」で後で使用するために保存します。

(read1')

2 つのファイルをループして読み取り、byte=0x00..0xFF ((22 バイト),(10 バイト)) であるバイトのリストのリストを返します。

{y:count[x]#y;(x;y)}.

メッセージと同じ長さにキーを成形します。キーが長すぎる場合は切り捨てられ、短すぎる場合は繰り返されます。リストは適切にフォーマットされ、2x22 になりました。

flip

リストを転置すると、22x2 になります。

0b vs''

リストのすべての要素をバイナリ型に変換します

{(x|y)&not x&y}.'

22 要素すべての XOR ペアは、8 つのブール値のリストのリストを返します

"x"$2 sv'

ブール値の 8 ビットをバイトに変換します。

a[0]1:

ファイルを書き込み、元のメッセージファイルをオーバーライドします。

サンプルラン:

$ cp message.txt message.txt.bk
$ q g.q message.txt key.txt    
$ diff -s message.txt message.txt.bk0
Binary files message.txt and message.txt.bk0 differ
$ q g.q message.txt key.txt          
$ diff -s message.txt message.txt.bk0
Files message.txt and message.txt.bk0 are identical

score 3 · Accepted Answer

PowerShell、125 115 文字

これまでのところ、これは最短の.netベースの回答のようです:

$k=[char[]](gc $args[1]);$i=0;sc $args[0] ([byte[]]([char[]](gc $args[0])|%{$_ -bXor $k[$i++%$k.Length]})) -en byte

コマンドの略語が綴られたきれいなバージョン:

$k=[char[]](get-content $args[1])
$i=0
set-content `
   $args[0] `
   ([byte[]] ([char[]] (get-content $args[0]) `
              | foreach {$_ -bXor $k[$i++ % $k.Length]})) `
   -encoding byte

使用法: powershell codegolf.ps1 message.txt key.txt. 要求通り、上書きしますmessage.txt。

score 2 · Accepted Answer

Python - 127 文字

キーファイルとデータファイルにコマンドラインパラメータを使用

import sys
a=sys.argv
_,k,t=[open(x).read()for x in a]
s=open(a[2],"w").write
[s(chr(ord(x)^ord(y)))for x,y in zip(k*len(t),t)]

stdout への書き込み - 109 文字

import sys
_,k,t=[open(x).read()for x in sys.argv]
print"".join(chr(ord(x)^ord(y))for x,y in zip(k*len(t),t))

score 2 · Accepted Answer

Ruby - 158 chars

def a(b);File.readlines(b).join("\n").chomp;end;t=a($*[0]);k=a($*[1]);File.open($*[0],"w"){|f|0.upto(t.length-1){|i|f.putc((t[i]^k[i.modulo(k.length)]).chr)}}

Prettier version:

def a(b)
    File.readlines(b).join("\n").chomp
end

t = a($*[0])
k = a($*[1])

File.open($*[0],"w") {|f|
    0.upto(t.length - 1) {|i|
        f.putc((t[i] ^ k[i.modulo(k.length)]).chr)
    }
}

This solution takes advantage of the following aspect of the problem:

Your mission, should you choose to accept it, is to create a program in the shortest number of keystrokes that...

This solution was written on my tablet using handwriting recognition for input. No keys were stroked in the creation of this code. Therefore, this program was developed in zero keystrokes. Game over, I win!

score 1 · Accepted Answer

Java 、336 316 405 文字

編集:ファイルから読み取る必要があることを忘れていました。*はぁ

public class A {
public static void main(String[] a) throws Throwable {
    char[] p = new BufferedReader(new FileReader(a[1])).readLine().toCharArray();
    char[] t = new BufferedReader(new FileReader(a[0])).readLine().toCharArray();
    int u = t.length;
    int k = 0;
    for (int i = 0; i < u; i++) {
        new FileOutputStream (a[0]).write((char) ((int) t[i] ^ (int) p[k]));
        k = k = ++k % p.length;
    }
}
}

試してみる価値がありました。しかし、Java がここで最高の言語だとは思いません...

score 0 · Accepted Answer

PHP、142、141文字

編集1： fputs()の代わりにfwrite()。

$t=fopen($argv[1],'r+');$s=fgets($t);rewind($t);$k=fgets(fopen($argv[2],'r'));for($i=0;$i<strlen($s);$i++)fputs($t,$s{$i}^$k{$i%strlen($k)});

きれいなプリント：

$t = fopen($argv[1],'r+');
$s = fgets($t);
rewind($t);
$k = fgets(fopen($argv[2],'r'));
for($i=0; $i<strlen($s); $i++)
  fputs($t, $s{$i} ^ $k{$i % strlen($k)});

score 0 · Accepted Answer

C＃、168：

using System.IO;class a{static void Main(string[] b){File.WriteAllBytes(b[0],File.ReadAllBytes(b[0]).Select((x,i)=>x^File.ReadAllBytes(b[1])[i%d.Length]).ToArray());}}

機能的なソリューション。読み取り操作をインライン化して変数を保存しました。これにより、読み取り操作が繰り返し実行されます。

score 0 · Accepted Answer

F＃、147146文字

これは、 driis のソリューションに大きく基づいています。私が行ったのは、必要なインデントを追加してコンパイルし、コマンドラインパラメーターの順序を切り替えて、物事を引き締めただけです。それでも少し短縮できても不思議ではありません。注: 不完全なパターンマッチに関する警告が表示されます。通常、私はこれについて最初に不満を言うでしょうが、コードゴルフは通常のベストプラクティスの例外に値すると思います。:)

open System.IO[<EntryPoint>]let m[|a;b|]=File.ReadAllBytes|>fun r->r a|>fun k->File.WriteAllBytes(b,Array.mapi(fun i->(^^^)k.[i%k.Length])(r b));0

F#、147 文字、より読みやすい

open System.IO
let r=File.ReadAllBytes
[<EntryPoint>]
let m[|a;b|]=
 let k=r a
 File.WriteAllBytes(b,Array.mapi(fun i->(^^^)k.[i%k.Length])(r b));0

score 0 · Accepted Answer

KSH93 - 152 文字

m=$(<$1)
k=$(<$2)
for ((e=0;e<${#m};e++)) 
do
out="$out$(printf "%02X" $(("'${m:$e:1}"^"'${k:${e}%${#k}:1}")))"
done
echo "${out}0d0a" | xxd -p -r >$1

score 0 · Accepted Answer

Java - 306 文字

BalusC の Java ソリューションをベースとして使用:

import java.io.*;class X{public static void main(String[]a)throws Exception{final char[]c=r(a[0]),k=r(a[1]);int i=0;for(int p:c)c[i]^=k[i++%k.length];new FileWriter(a[0]){{write(c);}}.close();}static char[]r(String a)throws Exception{return new BufferedReader(new FileReader(a)).readLine().toCharArray();}}

より読みやすい：

import java.io.*;
class X{
 public static void main(String[]a)throws Exception{
  final char[]c=r(a[0]),k=r(a[1]);int i=0;for(int p:c)c[i]^=k[i++%k.length];
  new FileWriter(a[0]){{write(c);}}.close();
 }
 static char[]r(String a)throws Exception{
  return new BufferedReader(new FileReader(a)).readLine().toCharArray();
 }
}

実際にコードをテストしたわけではありませんが、大幅な変更も行っていません。

score 0 · Accepted Answer

C - 163 161 文字

フラッシュを追加し、不要なシークを削除しました。

ゴルフした:

#include <stdio.h>
int*p,l;char*k;main(int c,char**v){FILE*f=fopen(*++v,"rb+");k=p=*++v;while(fgets(&l,2,f)){fseek(f,-1,1);putc(l^*k++,f);fflush(f);if(!*k)k=p;}}

非ゴルフ:

#include <stdio.h>
int*p,l;
char*k;
main(int c,char**v){
    FILE*f=fopen(*++v,"rb+");
    k=p=*++v;
    while(fgets(&l,2,f)){
        fseek(f,-1,1);
        putc(l^*k++,f);
        fflush(f);
        if(!*k)k=p;
    }
}

score 0 · Accepted Answer

Python、154 文字

import sys,struct;_,f,k=sys.argv
open(f,'r+b').write(''.join(struct.pack('B',ord(a)^ord(b))for a,b in zip(open(f,'r+b').read(),open(k,'rb').read()*1000)))

encryption - コード ゴルフ: XOR 暗号化

23 に答える 23