http://www.kent-web.com/perl/crypt/step05.html 上記urlを参考に、以下のような methodを活用すれば、良い気がします use Digest::MD5; sub get_csrf_token { my ($self) = @_; # 8文字のランダム文字列をsaltに使用します my @salt_chars = ('a' .. 'f', …