Hi neznajka!
Я не знаю чего тебе oleg_km прислал (через NNTP только ссылка видна, потому
я не закачал) - что-то меня смущает цифра в 29 Кб - чего он туда напихал
непонятно :)
Вообще-то MD5 получается средствами винды в пару десятков строк кода, даже
со всякими излишними проверками :)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
? GetMd5Hash("Привет!")
FUNCTION GetMd5Hash
LPARAMETERS tcInput
#DEFINE dnPROV_RSA_FULL 1
#DEFINE dnCALG_MD5 0x8003
#DEFINE dnHP_HASHVAL 0x0002
DECLARE INTEGER CryptAcquireContext IN WIN32API INTEGER @, STRING, STRING,
INTEGER, INTEGER
DECLARE INTEGER CryptCreateHash IN WIN32API INTEGER, INTEGER, INTEGER,
INTEGER, INTEGER @
DECLARE INTEGER CryptHashData IN WIN32API INTEGER, STRING, INTEGER, INTEGER
DECLARE INTEGER CryptGetHashParam IN WIN32API INTEGER, INTEGER, STRING @,
INTEGER @, INTEGER
DECLARE INTEGER CryptDestroyHash IN WIN32API INTEGER
DECLARE INTEGER CryptReleaseContext IN WIN32API INTEGER, INTEGER
LOCAL lnProviderHandle, lnHashHandle, lcHash, lnHashLen
lnProviderHandle = 0
lnHashHandle = 0
lcHash = SPACE( 16 )
lnHashLen = 16
IF CryptAcquireContext(@m.lnProviderHandle, "", "", dnPROV_RSA_FULL,
0xF0000000) = 0
ERROR "Ошибка получения CryptoAPI контекста"
RETURN ""
ENDIF
IF CryptCreateHash(m.lnProviderHandle, dnCALG_MD5, 0 , 0 , @m.lnHashHandle) =
0
ERROR "Ошибка создания хендла хеша"
CryptReleaseContext(m.lnProviderHandle, 0 )
RETURN ""
ENDIF
IF CryptHashData(m.lnHashHandle, m.tcInput, LEN(m.tcInput), 0 ) = 0
ERROR "Ошибка хеширования"
CryptDestroyHash(m.lnHashHandle)
CryptReleaseContext(m.lnProviderHandle, 0 )
RETURN ""
ENDIF
IF CryptGetHashParam(m.lnHashHandle, dnHP_HASHVAL, @m.lcHash, @m.lnHashLen,
0 ) = 0
ERROR "Ошибка получения хеша"
CryptDestroyHash(m.lnHashHandle)
CryptReleaseContext(m.lnProviderHandle, 0 )
RETURN ""
ENDIF
CryptDestroyHash(m.lnHashHandle)
CryptReleaseContext(m.lnProviderHandle, 0 )
RETURN LOWER(STRCONV(m.lcHash, 15 ))
ENDFUNC
Теперь у меня на повестке дня другая проблема - реорганизация структур
нескольких БД в целях более рационального (компактного) размещения строчных
полей
А какая цель? Чтоб места меньша занимало? (сколько ж у тебя записей то?) Или
чтобы быстрее работало? В принципе если тебя уже достают такие проблемы, то
наверное пора переходить на какой-нить SQL сервер - ибо в фоксе нереально
сделать красивую и быструю эмуляцию VARCHAR полей...
Posted via ActualForum NNTP Server 1.1
