Доброго всем времени суток.

Пока не критически, поехтому если у кого есть время и желание - буду очень признателен.

Работаю в 7 окнах с 12.1 билдером

Есть вероятность что потребуетса захашать дату как SHA256

Нашёл библиотеку здесь: http://www.topwizprogramming.com/freecode_crypto.html

Пробую запустить, что-то не то.

Подозреваю что запутался с декларированием external function как ansi! or uncode(W) и/или blob to string, string to blob:
/*
· EncodingANSI!· EncodingUTF8!· EncodingUTF16LE! (default)· EncodingUTF16BE!
*/

Encrypt produce trash: W™wGЎЁњGЪм~–чз/аЧ

Hash produce: runtime array boundary exceeded or 00000000000

буду благодарен любой наводке как починить или другому подходу.

спасибо друзья, сейчас почитаю.

Комрады, ls_result строитса правильно, поначалу, но на 15 обороте лупа, AscA() возвращает - 1
я добавил if...end if
естесвенно он сбрасывает f9, а на 16 цепляет правильный b6
(hex: 44a63611a65d57b6267e6f23b694 f9 b6a6be00fe90c994f278da9c9e54274da5)


Char HexDigits[0 TO 15] = {'0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'}
Integer li_idx, li_max, li_byte, li_right, li_left
Blob{1} lblob_byte
String ls_result

li_max = Len(ablob_data)
For li_idx = 1 To li_max
lblob_byte = BlobMid(ablob_data, li_idx, 1)
li_byte = AscA(String(lblob_byte,EncodingANSI!))

if li_byte > 0 then
li_left = li_byte / 16
li_right = Mod(li_byte, 16)
ls_result += HexDigits[li_left] + HexDigits[li_right]
end if
Next

*/
hex: 44a63611a65d57b6267e6f23b694f9b6a6be00fe90c994f278da9c9e54274da5
HEX: 44A63611A65D57B6267E6F23B694F9B6A6BE00FE90C994F278DA9C9E54274DA5
h:e:x: 44:a6:36:11:a6:5d:57:b6:26:7e:6f:23:b6:94:f9:b6:a6:be:00:fe:90:c9:94:f2:78:da:9c:9e:54:27:4d:a5
base64: RKY2EaZdV7Ymfm8jtpT5tqa+AP6QyZTyeNqcnlQnTaU=
*/

как боротса?
подскажите кто знает plz