Помогите советом

[IvanOFF]

Цитата:

Сообщение от AndyD

Класс рассчитывает hash-суммы на основе алгоритмов MD2, MD4, MD5, SHA. В реализации используется CryptAPI, входящее в состав Windows.

Здравствуйте!
Использую Ваш класс hash для шифрования строки. На моей машине с WinXP все шифруется нормально. Заметил, что при запуске клиента аксапты на сервере (проверял на 2-х серверах - Windows Server 2000 SP4 и Windows Server 2003 SP2) строка не шифруется из-за того, что метод acquireContext() класса hash отрабатывает по-разному на Windows XP и на сервере (пока это лишь предположение, что проблема в операционной системе). Текст метода:

#define.PROV_RSA_FULL(1)
#define.CRYPT_NEWKEYSET(0x00000008)
private void AcquireContext()
{
    DLLFunction _CryptAcquireContext = new DLLFunction(_dll, "CryptAcquireContextA");
    Binary      prov = new Binary(4);
    ;
    _CryptAcquireContext.returns(ExtTypes::DWord);
    _CryptAcquireContext.arg(ExtTypes::Pointer, ExtTypes::DWord, ExtTypes::DWord,
                                ExtTypes::DWord, ExtTypes::DWord);
    prov = new Binary(4);
    if (!_CryptAcquireContext.call(prov, 0, 0, #PROV_RSA_FULL, 0))
        _prov = 0;
    else
        _prov = prov.dWord(0);
}

На сервере _CryptAcquireContext.call(prov, 0, 0, #PROV_RSA_FULL, 0) возвращает false, на моем WinXP - true.

На msdn нашел описание функции CryptAcquireContext:
CryptAcquireContext - The CryptAcquireContext function is used to acquire a handle to a specified key container in a specified cryptographic service provider (CSP). The phProv parameter receives the handle to the specified key container. You can use this handle to call other API functions.

В чем может быть проблема? Сначала думал, что, вероятно, на сервере не запущен какой-то процесс. Но вроде не в этом дело.
Буду благодарен, если выскажете идеи на этот счет.

[AndyD]

Попробуй поменять в методе AcquireContext код на следующий

#define.PROV_RSA_FULL(1)
#define.CRYPT_NEWKEYSET(0x00000008)

#define.NTE_BAD_KEYSET( 0x80090016 )

private void AcquireContext()
{
    DLLFunction _CryptAcquireContext = new DLLFunction(_dll, "CryptAcquireContextA");
    Binary      prov = new Binary(4);
    int         err;
    ;
    _CryptAcquireContext.returns(ExtTypes::DWord);
    _CryptAcquireContext.arg(ExtTypes::Pointer, ExtTypes::String, ExtTypes::DWord,
                                ExtTypes::DWord, ExtTypes::DWord);
    prov = new Binary(4);
    if (!_CryptAcquireContext.call(prov, "AxaptaKeyset", 0, #PROV_RSA_FULL, 0))
    {
        err = winapi::getLastError();
        if (err == #NTE_BAD_KEYSET)
        {
            if (!_CryptAcquireContext.call(prov, "AxaptaKeyset", 0, #PROV_RSA_FULL, #CRYPT_NEWKEYSET))
            {
                _prov = 0;
            }
            else
            {
                _prov = prov.dWord(0);
            }
        }
    }
    else
        _prov = prov.dWord(0);
}

Имя кейсета можно поставить какое нужно. Или ставить 0 как раньше, что бы создался keyset по умолчанию

[RumataEstor]

Цитата:

Сообщение от IvanOFF

На сервере _CryptAcquireContext.call(prov, 0, 0, #PROV_RSA_FULL, 0) возвращает false, на моем WinXP - true.

BOOL WINAPI CryptAcquireContext(
  __out         HCRYPTPROV* phProv,
  __in          LPCTSTR pszContainer,
  __in          LPCTSTR pszProvider,
  __in          DWORD dwProvType,
  __in          DWORD dwFlags
);

When pszContainer is NULL, a default key container name is used. For example, the Microsoft Base Cryptographic Provider uses the logon name of the currently logged on user as the key container name. Other CSPs can also have default key containers that can be acquired in this way.

Может, на сервере currently logged on user неопределен?

[IvanOFF]

Цитата:

Сообщение от AndyD

Попробуй поменять в методе AcquireContext код на следующий

Спасибо! Теперь все работает.

Цитата:

Сообщение от RumataEstor

Может, на сервере currently logged on user неопределен?

А как его определить?

[RumataEstor]

Цитата:

Сообщение от IvanOFF

А как его определить?

Очевидно, выполнять код не от системной учетной записи, а от имени какого-нибудь пользователя. То, что у вас все заработало говорит о том, что этот параметр как раз и создавал проблему. Когда вы его установили в некоторое значение, то имя пользователя уже стало ненужным.

[AvrDen]

Добрый день!
Использую класс Hash, за который огромное спасибо! Возникла проблема что на Windows Server 2008 R2 64x шифрование не происходит, а на 7-ке 32x все работает отлично. Не подскажете как ее решить или в каком направлении двигаться?

[handy-comp]

Так и должно быть на 64-bit OS.
В зависимости от того какие функции нужны, можно воспользоваться функционалом .Net или поискать готовую стороннюю .Net сборку, например: http://cryptapi.sourceforge.net/home.html

[Tarrash]

У нас тоже возникла подобная проблема.
handy-comp, вы дали ссылку на библиотеку CryptAPI. Не подскажете, кто-нибудь уже использовал данную сборку? Коллеги, может кто решал проблему альтернативным способом?

[handy-comp]

Из этой сборки использовал функцию для blowfish алгоритма но не в Ax проекте.
Если необходим только MD5 hash думаю лучше использовать стандартные возможности .Net.

[Tarrash]

Цитата:

Сообщение от handy-comp

Из этой сборки использовал функцию для blowfish алгоритма но не в Ax проекте.
Если необходим только MD5 hash думаю лучше использовать стандартные возможности .Net.

Спасибо за совет. Попробуем воспользоваться возможностями класса:
System.Security.Cryptography.MD5CryptoServiceProvider

[mazzy]

Цитата:

Сообщение от 6apcyk

Посоветуйте, какой стандартный объект можно использовать для следующего:

Цитата:

Сообщение от Vadik

также см. класс KeySum

послушайте совета от Vadik: посмотрите сначала на KeySum.
и не майтесь ерундой.

[someOne]

Вот пример текста готовой функции хеширования MD5 на NET для AX2009.

Может пригодится кому...

static void Job159(Args _args)
{
    System.Security.Cryptography.MD5    md5;
    System.Text.Encoding                encoding;
    System.Byte                 byte;
    System.Text.StringBuilder   stringBuilder;
    System.Array                array;
    int                         i;
    int                         len;
    str                         _text2Hash = "ggg";
    str                         md5code;
    ;
    new InteropPermission(InteropKind::ClrInterop).assert();

    md5 = System.Security.Cryptography.MD5::Create();
    
    encoding = System.Text.Encoding::GetEncoding(0);
    

    array = md5.ComputeHash(encoding.GetBytes(_text2Hash));

    stringBuilder = new System.Text.StringBuilder();
    
    len = array.get_Length();

    for (i = 0; i < len; i++)
    {
        byte = array.GetValue(i);

        stringBuilder.Append(byte.ToString("x2"));
    }

    md5code = stringBuilder.ToString();
    
    info(md5code);
}