共通鍵暗号方式

{define-proc public inline {encrypt
algorithm:Algorithm = Algorithm.des3,
common-key:{Array-of byte},
message:{Array-of byte},
out:ByteOutputStream
}:void
{with-open-streams enc-out =
{TranscodingTextOutputStream
{EncryptStream
out,
{SessionKey.from-bytes algorithm, common-key}
},
CharEncoding.utf8,
false
}
do
{for i:int = 0 below message.size do
{enc-out.write-one message[i] asa byte}
}
}
}

{define-proc public inline {decrypt
algorithm:Algorithm = Algorithm.des3,
common-key:{Array-of byte},
in:ByteInputStream
}:String
def buf = {StringBuf}
{with-open-streams dec-in =
{TranscodingTextInputStream
{DecryptStream
in,
{SessionKey.from-bytes algorithm, common-key}
}
}
do
{for b in {dec-in.read} do
{buf.append b asa char}
}
{return {buf.to-String}}
}
}

{do
def secret-file = “secret-file”
def key = {{Array-of byte}
1,2,3,4,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0
}

|| 暗号
{encrypt
key, ||キー
{{Array-of byte} 50, 51, 52},
{write-open-byte {url secret-file}}
}

{decrypt
key, ||キー
{read-open-byte {url secret-file}}
}
}