09.04.2010, 00:17
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от =Zeus=
Помогите перевести следующие строки кода из С++ в Delphi. То есть у меня возникла проблема с типами данных и некоторыми функциями. Заранее спасибо.
Код:
void GetHashStr(wchar_t* Password,char *HashStr)
PHP код:
Procedure GetHashStr(Password:PWideChar; HashStr:char)
Код:
CryptHashData(hHash, (unsigned char*)Password, (wcslen(Password)+1)*2);
Это взял из своей функции:
PHP код:
var
Password:string;
...
CryptHashData(hHash, PByte(Password), length(Password), 0)
в Си варианте предлагают length(Password)*2
Код:
wsprintf(TmpBuf,”%s%2.2X”, HashStr, c); // c это unsigned char
Наверное так:
PHP код:
Format('%2.2x', [Ord(PChar(HashStr)[I])]);
P.s. Как я понял это CryptApi.
Последний раз редактировалось JnK; 09.04.2010 в 00:48..
|
|
|