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

fedotxxl

Well-known member
09.11.2005
614
0
#1
День добрый,
возможно ли преобразовать подписанные данные в текст (имеется ввиду нерасшифрованный) ? Заказчик хочет распечатать ЭЦП на листке бумаги... в чем смысл не понятно, но переубедить никак нельзя
 
K

Klido

#2
гы :) мне всё пытаются навязать "это" - отбиваюсь как могу :)
в теории - содержимое поля $Signature принтануть - пусть насладятся :)
 

ToxaRat

Чёрный маг
Lotus team
06.11.2007
3 233
18
#3
неее
не просто принтануть, а сначала преобразовать в HEX, тогда смотрится внушительнее :)
тоже пришлось такое сделать :)
 

fedotxxl

Well-known member
09.11.2005
614
0
#5
Насколько я понимаю - для "безопасности"... думаю, если я сгенерирую случайными числами последовательность, заказчика это устроит :)

2ToxaRat
Скинь код, будь другом =)
 
K

Klido

#6
почему- очень просто - если печатаем не аттач, а эл. док - тогда на бумаге эцп=видимой эцп на экране и гарантирует. что напечатали именно этот документ :)
 
K

Klido

#10
ну дык берешь поле $Signature, показываешь на документе - и печатаешь :( по ToxaRat - можно предварительно его украсить (спросить у заказчика как ему приятнее - просто так или в 16-, 8- системе счисления) :)

