MD5

← →
oleg_SYS © (2004-10-10 13:37) [0]

Вообщем для вычисдения суммы мне нужно преобразовать исходную строку в массив, состоящий из 16 байт.
Есть эта функция в виде скрипта. Не могу её преобразовать в язык паскаль.
function str2blks_MD5(str) { nblk = ((str.length + 8) >> 6) + 1; blks = new Array(nblk * 16); for(i = 0; i < nblk * 16; i++) blks[i] = 0; for(i = 0; i < str.length; i++) blks[i >> 2] |= str.charCodeAt(i) << ((i % 4) * 8); blks[i >> 2] |= 0x80 << ((i % 4) * 8); blks[nblk * 16 - 2] = str.length * 8; return blks; }

← →
Vlad © (2004-10-10 19:11) [1]

что-то непохоже это на MD5

http://delphibase.endimus.com/?action=viewfunc&topic=mathcode&id=10243

MD5 Найти похожие ветки