MD5 [D6, Win95/98]
oleg_SYS © (2004-10-10 13:37:00)
Вообщем для вычисдения суммы мне нужно преобразовать исходную
строку в массив, состоящий из 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:00) [1]
что-то непохоже это на MD5
http://delphibase.endimus.com/?action=viewfunc&topic=mathcode&id=10243
Наверх 
ЧАТ |
Орешник |
|
