Текущий архив: 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.46 MB
Время: 0.024 c