Текущий архив: 2004.10.24;
Скачать: CL | DM;
Вниз
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
Страницы: 1 вся ветка
Текущий архив: 2004.10.24;
Скачать: CL | DM;
Память: 0.43 MB
Время: 0.045 c