Добавлено: я подозреваю, что далее будет вопрос "а как сделать так, чтобы в момент печати существовало поле $Signature?" ;) это отдельная тема :(
 

fedotxxl

Well-known member
09.11.2005
614
0
#12
Что-то я не понимаю...
рассказываю, что есть у меня:
поле $Sig_Sign (секцию назвал Sign), Data Type: Cryptographic Signature, Field Flags: SEAL
Перевести данные в текстовый вид никак не получается, .values возвращает пустоту
 

fedotxxl

Well-known member
09.11.2005
614
0
#14
Klido
Ну дык, а ты сам пытался сделать то, что написал? Мне необходимо получить в переменную String данные типы
01 00 A2 23 76 ...#v
00 F6 76 25 C3 ..v%.
8B 02 00 00 10 .....
00 00 00 4F 00 ...O.
00 00 8B 02 00 .....
00 01 00 00 00 .....
00 00 02 00 A2 .....
E0 45 5F F3 03 .E_..
Уже /*...*/ три часа. Сложно было написать больше двух строка. Спасиба за неоценимую помощь, народ!
 

azat20

Well-known member
22.07.2008
244
0
#15
в чем проблема то?
01 00 1F 13 14 .....
00 F7 76 25 C3 ..v%.
76 02 00 00 10 v....
00 00 00 4F 00 ...O.
00 00 76 02 00 ..v..
00 01 00 01 00 .....
00 00 02 00 6C ....l
73 76 A3 C9 03 sv...
00 00 00 00 02 .....
00 69 5F 24 00 .i_$.
E5 70 25 00 00 .p%..
00 00 00 FF FF .....
FF 00 03 01 00 .....
00 3F 01 00 00 .?...
01 ED 00 02 1A .....
DE 2F 00 61 73 ./.as
25 00 E8 DD 2F %.../
00 0E 02 26 C3 ...&.
00 00 05 00 4F ....O
3D 41 42 42 00 =ABB.
00 05 00 4F 3D ...O=
41 42 42 00 00 ABB..
88 00 42 56 04 ..BV.
00 31 2E 30 00 .1.0.
42 43 01 00 03 BC...
42 41 01 00 30 BA..0
42 4C 02 00 76 BL..v
02 4E 4E 50 00 .NNP.
E5 23 35 85 01 .#5..
EF 83 9B 0C 23 ....#
81 16 EC FF C6 .....
08 D1 28 AE AD ..(..
6F 79 0D 58 7C oy.X|
60 14 0C DF A6 `....
23 AF 56 04 DE #.V..
DE DB 53 7D C6 ..S}.
8E 07 03 72 FA ...r.
19 6F 33 4F F9 .o3O.
B9 C0 EE 27 D3 ...'.
13 E3 42 1E 8D ..B..
EF 19 6E 72 27 ..nr'
5A 56 4E C6 3F ZVN.?
5A 87 33 92 44 Z.3.D
EC 44 34 29 00 .D4).
45 4E 04 00 9D EN...
71 00 00 4D 41 q..MA
08 00 93 86 A4 .....
C9 6A A8 E0 37 .j..7
80 00 50 55 52 ..PUR
53 41 46 4F 00 SAFO.
93 87 F0 3D 9A ...=.
A8 9E D7 A0 43 ....C
C4 A8 78 6A 2C ..xj,
91 75 C8 37 06 .u.7.
B0 1B CC 29 B4 ...).
D5 C2 C4 AC 7A ....z
1D C5 9F A9 88 .....
29 81 88 A9 7C )...|
59 0B 43 88 B1 Y.C..
F5 88 B7 76 62 ...vb
96 C3 44 0F 2F ..D./
92 FE F3 0C 01 .....
30 9B A7 DB 16 0....
A1 6F 97 C5 CC .o...
30 85 53 70 D0 0.Sp.
13 BC 1D 10 01 .....
20 00 00 10 C3 ....
1C 00 2A 76 25 ..*v%
00 34 BE 1C 00 .4...
4A 87 25 C3 00 J.%..
00 05 00 4F 3D ...O=
41 42 42 00 00 ABB..
43 00 43 4E 3D C.CN=
05 D1 05 EB 05 .....
F3 05 E6 05 E1 .....
05 E0 20 05 C1 .. ..
05 E5 05 E7 05 .....
EE 05 EF 05 E0 .....
05 F1 05 ED ED .....
00 05 EE 05 F1 .....
05 F2 05 E8 20 ....
05 CD 05 E8 05 .....
E6 05 ED ED 00 .....
05 E5 05 EA 05 .....
E0 05 EC 05 F1 .....
05 EA 2F 4F 3D ../O=
41 42 42 00 00 ABB..
86 00 42 56 04 ..BV.
00 31 2E 30 00 .1.0.
42 43 01 00 03 BC...
42 41 01 00 30 BA..0
42 4C 02 00 76 BL..v
02 4E 4E 4F 00 .NNO.
D5 70 75 0B 87 .pu..
59 6B D6 8F 08 Yk...
F7 12 61 32 00 ..a2.
DA 2D 51 2E CF .-Q..
15 F2 7A 77 51 ..zwQ
DD 3F 78 36 04 .?x6.
FC 14 7F 14 D9 ..
..
BF 5D 05 A2 77 .]..w
E7 7A C0 31 17 .z.1.
06 E4 95 3F 91 ...?.
5F 86 05 56 5A _..VZ
AA 31 15 B6 3B .1..;
9B A7 DE 37 0A ...7.
E1 77 8E 84 6D .w..m
9B 51 C7 5D 9F .Q.].
30 2A 28 2D 45 0*(-E
4E 03 00 01 00 N....
01 4D 41 08 00 .MA..
1C D9 57 A6 67 ..W.g
05 7E E6 7E 00 .~.~.
50 55 52 53 41 PURSA
46 4F 00 90 9A FO...
34 1F FD 89 C8 4....
E9 3C B4 2A 67 .<.*g
A2 F8 3B 29 5E ..:welcome:^
B2 4F 8D 50 95 .O.P.
51 19 C0 0E 2A Q...*
A8 25 F5 0D 28 .%..(
84 B5 28 EB A7 ..(..
E0 BA 72 D9 66 ..r.f
1B E7 90 BE B9 .....
E2 6E 1F E6 89 .n...
A9 E9 38 8E 03 ..8..
F2 CF B4 CE 29 ....)
E3 11 25 55 C5 ..%U.
65 24 E9 97 77 e$..w
83 C7 76 F6 A0 ..v..
0A 00 00 E6 C1 .....
E6 E2 80 86 7B ....{
83 67 31 C6 73 .g1.s
64 5D 7E C2 4B d]~.K
44 5A B5 8B 4E DZ..N
2F 24 B4 36 1C /$.6.
A7 5B B5 A2 99 .[...
D1 2F E9 A0 E5 ./...
42 5C 72 DE 95 B\r..
B0 B4 11 99 80 .....
9E F7 65 6B C5 ..ek.
07 0B 0B 11 50 ....P
25 05 FD 8A 18 %....
4B 78 51 EF 91 KxQ..
10 01 AA 58 9F ...X.
58 FF 0C C4 11 X....
54 58 F0 E6 87 TX...
F1 68 C5 A1 D0 .h...
E2 A8 60 94 42 ..`.B
61 27 02 00 02 a'...
00 0E 00 00 00 .....
00 00 00 00 00 .....
00 00 00 00 00 .....
00 00 00 00 00 .....
00 50 68 6F 6E .Phon
65 31 00 43 68 e1.Ch
65 63 6B 31 00 eck1. - это вывести трудно?
 

fedotxxl

Well-known member
09.11.2005
614
0
#16
Azat Да, не получается вывести это программным путем. Передать это все в переменную String
Народ, долго еще будут посты, которые ни на каплю не приблежают к решению проблемы?
Плс, нужно очень решение. Буду очень благодарен
 

ToxaRat

Чёрный маг
Lotus team
06.11.2007
3 233
18
#17
вот вам функция преобразования строки в хекс, не палитесь больше :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
 

fedotxxl

Well-known member
09.11.2005
614
0
#18
:welcome:
мне нужно получить содержимое поля $Signature в переменную типа String. Конструкции myValue = cstr(nd.getItemValue("$Signature")(0)) НЕ РАБОТАЮТ. RichTextItem.Text НЕ РАБОТАЕТ. За преобразование в hex спасибо, но я сам разобрался уже