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

Тема в разделе "Lotus - Программирование", создана пользователем fedotxxl, 26 мар 2010.

  1. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    День добрый,
    возможно ли преобразовать подписанные данные в текст (имеется ввиду нерасшифрованный) ? Заказчик хочет распечатать ЭЦП на листке бумаги... в чем смысл не понятно, но переубедить никак нельзя
     
  2. Klido

    Klido Гость

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

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    неее
    не просто принтануть, а сначала преобразовать в HEX, тогда смотрится внушительнее :)
    тоже пришлось такое сделать :)
     
  4. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    это для подделки подписи?)
     
  5. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Насколько я понимаю - для "безопасности"... думаю, если я сгенерирую случайными числами последовательность, заказчика это устроит :)

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

    Klido Гость

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

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    какой конкретно код тебе скинуть? :KillMe:
     
  8. Klido

    Klido Гость

    ToxaRat
    код ЭЦП, очевидно :KillMe:
     
  9. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Код, который распечатает ЭЦП
     
  10. Klido

    Klido Гость

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

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

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    Klido
    молодца, так и есть :(
     
  12. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Что-то я не понимаю...
    рассказываю, что есть у меня:
    поле $Sig_Sign (секцию назвал Sign), Data Type: Cryptographic Signature, Field Flags: SEAL
    Перевести данные в текстовый вид никак не получается, .values возвращает пустоту
     
  13. Klido

    Klido Гость

    fedotxxl
    это служебное поле, если эцп отработала правильно - оно есть и непустое....
     
  14. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Klido
    Ну дык, а ты сам пытался сделать то, что написал? Мне необходимо получить в переменную String данные типы
    Уже /*...*/ три часа. Сложно было написать больше двух строка. Спасиба за неоценимую помощь, народ!
     
  15. azat20

    azat20 Well-Known Member

    Регистрация:
    22 июл 2008
    Сообщения:
    244
    Симпатии:
    0
    в чем проблема то?
    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. - это вывести трудно?
     
  16. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Azat Да, не получается вывести это программным путем. Передать это все в переменную String
    Народ, долго еще будут посты, которые ни на каплю не приблежают к решению проблемы?
    Плс, нужно очень решение. Буду очень благодарен
     
  17. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    вот вам функция преобразования строки в хекс, не палитесь больше :welcome:
    Код (LotusScript):
    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
     
  18. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    :welcome:
    мне нужно получить содержимое поля $Signature в переменную типа String. Конструкции myValue = cstr(nd.getItemValue("$Signature")(0)) НЕ РАБОТАЮТ. RichTextItem.Text НЕ РАБОТАЕТ. За преобразование в hex спасибо, но я сам разобрался уже
     
  19. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    ToxaRat а проблема-то не впреобразовании, насколько я поняла, а в этом:
     
  20. nvyush

    nvyush Lotus team
    Lotus team

    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
    itemText$ = notesItem.Text тоже не работает?
     
Загрузка...

Поделиться этой страницей