というわけで、
暗号化ライブラリ「crypto」の使いどころのエントリで、voluntasさんから秒間数千程度なら「気にせず使っても問題ありませんよ」とのコメントをいただいてたので、ちょっとコードを書いて試してみました。
Windows7 64ビット版
Erlang OTP R15B（x64）
CPU AMD PhenomII X4 905e 2.5GHz
メモリ 12GB
という環境で、erl.exeにて実行。10回の計測を実施、単位は秒。
| | 1万プロセス | 10万プロセス |
| | 暗号なし | 暗号あり | 暗号なし | 暗号あり |
| 平均 | 0.304 | 0.278 | 38.286 | 40.150 |
| 最大 | 0.499 | 0.500 | 104.365 | 117.983 |
| 最小 | 0.156 | 0.156 | 10.452 | 10.936 |
でした。割とばらつくのはWindows上のVMだからでしょうか。1万プロセス〜10万プロセスぐらいだと最大も最小もほぼ変わらないですね。cryptoへ一気に流し込んでも、それほど処理の影響はなさそうです。
そもそもcryptoの処理自体が（全体と比して）軽そうです。
crypto処理ありのベンチマークテストコード。
-module(cryptobench).
-import(lists, [foreach/2]).
-compile(export_all).
start(A) ->
crypto:start(),
E = encrypt_text("Hello World!"),
L = lists:seq(1, A, 1),
SendBackPid = self(),
StartTime = erlang:now(),
lists:map(fun(X) -> spawn(fun() -> sendback(SendBackPid, X, E) end) end ,L),
loop([], A),
EndTime = erlang:now(),
Diff = timer:now_diff( EndTime, StartTime ),
io:format("elapsed time: ~p (sec)~n", [ Diff / 1000000 ]),
crypto:stop().
loop(State, Count) when length(State) == Count ->
io:format("end of loop~p~n", [length(State)]);
loop(State, Count) ->
receive
{hello, Id, "Hello World!", _SenderPid} -> loop([Id | State], Count);
_ -> loop(State, Count)
end.
sendback(To, Id, E) ->
To ! {hello, Id, decrypt_text(E), self()}.
%% Encryption utilities.
encryption_key() -> <<16#01,16#23,16#45,16#67,16#89,16#AB,16#CD,16#EF,16#F0,16#12,16#34,16#56,16#78,16#9A,16#BC,16#DE>>.
encryption_iv() -> <<16#00,16#00,16#00,16#00,16#00,16#00,16#00,16#00,16#00,16#00,16#00,16#00,16#00,16#00,16#00,16#00>>.
encrypt_text(PlainText) ->
encrypt_bin(erlang:list_to_binary(PlainText)).
encrypt_bin(Binary) ->
Key = encryption_key(),
IVec = crypto:aes_cbc_ivec(encryption_iv()),
crypto:aes_ctr_encrypt(Key, IVec, Binary).
decrypt_text(Encrypted) ->
erlang:binary_to_list(decrypt_bin(Encrypted)).
decrypt_bin(Encrypted) ->
Key = encryption_key(),
IVec = crypto:aes_cbc_ivec(encryption_iv()),
crypto:aes_ctr_decrypt(Key, IVec, Encrypted).
こちらがcrypto処理無しの方。
-module(bench).
-import(lists, [foreach/2]).
-compile(export_all).
start(A) ->
E = "Hello World!",
L = lists:seq(1, A, 1),
SendBackPid = self(),
StartTime = erlang:now(),
lists:map(fun(X) -> spawn(fun() -> sendback(SendBackPid, X, E) end) end ,L),
loop([], A),
EndTime = erlang:now(),
Diff = timer:now_diff( EndTime, StartTime ),
io:format("elapsed time: ~p (sec)~n", [ Diff / 1000000 ]).
loop(State, Count) when length(State) == Count ->
io:format("end of loop~p~n", [length(State)]);
loop(State, Count) ->
receive
{hello, Id, "Hello World!", _SenderPid} -> loop([Id | State], Count);
_ -> loop(State, Count)
end.
sendback(To, Id, E) ->
To ! {hello, Id, E, self()}.
で紹介されてなかったこともあり、まったく知らなかったので、
。さっそく購入して、宿題もぼちぼち解いてますー
