четверг, 5 мая 2011 г.

Затруднение с utf

Есть такой древний код, .net 1.1 c#


            Byte[] clearBytes = new UnicodeEncoding().GetBytes(cleanString);
            Byte[] hashedBytes = ((HashAlgorithm) CryptoConfig.CreateFromName("MD5")).ComputeHash(clearBytes);

            return BitConverter.ToString(hashedBytes);

как его реализовать в перле?

use utf8;
use Digest::MD5 qw ( md5 md5_hex md5_base64);
...=uc(md5_hex(unpack("U*",$pass)))

что то не прокатывает. Не совпадают хеши.
Думаю проблема в UnicodeEncoding().GetBytes , но как обойти не пойму.