Модератор: Дед Пахом
Код: Выделить всё
md5('123') = '202cb962ac59075b964b07152d234b70'Если память не изменяет, есть модуль на си от Александра Струменского в составе библиотеки отправки почты по smtp. Глянь в файловом архиве, там все в сырцах должно лежать.mike_ch писал(а):Доброго времени суток всем форумчанам!
Подскажите пожалуйста, есть ли стандартные функции шифрования в Clarion или подскажите api функции, чтоб не изобретать велосипед. Я хочу функцию, которая выглядит и работает приблизительно следующим образом:Код: Выделить всё
md5('123') = '202cb962ac59075b964b07152d234b70'
Спасибо огромное, Дружище!IKSoft писал(а):попробуйте
это я для себя сделал
проблем не было
с исходниками
http://www.aniva-ltd.ru/bin/ik_md5.zip
Код: Выделить всё
! Crypto API
CALG_MD5 equate(00008003h)
HP_HASHVAL equate(2)
PROV_RSA_FULL equate(1)Код: Выделить всё
module('win32')
! Crypto API
! BOOL WINAPI CryptAcquireContext(_Out_ HCRYPTPROV *phProv,
!_In_ LPCTSTR pszContainer,
!_In_ LPCTSTR pszProvider,
!_In_ DWORD dwProvType,
!_In_ DWORD dwFlags)
CryptAcquireContext(*ulong, <*cstring>, <*cstring>, ushort, ushort), bool, raw, pascal, name('CryptAcquireContextA')
! BOOL WINAPI CryptReleaseContext(_In_ HCRYPTPROV hProv,
!_In_ DWORD dwFlags)
CryptReleaseContext(ulong, ushort), bool, raw, pascal, proc
! BOOL WINAPI CryptCreateHash(_In_ HCRYPTPROV hProv,
!_In_ ALG_ID Algid,
!_In_ HCRYPTKEY hKey,
!_In_ DWORD dwFlags,
!_Out_ HCRYPTHASH *phHash)
CryptCreateHash(ulong, ulong, ulong, ushort, *ulong), bool, raw, pascal, proc
! BOOL WINAPI CryptDestroyHash(_In_ HCRYPTHASH hHash)
CryptDestroyHash(ulong), bool, raw, pascal, proc
! BOOL WINAPI CryptHashData(_In_ HCRYPTHASH hHash,
!_In_ BYTE *pbData,
!_In_ DWORD dwDataLen,
!_In_ DWORD dwFlags)
CryptHashData(ulong, *?, ushort, ushort), bool, raw, pascal, proc
!BOOL WINAPI CryptGetHashParam(_In_ HCRYPTHASH hHash,
!_In_ DWORD dwParam,
!_Out_ BYTE *pbData,
!_Inout_ DWORD *pdwDataLen,
!_In_ DWORD dwFlags)
CryptGetHashParam(ulong, ushort, *?, *ushort, ushort), bool, raw, pascal, proc
end
! для функции bytetohex
INCLUDE('CWUTIL.INC'), onceКод: Выделить всё
md5 FUNCTION (pdata, phash) ! Declare Procedure
hProvider ULONG !
hHash ULONG !
in_data CSTRING(1024) !
buffer GROUP,PRE() !буфер
oneb BYTE,DIM(1024) !
END !
out_data CSTRING(33) !
bhash GROUP,PRE() !буфер для результата
oneb BYTE,DIM(16) !
END !
hashsize USHORT(16) !
ret_value LONG !
CODE ! Begin processed code
in_data = clip(pdata)
if cryptacquirecontext(hprovider, , , PROV_RSA_FULL, 0) then
if cryptcreatehash(hProvider, CALG_MD5, 0, 0, hHash) then
buffer = all('<0>')
bhash = all('<0>')
loop i# = 1 to len(in_data)
buffer:oneb[i#] = val(in_data[i#])
.
if crypthashdata(hhash, buffer, len(in_data), 0) then
if cryptgethashparam(hhash, hp_hashval, bhash, hashsize, 0) then
loop i# = 1 to hashsize
out_data = out_data & bytetohex(bhash:oneb[i#], 1)
.
phash = out_data
else
ret_value = false
.
else
ret_value = false
.
cryptdestroyhash(hhash)
else
ret_value = false
.
cryptreleasecontext(hprovider, 0)
else
ret_value = false
. 
Кодекс Лично я так не делаю потому, что не на всех компьютерах может быть установлено CryptoAPI.Игорь Столяров писал(а):Привет !
1. А чем получение SHA1 через WinAPI не устраивает ?
Не понял. Как может в Windows отсутствовать CryptoAPI ?! Можно конечно попробовать его оттуда принудительно убрать,Губин Игорь писал(а):Лично я так не делаю потому, что не на всех компьютерах может быть установлено CryptoAPI
Видел я эти LIB. Действительно работают. Но меня не устраивает принцип BLACKBOX. Кто-бы и что не говорил - но Microsoft весьма последователен в своей поддержке API.Губин Игорь писал(а):Есть набор LIB реализующих MD5, SHA1 и SHA256 быстро и удобно. И, главное для меня: я уверен, что результат постоянен вне зависимости от очередного взбрыка мелкомягких.
Кодекс Ну не спорю, с XP может уже и есть постоянно.Игорь Столяров писал(а):Не понял. Как может в Windows отсутствовать CryptoAPI ?!
Приложение, которое вызывает функции API-интерфейса шифрования (CryptoAPI) может перестать отвечать на компьютере под управлением Windows XP
Это будет означать уже полную задницу. Т.к. будет означать, что велосипедисты полностью отказались от поддержки стандартных LIBИгорь Столяров писал(а):А вот вероятность того, что после очередного GOLD SV Clarion чужие LIB или не прилинкуются к проекту или будут выдавать GPF при вызове - на порядок выше. Что иже и было неоднократно.
Ничего подобного. Это будет означать пофигисткий подход SV к тестированию и сборке релизов.Губин Игорь писал(а):Это будет означать уже полную задницу. Т.к. будет означать, что велосипедисты полностью отказались от поддержки стандартных LIB
Кодекс