自分用メモ。 crypt()を使って暗号化していたのだけれど、途中から返される値が変わらなくなった。 my $key = 'enoden'; my $word; for my $alphabet ('a' .. 'z') { $word .= $alphabet; say crypt($word, $key), " [$word]"; } enkDmZCt3oHc2 [a] endoxO49…