Как преобразовать подписанные данные в текст

[Guest]

вот вам функция преобразования строки в хекс, не палитесь больше :welcome:

Function GetHEXKey(s1 As String, paramsize As Integer) As String ' прообразование в HEX
GetHEXKey = ""
Dim sHex As String, sPar As String, cHex As String, iHex As Integer, i As Integer
sHex = ""
sPar = s1
For i = 1 To paramsize
iHex = Asc(Mid(sPar, i, 1))
cHex = Hex$(iHex)
If Len(cHex)=1 Then cHex = "0" & cHex
sHex = cHex & sHex
Next
GetHEXKey = sHex
End Function

А обратно не подскажите в DEC??

 

[fedotxxl]

OKEN, именно!
nvy, нет, не работает

 

[hosm]

fedotxxl не злись, плз...
а скопировать поле в другой док можно и может, (изврат, как идея - у меня опыта с этим нет) в сторону выгрузки в dxl глянуть?

 

[fedotxxl]

OKEN,
Скопировать очень вряд ли поможет, в DXL точно не выгружается - ночью пытался - не получилось + подтверждение на форуме нашел.
Да я не злюсь, просто заказчик, слабо говоря, очень требует... Я вчера искал решение 5 часов. Единственный вариант, как мне кажется - C API. Но с C API мне общаться не приходилось... практически темный лес =(

У кого какие идеи?

 

[ToxaRat]

fedotxxl

в DXL точно не выгружается

точно не получилось? надеюсь хоть уишный док выгружал а не просто док?
попробуй создать компутедное поле которое берет значение из $Signature

 

[fedotxxl]

ToxaRat, гм.. а как уишный док в dxl конвертнуть? Я использовал метод generateXML
Поле делал, конечно. И text, и richText

 

[Omh]

Ща тоже глянул.

Действительно, в DXL это поле не экспортится
Ну и всякие Item.text тоже возвращают пустоту.