{"id":315289,"date":"2020-12-21T21:01:12","date_gmt":"2020-12-21T21:01:12","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=315289"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=315289","title":{"rendered":"\u041a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440 Lego \u0438 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0432 Tcl. \u0420\u0430\u0437\u0431\u043e\u0440 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 x509.v3"},"content":{"rendered":"\n
\"image\"\u0427\u0430\u0441\u0442\u043e \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u0441\u043b\u044b\u0448\u0430\u0442\u044c, \u0447\u0442\u043e \u0441\u043a\u0440\u0438\u043f\u0442\u043e\u0432\u043e\u043c\u0443 \u044f\u0437\u044b\u043a\u0443 Tcl \u043d\u0435 \u0445\u0432\u0430\u0442\u0430\u0435\u0442 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u043a\u0438 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u0441\u0442\u0438\u043b\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f. \u0421\u0430\u043c \u044f \u0434\u043e \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0433\u043e \u0432\u0440\u0435\u043c\u0435\u043d\u0438 \u043c\u0430\u043b\u043e \u043f\u0440\u0438\u0431\u0435\u0433\u0430\u043b \u043a \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u043c\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044e, \u0442\u0435\u043c \u0431\u043e\u043b\u0435\u0435 \u0432 \u0441\u0440\u0435\u0434\u0435 Tcl. \u041d\u043e \u0437\u0430 Tcl \u0441\u0442\u0430\u043b\u043e \u043e\u0431\u0438\u0434\u043d\u043e. \u042f \u0440\u0435\u0448\u0438\u043b \u0440\u0430\u0437\u043e\u0431\u0440\u0430\u0442\u044c\u0441\u044f. \u0418 \u043e\u043a\u0430\u0437\u0430\u043b\u043e\u0441\u044c, \u0447\u0442\u043e \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0441 \u043c\u043e\u043c\u0435\u043d\u0442\u0430 \u0441\u0432\u043e\u0435\u0433\u043e \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u044f \u043f\u043e\u044f\u0432\u0438\u043b\u0430\u0441\u044c \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f (\u041e\u041e\u041f) \u0432 \u0441\u0440\u0435\u0434\u0435 Tcl. \u0412\u0441\u0435 \u00ab\u043d\u0435\u0443\u0434\u043e\u0431\u0441\u0442\u0432\u043e\u00bb \u0437\u0430\u043a\u043b\u044e\u0447\u0430\u043b\u043e\u0441\u044c \u0432 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u0438 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0438\u0442\u044c \u043f\u0430\u043a\u0435\u0442 \u0441 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u043a\u043e\u0439 \u041e\u041e\u041f<\/abbr>. \u0410 \u0442\u0430\u043a\u0438\u0445 \u043f\u0430\u043a\u0435\u0442\u043e\u043c \u0431\u044b\u043b\u043e \u0438 \u0435\u0441\u0442\u044c \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e, \u043a\u0430\u043a \u0433\u043e\u0432\u043e\u0440\u0438\u0442\u0441\u044f \u043d\u0430 \u043b\u044e\u0431\u043e\u0439 \u0432\u043a\u0443\u0441. \u042d\u0442\u043e \u0438 Incr Tcl, Snit \u0438 XoTcl.
\u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u044b, \u043f\u0440\u0438\u0432\u044b\u043a\u0448\u0438\u0435 \u043a \u044f\u0437\u044b\u043a\u0443 C++, \u0447\u0443\u0432\u0441\u0442\u0432\u0443\u044e\u0442 \u0441\u0435\u0431\u044f \u043a\u0430\u043a \u0434\u043e\u043c\u0430, \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u0443\u044f \u0432 \u0441\u0440\u0435\u0434\u0435 Incr Tcl. \u042d\u0442\u043e \u0431\u044b\u043b\u043e \u043e\u0434\u043d\u0438\u043c \u0438\u0437 \u043f\u0435\u0440\u0432\u044b\u0445 \u0448\u0438\u0440\u043e\u043a\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u044b\u0445 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439 \u0434\u043b\u044f OO\u041f<\/abbr> \u043d\u0430 \u043e\u0441\u043d\u043e\u0432\u0435 Tcl.
\u041f\u0430\u043a\u0435\u0442 Snit \u0432 \u043e\u0441\u043d\u043e\u0432\u043d\u043e\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u043f\u0440\u0438 \u043f\u043e\u0441\u0442\u0440\u043e\u0435\u043d\u0438\u0438 Tk-\u0432\u0438\u0434\u0436\u0435\u0442\u043e\u0432, \u0430 XoTcl \u0438 \u0435\u0433\u043e \u043f\u0440\u0435\u0435\u043c\u043d\u0438\u043a nx \u043f\u0440\u0435\u0434\u043d\u0430\u0437\u043d\u0430\u0447\u0430\u043b\u0438\u0441\u044c \u0434\u043b\u044f \u0438\u0441\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u044f \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f.
\u041e\u0431\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u043e\u043f\u044b\u0442\u0430, \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0433\u043e \u043f\u0440\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0438 \u044d\u0442\u0438\u0445 \u0441\u0438\u0441\u0442\u0435\u043c, \u043f\u043e\u0437\u0432\u043e\u043b\u0438\u043b\u043e \u0432\u043d\u0435\u0434\u0440\u0438\u0442\u044c \u041e\u041e\u041f \u0432 \u044f\u0434\u0440\u043e Tcl \u043d\u0430\u0447\u0438\u043d\u0430\u044f \u0441 \u0432\u0435\u0440\u0441\u0438\u0438 8.6. \u0422\u0430\u043a \u043f\u043e\u044f\u0432\u0438\u043b\u0441\u044f TclOO \u2014 Tcl Object Oriented.
\u0421\u0440\u0430\u0437\u0443 \u043e\u0442\u043c\u0435\u0442\u0438\u043c, \u0447\u0442\u043e Tcl \u043d\u0435 \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0435\u0442 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435, \u0430 \u0432 \u043f\u043e\u043b\u043d\u043e\u043c \u0441\u043c\u044b\u0441\u043b\u0435 \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u043e\u0435 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435.<\/a>
\u0420\u0430\u0437\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u044f \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f \u043d\u0430 Tcl\/Tk, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 \u0443\u0434\u043e\u0441\u0442\u043e\u0432\u0435\u0440\u044f\u044e\u0449\u0438\u0439 \u0446\u0435\u043d\u0442\u0440 CAFL63<\/a>, \u044f \u043d\u0435 \u043f\u0440\u0438\u0431\u0435\u0433\u0430\u043b \u043a \u041e\u041e\u041f. \u0418, \u043a\u0430\u043a \u0441\u0435\u0439\u0447\u0430\u0441 \u043f\u043e\u043d\u0438\u043c\u0430\u044e, \u0437\u0440\u044f. \u0413\u0434\u0435, \u0433\u0434\u0435, \u0430 \u0432 \u0423\u0426<\/abbr> \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432 \u0445\u0432\u0430\u0442\u0430\u0435\u0442. \u042d\u0442\u043e \u0438 \u0437\u0430\u043f\u0440\u043e\u0441\u044b \u043d\u0430 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u044b, \u044d\u0442\u043e \u0438 \u0441\u0430\u043c\u0438 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u044b, \u0441\u043f\u0438\u0441\u043a\u0438 \u043e\u0442\u043e\u0437\u0432\u0430\u043d\u043d\u044b\u0445 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0432 \u0438 \u043c\u043d\u043e\u0433\u043e \u0447\u0435\u0433\u043e \u0434\u0440\u0443\u0433\u043e\u0433\u043e:<\/p>\n

<\/p>\n

\u041d\u0430\u0447\u0430\u0442\u044c \u0431\u044b\u043b\u043e \u0440\u0435\u0448\u0435\u043d\u043e \u0441 \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0435\u043d\u0438\u044f \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 x509.v3 \u0441 \u0443\u0447\u0435\u0442\u043e\u043c \u0440\u043e\u0441\u0441\u0438\u0439\u0441\u043a\u043e\u0439 \u0441\u043f\u0435\u0446\u0438\u0444\u0438\u043a\u0438 \u043a\u0430\u043a \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u043f\u0440\u0438 \u041e\u041e\u041f. \u0422\u0435\u043c \u0431\u043e\u043b\u0435\u0435, \u0447\u0442\u043e \u0438\u043c\u0435\u0435\u0442\u0441\u044f \u043e\u043f\u044b\u0442 \u0440\u0430\u0437\u0431\u043e\u0440\u0430 \u043a\u0432\u0430\u043b\u0438\u0444\u0438\u0446\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 \u043d\u0430 Python<\/a>. \u0418\u043c\u0435\u043d\u043d\u043e \u043d\u0430 \u043f\u0440\u0438\u043c\u0435\u0440\u0435 \u0440\u0430\u0437\u0431\u043e\u0440\u0430 \u0438 \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u043c \u043c\u044b \u0438 \u043f\u043e\u043a\u0430\u0436\u0435\u043c \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u0441\u0442\u0438\u043b\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0432 TclOO. <\/p>\n

\u041e DER \u0438 BER \u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0430\u0445<\/font><\/h3>\n

\u0414\u043b\u044f \u0434\u043e\u0441\u0442\u0443\u043f\u0430 \u043a \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0443 \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u0437\u0434\u0430\u043d \u043a\u043b\u0430\u0441\u0441 certificate, \u0432 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u0435 \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u043f\u0440\u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u043e\u0433\u043e \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 \u0431\u0443\u0434\u0435\u0442 \u043f\u0440\u043e\u0432\u043e\u0434\u0438\u0442\u0441\u044f \u0440\u0430\u0437\u0431\u043e\u0440 \u0435\u0433\u043e \u043d\u0430 \u0441\u043e\u0441\u0442\u0430\u0432\u043d\u044b\u0435 \u0447\u0430\u0441\u0442\u0438. \u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043d\u0430\u043c \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u0432 \u043f\u0435\u0440\u0432\u0443\u044e \u043e\u0447\u0435\u0440\u0435\u0434\u044c \u043f\u0430\u043a\u0435\u0442 asn (package require asn), \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043f\u043e\u043c\u043e\u0436\u0435\u0442 \u0441 \u0440\u0430\u0437\u0431\u043e\u0440\u043e\u043c asn-\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430. \u041a \u0441\u043e\u0436\u0430\u043b\u0435\u043d\u0438\u044e, \u044d\u0442\u043e\u0442 \u043f\u0430\u043a\u0435\u0442 (\u043a\u0441\u0442\u0430\u0442\u0438, \u0432 \u0434\u0440\u0443\u0433\u0438\u0445 \u0441\u043a\u0440\u0438\u043f\u0442\u043e\u0432\u044b\u0445 \u044f\u0437\u044b\u043a\u0430\u0445 \u0432\u0441\u0442\u0440\u0435\u0447\u0430\u0435\u0442\u0441\u044f \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u0430\u044f \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0430) \u0437\u0430\u0442\u043e\u0447\u0435\u043d \u043d\u0430 \u0440\u0430\u0437\u0431\u043e\u0440 asn-\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440 \u0432 DER-\u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0435. \u041d\u043e \u0441\u0435\u0433\u043e\u0434\u043d\u044f \u0435\u0449\u0435 \u0432\u0441\u0442\u0440\u0435\u0447\u0430\u044e\u0442\u0441\u044f \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u044b (\u0438 \u044d\u043b\u0435\u043a\u0442\u0440\u043e\u043d\u043d\u044b\u0435 \u043f\u043e\u0434\u043f\u0438\u0441\u0438 \u0438 \u043c\u043d\u043e\u0433\u043e \u0447\u0435\u0433\u043e \u0434\u0440\u0443\u0433\u043e\u0433\u043e) \u0432 BER-\u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0435. \u041d\u043e \u043e\u043a\u0430\u0437\u0430\u043b\u043e\u0441\u044c \u0440\u0435\u0448\u0438\u0442\u044c \u044d\u0442\u0443 \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0443 \u043c\u043e\u0436\u043d\u043e \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e, \u0437\u0430\u043c\u0435\u043d\u0438\u0432 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 ::asn::asnLength \u0438\u0437 \u043f\u0430\u043a\u0435\u0442\u0430 ASN \u043d\u0430 \u043d\u043e\u0432\u0443\u044e, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u0434\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0442\u044c \u0434\u043b\u0438\u043d\u044b \u0442\u0435\u0433\u0430 \u043a\u0430\u043a \u0432 DER, \u0442\u0430\u043a \u0438 BER-\u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0430\u0445: <\/p>\n

package require asn #\u041f\u0435\u0440\u0435\u0438\u043c\u0435\u043d\u043e\u0432\u044b\u0432\u0430\u0435\u043c \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b\u044c\u043d\u0443\u044e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u043f\u043e\u0434\u0441\u0447\u0435\u0442\u0430 \u0434\u043b\u0438\u043d\u044b  rename ::asn::asnGetLength ::asn::asnGetLength.orig #\u041d\u043e\u0432\u0430\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u043f\u043e\u0434\u0441\u0447\u0435\u0442\u0430 \u0434\u043b\u0438\u043d\u044b proc ::asn::asnGetLength {data_var length_var} {     upvar 1 $data_var data  $length_var length     asnGetByte data length     if {$length == 0x080} { #\u041f\u043e\u0434\u0434\u0435\u0440\u0436\u043a\u0430 BER-\u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0438 \tset lendata [string length $data] \tset tvl 1 \tset length 0 \tset data1 $data \twhile {$tvl != 0} { \t    ::asn::asnGetByte data1 peek_tag  \t    ::asn::asnPeekByte data1 peek_tag1 \t    if {$peek_tag == 0x00 && $peek_tag1 == 0x00} { \t\tincr tvl -1 \t\t::asn::asnGetByte data1 tag  \t\tincr length 2 \t\tcontinue \t    } \t    if {$peek_tag1 == 0x80} { \t\tincr tvl \t\tif {$tvl > 0} { \t\t    incr length 2 \t\t} \t\t::asn::asnGetByte data1 tag  \t    } else { \t\tset l1 [string length $data1] \t\t::asn::asnGetLength data1 ll \t\tset l2 [string length $data1] \t\tset l3 [expr $l1 - $l2] \t\tincr length $l3 \t\tincr length $ll \t\tincr length \t\t::asn::asnGetBytes data1 $ll strt \t    } \t} \treturn     }     if {$length > 0x080} {         set len_length [expr {$length & 0x7f}]           if {[string length $data] < $len_length} {             return -code error \\ \t\t"length information invalid, not enough octets left"          }         asnGetBytes data $len_length lengthBytes         switch $len_length {             1 { binary scan $lengthBytes     cu length }             2 { binary scan $lengthBytes     Su length }             3 { binary scan \\x00$lengthBytes Iu length }             4 { binary scan $lengthBytes     Iu length }             default {                                 binary scan $lengthBytes H* hexstr \t\tscan $hexstr %llx length             }         }     }     return } <\/code><\/pre>\n
  \u0427\u0442\u043e \u043d\u0430\u043c \u0435\u0449\u0435 \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f? \u041b\u044e\u0431\u0430\u044f ASN-\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430, \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e \u0442\u0430\u043a\u0430\u044f \u043a\u0430\u043a \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 X509.v3 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u0431\u043e\u043b\u044c\u0448\u043e\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e OID-\u043e\u0432, \u0434\u043b\u044f \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043c\u043e\u0433\u0443\u0442 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043e\u0432\u0430\u0442\u044c \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043e\u0431\u0449\u0435\u043f\u0440\u0438\u0437\u043d\u0430\u043d\u043d\u044b\u0435 \u0441\u0438\u043c\u0432\u043e\u043b\u044c\u043d\u044b\u0435 \u043e\u0431\u043e\u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f. \u0417\u043d\u0430\u0447\u0438\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u0447\u0430\u0441\u0442\u044c OID-\u043e\u0432, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0442\u0441\u044f \u0432 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430\u0445, \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u0432 \u043f\u0430\u043a\u0435\u0442\u0435 pki. \u041c\u044b \u0435\u0433\u043e \u0442\u043e\u0436\u0435 \u0431\u0443\u0434\u0435\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c (package require pki). \u0415\u0441\u0442\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e, \u0447\u0442\u043e \u0432 \u044d\u0442\u043e\u043c \u043f\u0430\u043a\u0435\u0442\u0435 \u043d\u0438\u0447\u0435\u0433\u043e \u043d\u0435 \u0438\u0437\u0432\u0435\u0441\u0442\u043d\u043e \u043e\u0431 OID-\u0430\u0445, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0442\u0441\u044f \u0432 \u043a\u0432\u0430\u043b\u0438\u0444\u0438\u0446\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430\u0445 \u0438 \u043e\u0431 OID-\u0430\u0445 \u0434\u043b\u044f \u0440\u043e\u0441\u0441\u0438\u0439\u0441\u043a\u043e\u0439 \u043a\u0440\u0438\u043f\u0442\u043e\u0433\u0440\u0430\u0444\u0438\u0438. \u0418\u0445 \u0442\u043e\u0436\u0435 \u0446\u0435\u043b\u0435\u0441\u043e\u043e\u0431\u0440\u0430\u0437\u043d\u043e \u0434\u043e\u0431\u0430\u0432\u0438\u0442\u044c \u0432 \u043c\u0430\u0441\u0441\u0438\u0432 ::pki::oids:  <\/p>\n
set ::pki::oids(1.2.643.100.1)  "OGRN" set ::pki::oids(1.2.643.100.5)  "OGRNIP" set ::pki::oids(1.2.643.3.131.1.1) "INN" set ::pki::oids(1.2.643.100.3) "SNILS" #\u0414\u043b\u044f \u041a\u041f\u041f \u0415\u0413\u0410\u0418\u0421 set ::pki::oids(1.2.840.113549.1.9.2) "UN" #set ::pki::oids(1.2.840.113549.1.9.2) "unstructuredName" #\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u044b \u043f\u043e\u0434\u043f\u0438\u0441\u0438 set ::pki::oids(1.2.643.2.2.3) "GOST R 34.10-2001 with GOST R 34.11-94" set ::pki::oids(1.2.643.2.2.19) "GOST R 34.10-2001" set ::pki::oids(1.2.643.7.1.1.1.1) "GOST R 34.10-2012-256" set ::pki::oids(1.2.643.7.1.1.1.2) "GOST R 34.10-2012-512" set ::pki::oids(1.2.643.7.1.1.3.2) "GOST R 34.10-2012-256 with GOSTR 34.11-2012-256" set ::pki::oids(1.2.643.7.1.1.3.3) "GOST R 34.10-2012-512 with GOSTR 34.11-2012-512" set ::pki::oids(1.2.643.100.113.1) "KC1 Class Sign Tool" set ::pki::oids(1.2.643.100.113.2) "KC2 Class Sign Tool" set ::pki::oids(2.5.4.42)  "givenName"<\/code><\/pre>\n
  \u0414\u043b\u044f \u043f\u043e\u043b\u043d\u043e\u0442\u044b \u043d\u0435 \u043c\u0435\u0448\u0430\u0435\u0442 \u0442\u0430\u043a\u0436\u0435 \u0434\u043e\u0431\u0430\u0432\u0438\u0442\u044c \u0441\u0438\u043c\u0432\u043e\u043b\u044c\u043d\u043e\u0435 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432 \u043f\u043e\u0434\u043f\u0438\u0441\u0438:   <\/p>\n
                         #\u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u043f\u043e\u0434\u043f\u0438\u0441\u0438<\/b>                         <\/p>\n
\n
#\u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u043f\u043e\u0434\u043f\u0438\u0441\u0438 set ::pki::oids((1.2.643.2.2.35.1)\t"id-GostR3410-2001-CryptoPro-A-ParamSet" set ::pki::oids(1.2.643.2.2.35.2)\t"id-GostR3410-2001-CryptoPro-B-ParamSet" set ::pki::oids(1.2.643.2.2.35.3)\t"id-GostR3410-2001-CryptoPro-C-ParamSet" set ::pki::oids(1.2.643.2.2.36.0)\t"id-GostR3410-2001-CryptoPro-XchA-ParamSet" set ::pki::oids(1.2.643.2.2.36.1)\t"id-GostR3410-2001-CryptoPro-XchB-ParamSet" set ::pki::oids(1.2.643.7.1.2.1.1.1)\t"id-tc26-gost-3410-2012-256-paramSetA" set ::pki::oids(1.2.643.7.1.2.1.1.2)\t"id-tc26-gost-3410-2012-256-paramSetB" set ::pki::oids(1.2.643.7.1.2.1.1.3)\t"id-tc26-gost-3410-2012-256-paramSetC" set ::pki::oids(1.2.643.7.1.2.1.1.4)\t"id-tc26-gost-3410-2012-256-paramSetD" set ::pki::oids(1.2.643.7.1.2.1.2.1)\t"id-tc26-gost-3410-2012-512-paramSetA" set ::pki::oids(1.2.643.7.1.2.1.2.2)\t"id-tc26-gost-3410-2012-512-paramSetB" set ::pki::oids(1.2.643.7.1.2.1.2.3)\t"id-tc26-gost-3410-2012-512-paramSetC"<\/code><\/pre>\n
  <\/div>\n<\/p><\/div>\n
  <\/p>\n
\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043a\u043b\u0430\u0441\u0441\u0430<\/font><\/h3>\n
\u041e\u0431\u044a\u044f\u0432\u043b\u0435\u043d\u0438\u0435 \u043a\u043b\u0430\u0441\u0441\u0430 \u0432 TclOO \u043c\u0430\u043b\u043e \u0447\u0435\u043c \u043e\u0442\u043b\u0438\u0447\u0430\u0435\u0442\u0441\u044f \u043e\u0442 \u043e\u0431\u044a\u044f\u0432\u043b\u0435\u043d\u0438\u044f \u043a\u043b\u0430\u0441\u0441\u0430 \u0432 \u0434\u0440\u0443\u0433\u0438\u0445 \u044f\u0437\u044b\u043a\u0430\u0445. \u041a\u043b\u0430\u0441\u0441 \u0432 TclOO \u0442\u0430\u043a\u0436\u0435 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0445, \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440, \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u043c\u0435\u0442\u043e\u0434\u043e\u0432 \u0438 \u0434\u0435\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440. \u041f\u0440\u0438 \u044d\u0442\u043e\u043c \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0445, \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440 \u0438 \u0434\u0435\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440 \u043c\u043e\u0433\u0443\u0442 \u043e\u043f\u0443\u0441\u043a\u0430\u0442\u044c\u0441\u044f. \u041d\u0430\u043f\u043e\u043c\u043d\u0438\u043c, \u0447\u0442\u043e \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440 \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u043f\u0440\u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043e\u0431\u044a\u0435\u043a\u0442\u0430 (\u044d\u043a\u0437\u0435\u043c\u043f\u043b\u044f\u0440\u0430 \u043e\u0431\u044a\u0435\u043a\u0442\u0430) \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0441\u0430, \u0430 \u0434\u0435\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440 \u043f\u0440\u0438 \u0435\u0433\u043e \u0443\u043d\u0438\u0447\u0442\u043e\u0436\u0435\u043d\u0438\u0438. \u041a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440 (\u0432 \u043e\u0442\u043b\u0438\u0447\u0438\u0438 \u043e\u0442 \u0434\u0435\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u0430), \u0442\u0430\u043a\u0436\u0435 \u043a\u0430\u043a \u0438 \u043c\u0435\u0442\u043e\u0434\u044b, \u043c\u043e\u0436\u0435\u0442 \u0438\u043c\u0435\u0442\u044c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b. \u0412 \u043d\u0430\u0448\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u043c \u0434\u043b\u044f \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u0430 \u0432\u044b\u0441\u0442\u0443\u043f\u0430\u0435\u0442 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0432 DER \u0438\u043b\u0438 PEM \u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0435.
  \u041e\u0431\u043b\u0430\u0441\u0442\u0438 \u0434\u0430\u043d\u043d\u044b\u0445 \u043c\u043e\u0436\u0435\u0442 \u043f\u0440\u0435\u0434\u0448\u0435\u0441\u0442\u0432\u043e\u0432\u0430\u0442\u044c \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u043d\u0430\u0441\u043b\u0435\u0434\u0443\u0435\u043c\u044b\u0445 \u043a\u043b\u0430\u0441\u0441\u043e\u0432 (superclass). \u0415\u0451 \u0431\u0443\u0434\u0435\u043c \u0440\u0430\u0441\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u0442\u044c \u043d\u0438\u0436\u0435. \u041d\u043e, \u0434\u043b\u044f \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u0443\u043d\u0438\u0432\u0435\u0440\u0441\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0441\u0430 certificate, \u044d\u0442\u0430 \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u0431\u0443\u0434\u0435\u0442 \u043d\u0430\u043c\u0438 \u0437\u0430\u0434\u0435\u0439\u0441\u0442\u0432\u043e\u0432\u0430\u043d\u0430. 
  \u0412 TclOO \u043c\u043e\u0436\u043d\u043e \u0443\u0437\u043d\u0430\u0442\u044c \u043a\u0430\u043a\u0438\u0435 \u043a\u043b\u0430\u0441\u0441\u044b \u0432 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442 \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b \u0432 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435. \u0414\u043b\u044f \u044d\u0442\u0438\u0445 \u0446\u0435\u043b\u0435\u0439 \u0441\u043b\u0443\u0436\u0438\u0442 \u043a\u043e\u043c\u0430\u043d\u0434\u0430 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0433\u043e \u0432\u0438\u0434\u0430:  <\/p>\n
info class instances oo::class<\/code><\/pre>\n
  \u0412 \u043f\u043e\u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u043c, \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u0437\u0430\u0434\u0435\u0439\u0441\u0442\u0432\u043e\u0432\u0430\u0442\u044c \u0434\u043b\u044f \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u044f \u043a\u043b\u0430\u0441\u0441 pubkey. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u0432 \u043d\u0430\u0448\u0435\u043c \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0438 \u043a\u043b\u0430\u0441\u0441\u0430 certificate \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u044f \u043a\u043b\u0430\u0441\u0441\u0430 pubkey \u0438, \u0435\u0441\u043b\u0438 \u043e\u043d \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u0435\u0442, \u043e\u043d \u043e\u0431\u044a\u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043a\u0430\u043a \u043d\u0430\u0441\u043b\u0435\u0434\u0443\u0435\u043c\u044b\u0439 (superclass pubkey).
  \u0418\u0442\u0430\u043a, \u043d\u0438\u0436\u0435 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d \u043a\u043b\u0430\u0441\u0441 \u0434\u043b\u044f \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 \u043f\u043e\u043a\u0430 \u0447\u0442\u043e \u0441 \u043e\u0434\u043d\u0438\u043c \u043c\u0435\u0442\u043e\u0434\u043e\u043c parse_cert, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0441\u043f\u0438\u0441\u043e\u043a \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430:  <\/p>\n
                         \u041e\u0431\u044a\u044f\u0432\u043b\u0435\u043d\u0438\u0435 \u043a\u043b\u0430\u0441\u0441\u0430 certificate<\/b>                         <\/p>\n
\n
 oo::class create certificate { #\u0421\u043f\u0438\u0441\u043e\u043a \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b\u0445 \u043a\u043b\u0430\u0441\u0441\u043e\u0432     foreach cl  "[info class instances oo::class]" { \tif {$cl == "::pubkey" } { #\u0415\u0441\u043b\u0438 \u043a\u043b\u0430\u0441\u0441 pubkey \u0435\u0441\u0442\u044c, \u0442\u043e \u043d\u0430\u0441\u043b\u0435\u0434\u0443\u0435\u043c \u0435\u0433\u043e. \u042d\u0442\u043e \u0431\u0443\u0434\u0435\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u043e \u0432 \u043f\u0440\u0438\u043c\u0435\u0440\u0435 3 \t    superclass pubkey \t    break \t}     } #\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u043a\u043b\u0430\u0441\u0441\u0430 #\u0414\u043e\u0441\u0442\u0443\u043f\u043d\u044b \u0442\u043e\u043b\u044c\u043a\u043e \u0432 \u043f\u0440\u0435\u0434\u0435\u043b\u0430\u0445 \u043a\u043b\u0430\u0441\u0441\u0430 #\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0440\u0430\u0437\u043e\u0431\u0440\u0430\u043d\u043d\u043e\u0433\u043e \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430.      variable ret #\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430     variable extcert #\u041a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440     constructor {cert} { \tarray set parsed_cert [::pki::_parse_pem $cert "-----BEGIN CERTIFICATE-----" "-----END CERTIFICATE-----"] \tset cert_seq $parsed_cert(data) \tarray set ret [list] #\u041f\u043e\u043b\u043d\u044b\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 der \u0432 hex \tbinary scan $cert_seq H* ret(cert_full)   # Decode X.509 certificate, which is an ASN.1 sequence \t::asn::asnGetSequence cert_seq wholething \t::asn::asnGetSequence wholething cert #tbs - \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \tset ret(tbsCert) [::asn::asnSequence $cert] \tbinary scan $ret(tbsCert) H* ret(tbsCert) \t::asn::asnPeekByte cert peek_tag \tif {$peek_tag != 0x02} {     # Version number is optional, if missing assumed to be value of 0 \t    ::asn::asnGetContext cert - asn_version \t    ::asn::asnGetInteger asn_version ret(version) \t    incr ret(version) \t} else { \t    set ret(version) 1 \t} \t::asn::asnGetBigInteger cert ret(serial_number) \t::asn::asnGetSequence cert data_signature_algo_seq \t::asn::asnGetObjectIdentifier data_signature_algo_seq ret(data_signature_algo) \t::asn::asnGetSequence cert issuer     set ret(issuer) $issuer \t::asn::asnGetSequence cert validity \t::asn::asnGetUTCTime validity ret(notBefore) \t::asn::asnGetUTCTime validity ret(notAfter) \t::asn::asnGetSequence cert subject     set ret(subject) $subject \t::asn::asnGetSequence cert pubkeyinfo \tbinary scan $pubkeyinfo H* ret(pubkeyinfo_hex) \t::asn::asnGetSequence pubkeyinfo pubkey_algoid \t::asn::asnGetObjectIdentifier pubkey_algoid ret(pubkey_algo) \t::asn::asnGetBitString pubkeyinfo pubkey \tset extensions_list [list] \twhile {$cert != ""} { \t    ::asn::asnPeekByte cert peek_tag \t    switch -- [format {0x%02x} $peek_tag] {     \t\t"0x81" {     \t\t\t::asn::asnGetContext cert - issuerUniqueID     \t\t    }     \t\t"0x82" {     \t\t\t::asn::asnGetContext cert - subjectUniqueID     \t\t    }     \t\t"0xa1" {     \t\t\t::asn::asnGetContext cert - issuerUniqID     \t\t    }     \t\t"0xa2" {     \t\t\t::asn::asnGetContext cert - subjectUniqID     \t\t    }     \t\t"0xa3" {     \t\t\t::asn::asnGetContext cert - extensions_ctx     \t\t\t::asn::asnGetSequence extensions_ctx extensions #\u0423\u0431\u0438\u0440\u0430\u0435\u043c \u043f\u0435\u0440\u0435\u0432\u043e\u0434 oid \u0432 \u0442\u0435\u043a\u0441\u0442 set ::pki::oids1 [array get ::pki::oids] array unset ::pki::oids      \t\t\twhile {$extensions != ""} {         \t\t    ::asn::asnGetSequence extensions extension \t\t            ::asn::asnGetObjectIdentifier extension ext_oid     \t\t\t    ::asn::asnPeekByte extension peek_tag     \t\t\t    if {$peek_tag == 0x1} {         \t\t\t::asn::asnGetBoolean extension ext_critical         \t\t    } else {         \t\t\tset ext_critical false         \t\t    }     \t\t\t    ::asn::asnGetOctetString extension ext_value_seq     \t\t\t    set ext_oid [::pki::_oid_number_to_name $ext_oid]     \t\t\t    set ext_value [list $ext_critical]     \t\t\t    switch -- $ext_oid {                         id-ce-basicConstraints {             \t\t\t    ::asn::asnGetSequence ext_value_seq ext_value_bin             \t\t\t    if {$ext_value_bin != ""} {             \t\t\t\t::asn::asnGetBoolean ext_value_bin allowCA             \t\t\t    } else {             \t\t\t\tset allowCA "false"             \t\t\t    }         \t\t\t    if {$ext_value_bin != ""} {             \t\t\t\t::asn::asnGetInteger ext_value_bin caDepth             \t\t\t    } else {             \t\t\t\tset caDepth -1             \t\t\t    }\t\t             \t\t\t    lappend ext_value $allowCA $caDepth                         }                         default {             \t\t\t    binary scan $ext_value_seq H* ext_value_seq_hex             \t\t\t    lappend ext_value $ext_value_seq_hex                         }                     }     \t\t\t    lappend extensions_list $ext_oid $ext_value     \t\t\t} #\u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u043f\u0435\u0440\u0435\u0432\u043e\u0434 oid-\u043e\u0432 \u0432 \u0442\u0435\u043a\u0441\u0442 array set ::pki::oids $::pki::oids1     \t\t    } \t    } \t} \tset ret(extensions) $extensions_list \tarray set extcert $extensions_list \t::asn::asnGetSequence wholething signature_algo_seq \t::asn::asnGetObjectIdentifier signature_algo_seq ret(signature_algo) \t::asn::asnGetBitString wholething ret(signature) \tset ret(serial_number) [::math::bignum::tostr $ret(serial_number)] \tset ret(signature) [binary format B* $ret(signature)] \tbinary scan $ret(signature) H* ret(signature) #\u0418\u043d\u0438\u0446\u0438\u0438\u0440\u0443\u0435\u043c \u043a\u043b\u0430\u0441\u0441 pubkeyinfo \u043f\u0440\u0438 \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u0438 - superclass \tif {[llength [self next]]} { #\u0415\u0441\u043b\u0438 \u0435\u0441\u0442\u044c \u043d\u0430\u0441\u043b\u0435\u0434\u0443\u0435\u043c\u044b\u0439 \u043a\u043b\u0430\u0441\u0441, \u0442\u043e \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u0435\u0433\u043e \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440 \t\tnext $ret(pubkeyinfo_hex) \t}     }     method parse_cert {} {         return [array get ret]     } } <\/code><\/pre>\n
  <\/div>\n<\/p><\/div>\n
  \u0412 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u0434\u0430\u043d\u043d\u044b\u0445 \u043a\u043e\u043c\u0430\u043d\u0434\u043e\u0439 variable \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0442\u0441\u044f \u0434\u0430\u043d\u043d\u044b\u0435\/\u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u0447\u0435\u0440\u0435\u0437, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b \u0432\u043e \u0432\u0441\u0435\u0445 \u043c\u0435\u0442\u043e\u0434\u0430\u0445 \u043a\u043b\u0430\u0441\u0441\u0430. 
  \u041c\u0435\u0442\u043e\u0434 method \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442\u0441\u044f \u0442\u043e\u0447\u043d\u043e \u0442\u0430\u043a \u0436\u0435, \u043a\u0430\u043a \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 proc Tcl. \u041c\u0435\u0442\u043e\u0434\u044b \u043c\u043e\u0433\u0443\u0442 \u0438\u043c\u0435\u0442\u044c \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u043b\u044c\u043d\u043e\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432. \u0412\u043d\u0443\u0442\u0440\u0438 \u043c\u0435\u0442\u043e\u0434\u0430 \u043c\u043e\u0436\u043d\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0442\u044c \u0441\u0432\u043e\u0438 \u0434\u0430\u043d\u043d\u044b\u0435 \u043a\u043e\u043c\u0430\u043d\u0434\u043e\u0439 <\/p>\n
my variable <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439><\/code><\/pre>\n
. \u041c\u0435\u0442\u043e\u0434\u044b \u043c\u043e\u0433\u0443\u0442 \u0431\u044b\u0442\u044c \u043f\u0443\u0431\u043b\u0438\u0447\u043d\u044b\u043c\u0438 (\u044d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u0443\u0435\u043c\u044b\u043c\u0438) \u0438 \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u043c\u0438.
  \u042d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u0443\u0435\u043c\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u043c\u0435\u0442\u043e\u0434\u044b \u0432\u0438\u0434\u0438\u043c\u044b \u0437\u0430 \u043f\u0440\u0435\u0434\u0435\u043b\u0430\u043c\u0438 \u043a\u043b\u0430\u0441\u0441\u0430. \u041f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e \u044d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u0443\u044e\u0442\u0441\u044f \u043c\u0435\u0442\u043e\u0434\u044b \u043d\u0430\u0447\u0438\u043d\u0430\u044e\u0442\u0441\u044f \u0441\u043e \u0441\u0442\u0440\u043e\u0447\u043d\u043e\u0439 \u0431\u0443\u043a\u0432\u044b. \u041f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e \u043c\u0435\u0442\u043e\u0434\u044b, \u0447\u044c\u0438 \u0438\u043c\u0435\u043d\u0430 \u043d\u0430\u0447\u0438\u043d\u0430\u044e\u0442\u0441\u044f \u0441 \u043f\u0440\u043e\u043f\u0438\u0441\u043d\u043e\u0439 \u0431\u0443\u043a\u0432\u044b \u0441\u0447\u0438\u0442\u0430\u044e\u0442\u0441\u044f \u043d\u0435\u044d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u0443\u0435\u043c\u044b\u043c\u0438 (\u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u043c\u0438) \u043c\u0435\u0442\u043e\u0434\u0430\u043c\u0438. \u041e\u0431\u043b\u0430\u0441\u0442\u044c \u0432\u0438\u0434\u0438\u043c\u043e\u0441\u0442\u0438 \u043d\u0435\u0437\u0430\u0432\u0438\u0441\u0438\u043c\u043e \u043e\u0442 \u043f\u0435\u0440\u0432\u043e\u0433\u043e \u0441\u0438\u043c\u0432\u043e\u043b\u0430 \u043c\u043e\u0436\u043d\u043e \u0437\u0430\u0434\u0430\u0442\u044c \u044f\u0432\u043d\u043e. \u0414\u043b\u044f \u0443\u043a\u0430\u0437\u0430\u043d\u0438\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u043c\u0435\u0442\u043e\u0434 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043f\u0443\u0431\u043b\u0438\u0447\u043d\u044b\u043c \u0441\u043b\u0443\u0436\u0438\u0442 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0430\u044f \u043a\u043e\u043c\u0430\u043d\u0434\u0430:  <\/p>\n
export <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043c\u0435\u0442\u043e\u0434\u0430><\/code><\/pre>\n
.
  \u0414\u043b\u044f \u0437\u0430\u043f\u0440\u0435\u0442\u0430 \u044d\u043a\u0441\u043f\u043e\u0440\u0442\u0430 \u043c\u0435\u0442\u043e\u0434\u0430 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0430\u044f \u043a\u043e\u043c\u0430\u043d\u0434\u0430:  <\/p>\n
unexport <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043c\u0435\u0442\u043e\u0434\u0430><\/code><\/pre>\n
.
  \u0414\u043b\u044f \u0432\u044b\u0437\u043e\u0432\u0430 \u043e\u0434\u043d\u043e\u0433\u043e \u043c\u0435\u0442\u043e\u0434\u0430 \u0438\u0437 \u0434\u0440\u0443\u0433\u043e\u0433\u043e \u043c\u0435\u0442\u043e\u0434\u0430 \u0432\u043d\u0443\u0442\u0440\u0438 \u043a\u043b\u0430\u0441\u0441\u0430 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u043a\u043e\u043c\u0430\u043d\u0434\u0430 my:  <\/p>\n
my <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043c\u0435\u0442\u043e\u0434\u0430><\/code><\/pre>\n
.
  \u0414\u043b\u044f \u044d\u0442\u043e\u0439 \u0436\u0435 \u0446\u0435\u043b\u0438 \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0432\u043d\u0443\u0442\u0440\u0435\u043d\u043d\u044e\u044e \u043a\u043e\u043c\u0430\u043d\u0434\u0430 \u043a\u043b\u0430\u0441\u0441\u0430 self, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u0442\u0435\u043a\u0443\u0449\u0435\u0433\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u0430:  <\/p>\n
[self] <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043c\u0435\u0442\u043e\u0434\u0430><\/code><\/pre>\n
  \u041d\u0438\u0436\u0435 \u043c\u044b \u0443\u0432\u0438\u0434\u0438\u043c \u0432\u0441\u0451 \u044d\u0442\u043e.
  \u0414\u043b\u044f \u0434\u0430\u043b\u044c\u043d\u0435\u0439\u0448\u0435\u0439 \u0440\u0430\u0431\u043e\u0442\u044b \u0441\u043e\u0431\u0435\u0440\u0435\u043c \u0432\u0435\u0441\u044c \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0435\u043d\u043d\u044b\u0439 \u043a\u043e\u0434 \u0432 \u0444\u0430\u0439\u043b\u0435 classparsecert.tcl.   <\/p>\n
                         \u0421\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u043e\u0435 \u0444\u0430\u0439\u043b\u0430 classparsecert.tcl<\/b>                         <\/p>\n
\n
 package require asn #\u041f\u0435\u0440\u0435\u0438\u043c\u0435\u043d\u043e\u0432\u044b\u0432\u0430\u0435\u043c \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b\u044c\u043d\u0443\u044e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u043f\u043e\u0434\u0441\u0447\u0435\u0442\u0430 \u0434\u043b\u0438\u043d\u044b  rename ::asn::asnGetLength ::asn::asnGetLength.orig #\u041d\u043e\u0432\u0430\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u043f\u043e\u0434\u0441\u0447\u0435\u0442\u0430 \u0434\u043b\u0438\u043d\u044b proc ::asn::asnGetLength {data_var length_var} {     upvar 1 $data_var data  $length_var length     asnGetByte data length     if {$length == 0x080} { #\u041f\u043e\u0434\u0434\u0435\u0440\u0436\u043a\u0430 BER-\u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0438 \tset lendata [string length $data] \tset tvl 1 \tset length 0 \tset data1 $data \twhile {$tvl != 0} { \t    ::asn::asnGetByte data1 peek_tag  \t    ::asn::asnPeekByte data1 peek_tag1 \t    if {$peek_tag == 0x00 && $peek_tag1 == 0x00} { \t\tincr tvl -1 \t\t::asn::asnGetByte data1 tag  \t\tincr length 2 \t\tcontinue \t    } \t    if {$peek_tag1 == 0x80} { \t\tincr tvl \t\tif {$tvl > 0} { \t\t    incr length 2 \t\t} \t\t::asn::asnGetByte data1 tag  \t    } else { \t\tset l1 [string length $data1] \t\t::asn::asnGetLength data1 ll \t\tset l2 [string length $data1] \t\tset l3 [expr $l1 - $l2] \t\tincr length $l3 \t\tincr length $ll \t\tincr length \t\t::asn::asnGetBytes data1 $ll strt \t    } \t} \treturn     }     if {$length > 0x080} {         set len_length [expr {$length & 0x7f}]         if {[string length $data] < $len_length} {             return -code error \\ \t\t"length information invalid, not enough octets left"          }         asnGetBytes data $len_length lengthBytes         switch $len_length {             1 { binary scan $lengthBytes     cu length }             2 { binary scan $lengthBytes     Su length }             3 { binary scan \\x00$lengthBytes Iu length }             4 { binary scan $lengthBytes     Iu length }             default {                                 binary scan $lengthBytes H* hexstr \t\tscan $hexstr %llx length             }         }     }     return } package require pki set ::pki::oids(1.2.643.100.1)  "OGRN" set ::pki::oids(1.2.643.100.5)  "OGRNIP" set ::pki::oids(1.2.643.3.131.1.1) "INN" set ::pki::oids(1.2.643.100.3) "SNILS" #\u0414\u043b\u044f \u041a\u041f\u041f \u0415\u0413\u0410\u0418\u0421 set ::pki::oids(1.2.840.113549.1.9.2) "UN" #set ::pki::oids(1.2.840.113549.1.9.2) "unstructuredName" #\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u044b \u043f\u043e\u0434\u043f\u0438\u0441\u0438 set ::pki::oids(1.2.643.2.2.3) "GOST R 34.10-2001 with GOST R 34.11-94" set ::pki::oids(1.2.643.2.2.19) "GOST R 34.10-2001" set ::pki::oids(1.2.643.7.1.1.1.1) "GOST R 34.10-2012-256" set ::pki::oids(1.2.643.7.1.1.1.2) "GOST R 34.10-2012-512" set ::pki::oids(1.2.643.7.1.1.3.2) "GOST R 34.10-2012-256 with GOSTR 34.11-2012-256" set ::pki::oids(1.2.643.7.1.1.3.3) "GOST R 34.10-2012-512 with GOSTR 34.11-2012-512" set ::pki::oids(1.2.643.100.113.1) "KC1 Class Sign Tool" set ::pki::oids(1.2.643.100.113.2) "KC2 Class Sign Tool" set ::pki::oids(2.5.4.42)  "givenName" #\u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u043f\u043e\u0434\u043f\u0438\u0441\u0438 set ::pki::oids((1.2.643.2.2.35.1)\t"id-GostR3410-2001-CryptoPro-A-ParamSet" set ::pki::oids(1.2.643.2.2.35.2)\t"id-GostR3410-2001-CryptoPro-B-ParamSet" set ::pki::oids(1.2.643.2.2.35.3)\t"id-GostR3410-2001-CryptoPro-C-ParamSet" set ::pki::oids(1.2.643.2.2.36.0)\t"id-GostR3410-2001-CryptoPro-XchA-ParamSet" set ::pki::oids(1.2.643.2.2.36.1)\t"id-GostR3410-2001-CryptoPro-XchB-ParamSet" set ::pki::oids(1.2.643.7.1.2.1.1.1)\t"id-tc26-gost-3410-2012-256-paramSetA" set ::pki::oids(1.2.643.7.1.2.1.1.2)\t"id-tc26-gost-3410-2012-256-paramSetB" set ::pki::oids(1.2.643.7.1.2.1.1.3)\t"id-tc26-gost-3410-2012-256-paramSetC" set ::pki::oids(1.2.643.7.1.2.1.1.4)\t"id-tc26-gost-3410-2012-256-paramSetD" set ::pki::oids(1.2.643.7.1.2.1.2.1)\t"id-tc26-gost-3410-2012-512-paramSetA" set ::pki::oids(1.2.643.7.1.2.1.2.2)\t"id-tc26-gost-3410-2012-512-paramSetB" set ::pki::oids(1.2.643.7.1.2.1.2.3)\t"id-tc26-gost-3410-2012-512-paramSetC" #\u041a\u043b\u0430\u0441\u0441 certificate oo::class create certificate { #\u041d\u0430\u0441\u043b\u0435\u0434\u0443\u0435\u043c \u043a\u043b\u0430\u0441\u0441 pubkey #    superclass pubkey #\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u043a\u043b\u0430\u0441\u0441\u0430 #\u0414\u043e\u0441\u0442\u0443\u043f\u043d\u044b \u0442\u043e\u043b\u044c\u043a\u043e \u0432 \u043f\u0440\u0435\u0434\u0435\u043b\u0430\u0445 \u043a\u043b\u0430\u0441\u0441\u0430 #\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0440\u0430\u0437\u043e\u0431\u0440\u0430\u043d\u043d\u043e\u0433\u043e \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430.      variable ret #\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 variable extcert #\u041a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440     constructor {cert} { \tarray set parsed_cert [::pki::_parse_pem $cert "-----BEGIN CERTIFICATE-----" "-----END CERTIFICATE-----"] \tset cert_seq $parsed_cert(data) \tarray set ret [list] #\u041f\u043e\u043b\u043d\u044b\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 der \u0432 hex \tbinary scan $cert_seq H* ret(cert_full)   # Decode X.509 certificate, which is an ASN.1 sequence \t::asn::asnGetSequence cert_seq wholething \t::asn::asnGetSequence wholething cert #tbs - \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \tset ret(tbsCert) [::asn::asnSequence $cert] \tbinary scan $ret(tbsCert) H* ret(tbsCert) \t::asn::asnPeekByte cert peek_tag \tif {$peek_tag != 0x02} {     # Version number is optional, if missing assumed to be value of 0 \t    ::asn::asnGetContext cert - asn_version \t    ::asn::asnGetInteger asn_version ret(version) \t    incr ret(version) \t} else { \t    set ret(version) 1 \t} \t::asn::asnGetBigInteger cert ret(serial_number) \t::asn::asnGetSequence cert data_signature_algo_seq \t::asn::asnGetObjectIdentifier data_signature_algo_seq ret(data_signature_algo) \t::asn::asnGetSequence cert issuer     set ret(issuer) $issuer \t::asn::asnGetSequence cert validity \t::asn::asnGetUTCTime validity ret(notBefore) \t::asn::asnGetUTCTime validity ret(notAfter) \t::asn::asnGetSequence cert subject     set ret(subject) $subject \t::asn::asnGetSequence cert pubkeyinfo \tbinary scan $pubkeyinfo H* ret(pubkeyinfo_hex) \t::asn::asnGetSequence pubkeyinfo pubkey_algoid \t::asn::asnGetObjectIdentifier pubkey_algoid ret(pubkey_algo) \t::asn::asnGetBitString pubkeyinfo pubkey \tset extensions_list [list] \twhile {$cert != ""} { \t    ::asn::asnPeekByte cert peek_tag \t    switch -- [format {0x%02x} $peek_tag] {     \t\t"0x81" {     \t\t\t::asn::asnGetContext cert - issuerUniqueID     \t\t    }     \t\t"0x82" {     \t\t\t::asn::asnGetContext cert - subjectUniqueID     \t\t    }     \t\t"0xa1" {     \t\t\t::asn::asnGetContext cert - issuerUniqID     \t\t    }     \t\t"0xa2" {     \t\t\t::asn::asnGetContext cert - subjectUniqID     \t\t    }     \t\t"0xa3" {     \t\t\t::asn::asnGetContext cert - extensions_ctx     \t\t\t::asn::asnGetSequence extensions_ctx extensions #\u0423\u0431\u0438\u0440\u0430\u0435\u043c \u043f\u0435\u0440\u0435\u0432\u043e\u0434 oid \u0432 \u0442\u0435\u043a\u0441\u0442 set ::pki::oids1 [array get ::pki::oids] array unset ::pki::oids      \t\t\twhile {$extensions != ""} {         \t\t    ::asn::asnGetSequence extensions extension \t\t            ::asn::asnGetObjectIdentifier extension ext_oid     \t\t\t    ::asn::asnPeekByte extension peek_tag     \t\t\t    if {$peek_tag == 0x1} {         \t\t\t::asn::asnGetBoolean extension ext_critical         \t\t    } else {         \t\t\tset ext_critical false         \t\t    }     \t\t\t    ::asn::asnGetOctetString extension ext_value_seq     \t\t\t    set ext_oid [::pki::_oid_number_to_name $ext_oid]     \t\t\t    set ext_value [list $ext_critical]     \t\t\t    switch -- $ext_oid {                         id-ce-basicConstraints {             \t\t\t    ::asn::asnGetSequence ext_value_seq ext_value_bin             \t\t\t    if {$ext_value_bin != ""} {             \t\t\t\t::asn::asnGetBoolean ext_value_bin allowCA             \t\t\t    } else {             \t\t\t\tset allowCA "false"             \t\t\t    }         \t\t\t    if {$ext_value_bin != ""} {             \t\t\t\t::asn::asnGetInteger ext_value_bin caDepth             \t\t\t    } else {             \t\t\t\tset caDepth -1             \t\t\t    }           \t\t\t\t\t\t             \t\t\t    lappend ext_value $allowCA $caDepth                         }                         default {             \t\t\t    binary scan $ext_value_seq H* ext_value_seq_hex             \t\t\t    lappend ext_value $ext_value_seq_hex                         }                     }     \t\t\t    lappend extensions_list $ext_oid $ext_value     \t\t\t} #\u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u043f\u0435\u0440\u0435\u0432\u043e\u0434 oid-\u043e\u0432 \u0432 \u0442\u0435\u043a\u0441\u0442 array set ::pki::oids $::pki::oids1     \t\t    } \t    } \t} \tset ret(extensions) $extensions_list \tarray set extcert $extensions_list \t::asn::asnGetSequence wholething signature_algo_seq \t::asn::asnGetObjectIdentifier signature_algo_seq ret(signature_algo) \t::asn::asnGetBitString wholething ret(signature) \tset ret(serial_number) [::math::bignum::tostr $ret(serial_number)] \tset ret(signature) [binary format B* $ret(signature)] \tbinary scan $ret(signature) H* ret(signature) #\u0418\u043d\u0438\u0446\u0438\u0438\u0440\u0443\u0435\u043c \u043a\u043b\u0430\u0441\u0441 pubkeyinfo \u043f\u0440\u0438 \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u0438 - superclass #\tnext $ret(pubkeyinfo_hex)     }     method parse_cert {} {         return [array get ret]     } } <\/code><\/pre>\n
  <\/div>\n<\/p><\/div>\n
  \u041f\u043e\u0441\u043b\u0435 \u0442\u043e\u0433\u043e \u043a\u0430\u043a \u0431\u044b\u043b \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d \u043a\u043b\u0430\u0441\u0441 \u043c\u043e\u0436\u043d\u043e \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u044b\u0439 \u043e\u0431\u044a\u0435\u043a\u0442 (\u044d\u043a\u0437\u0435\u043c\u043f\u043b\u044f\u0440 \u043e\u0431\u044a\u0435\u043a\u0442\u0430). \u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0430 \u043e\u0434\u043d\u0430 \u0438\u0437 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0445 \u043a\u043e\u043c\u0430\u043d\u0434:  <\/p>\n
<\u0438\u043c\u044f \u043a\u043b\u0430\u0441\u0441\u0430> create <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u044d\u043a\u0437\u0435\u043c\u043f\u043b\u044f\u0440\u0430 \u043a\u043b\u0430\u0441\u0441\u0430> [\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0434\u043b\u044f \u043a\u043e\u043d\u0441\u0442\u0443\u043a\u0442\u0443\u0440\u0430]<\/code><\/pre>\n
  \u0438\u043b\u0438  <\/p>\n
set <\u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0434\u043b\u044f \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440\u0430 \u044d\u043a\u0437\u0435\u043c\u043f\u043b\u044f\u0440\u0430 \u043a\u043b\u0430\u0441\u0441\u0430 > <\u0438\u043c\u044f \u043a\u043b\u0430\u0441\u0441\u0430> new [\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0434\u043b\u044f \u043a\u043e\u043d\u0441\u0442\u0443\u043a\u0442\u0443\u0440\u0430]<\/code><\/pre>\n
  \u0412 \u043f\u0435\u0440\u0432\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442 \u0441\u0430\u043c \u043d\u0430\u0437\u043d\u0430\u0447\u0430\u0435\u0442 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u0434\u043b\u044f \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0435\u043c\u043e\u0433\u043e \u044d\u043a\u0437\u0435\u043c\u043f\u043b\u044f\u0440\u0430 \u043e\u0431\u044a\u0435\u043a\u0442\u0430. \u042d\u0442\u043e\u0442 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u0444\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0431\u0443\u0434\u0435\u0442 \u043a\u043e\u043c\u0430\u043d\u0434\u043e\u0439, \u0447\u0435\u0440\u0435\u0437 \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u043e\u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0434\u043e\u0441\u0442\u0443\u043f \u043a \u043e\u0431\u044a\u0435\u043a\u0442\u0443 \u0438 \u0435\u0433\u043e \u043c\u0435\u0442\u043e\u0434\u0430\u043c:  <\/p>\n
<\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043e\u0431\u044a\u0435\u043a\u0442\u0430>  <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043c\u0435\u0442\u043e\u0434\u0430> [<\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b>]<\/code><\/pre>\n
  \u0412\u043e \u0432\u0442\u043e\u0440\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0435\u043c\u043e\u0433\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u043d\u0430\u0437\u043d\u0430\u0447\u0430\u0435\u0442\u0441\u044f \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0442\u043e\u0440\u043e\u043c \u0438 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442\u0441\u044f \u043a\u0430\u043a \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043a\u043e\u043c\u0430\u043d\u0434\u044b new \u0434\u043b\u044f \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0441\u0430. \u0412 \u044d\u0442\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u0431\u0443\u0434\u0435\u0442 \u0431\u0440\u0430\u0442\u044c\u0441\u044f \u0438\u0437 \u044d\u0442\u043e\u0439 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439. 
  \u0418\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e \u0441\u0440\u0430\u0432\u043d\u0438\u0442\u044c \u0441 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435\u043c \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u0432 Python<\/a>. \u0418 \u0447\u0442\u043e \u043c\u044b \u0432\u0438\u0434\u0438\u043c? \u041d\u0435\u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u0443\u044e \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0447\u0435\u0441\u043a\u0443\u044e \u0440\u0430\u0437\u043d\u0438\u0446\u0443.<\/p>\n
  \u041d\u0430\u043f\u0438\u0448\u0435\u043c \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u043e\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 example1.tcl \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u044d\u0442\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0441\u0430:  <\/p>\n
#\u0417\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u043a\u043b\u0430\u0441\u0441\u0430 source .\/classparsecert.tcl #\u0417\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 set file [lindex $argv 0] if {$argc != 1 || ![file exists $file]} {     puts "Usage: tclsh example1 <\u0444\u0430\u0439\u043b \u0441 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u043c>"     exit } puts "Loading file: $file" set fd [open $file] chan configure $fd -translation binary set data [read $fd] close $fd if {[catch {certificate create cert1 $data} er1]} { \tputs "\u0424\u0430\u0439\u043b \u043d\u0435 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u0421\u0415\u0420\u0422\u0418\u0424\u0418\u041a\u0410\u0422" \texit } array set cert_parse [cert1 parse_cert] #parray cert_parse puts "\u0420\u0430\u0441\u043f\u0430\u0440\u0441\u0435\u043d\u043d\u044b\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442" foreach ind [array names cert_parse] {     puts "\\tcert_parse($ind)" }<\/code><\/pre>\n
  \u0412\u044b\u043f\u043e\u043b\u043d\u0438\u043c \u043f\u0440\u0438\u043c\u0435\u0440:  <\/p>\n
$tclsh .\/example1.tcl Loading file: minenergo.cer \u0420\u0430\u0441\u043f\u0430\u0440\u0441\u0435\u043d\u043d\u044b\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442         cert_parse(subject)         cert_parse(pubkeyinfo_hex)         cert_parse(extensions)         cert_parse(issuer)         cert_parse(data_signature_algo)         cert_parse(cert_full)         cert_parse(serial_number)         cert_parse(signature)         cert_parse(pubkey_algo)         cert_parse(notAfter)         cert_parse(signature_algo)         cert_parse(notBefore)         cert_parse(version)         cert_parse(tbsCert) $  <\/code><\/pre>\n
  <\/p>\n
\u041e \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u0435 Lego<\/font><\/h3>\n
\u0423 \u0447\u0438\u0442\u0430\u0442\u0435\u043b\u044f, \u043d\u0430\u0432\u0435\u0440\u043d\u043e\u0435, \u0442\u0430\u043a \u0438 \u0445\u043e\u0447\u0435\u0442 \u0441\u043e\u0440\u0432\u0430\u0442\u044c\u0441\u044f \u0441 \u044f\u0437\u044b\u043a\u0430 \u0432\u043e\u043f\u0440\u043e\u0441:- \u0410 \u043f\u0440\u0438\u0447\u0435\u043c \u0437\u0434\u0435\u0441\u044c \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440 Lego? \u0410 \u0432\u043e\u0442 \u043f\u0440\u0438 \u0447\u0435\u043c. \u0415\u0441\u043b\u0438, \u0441\u043a\u0430\u0436\u0435\u043c \u0432 C++ \u043a\u043b\u0430\u0441\u0441 \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u0434\u043e\u043b\u0436\u0435\u043d \u0431\u044b\u0442\u044c \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d \u0441\u0440\u0430\u0437\u0443, \u0442\u043e \u0432 TclOO<\/abbr> \u043a\u043b\u0430\u0441\u0441 \u043c\u043e\u0436\u0435\u0442 \u0441\u043e\u0431\u0438\u0440\u0430\u0442\u044c\u0441\u044f \u043f\u043e\u0441\u0442\u0435\u043f\u0435\u043d\u043d\u043e \u043a\u0430\u043a \u043c\u043e\u0434\u0435\u043b\u044c \u0432 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u0435. \u0411\u043e\u043b\u0435\u0435 \u0442\u043e\u0433\u043e \u043e\u0434\u043d\u0438 \u0447\u0430\u0441\u0442\u0438 \u043a\u043b\u0430\u0441\u0441\u0430 \u043c\u043e\u0433\u0443\u0442 \u0443\u0434\u0430\u043b\u044f\u0442\u044c\u0441\u044f \u0438 \u0437\u0430\u043c\u0435\u043d\u044f\u0442\u044c\u0441\u044f \u0434\u0440\u0443\u0433\u0438\u043c\u0438 \u0438 \u0442.\u0434. \u0411\u043e\u043b\u0435\u0435 \u0442\u043e\u0433\u043e, \u0442\u0430\u043a\u043e\u0439 \u043c\u0435\u0442\u043e\u0434 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u043a\u043b\u0430\u0441\u0441\u0430 \u0440\u0430\u0441\u043f\u0440\u043e\u0441\u0442\u0440\u0430\u043d\u044f\u0435\u0442\u0441\u044f \u0438 \u043d\u0430 \u043e\u0431\u044a\u0435\u043a\u0442\u044b, \u0434\u0430 \u043d\u0430 \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u044b\u0435 \u043e\u0431\u044a\u0435\u043a\u0442\u044b. 
   \u041f\u0440\u0435\u0434\u043f\u043e\u043b\u043e\u0436\u0438\u043c, \u0447\u0442\u043e \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0432\u044b\u0432\u0435\u0441\u0442\u0438 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u0438 \u043e \u0432\u043b\u0430\u0434\u0435\u043b\u044c\u0446\u0435 \u0438 \u043e\u0431 \u0438\u0437\u0434\u0430\u0442\u0435\u043b\u0435 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430. \u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043d\u0430\u043c \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u0434\u0432\u0430 \u043f\u0443\u0431\u043b\u0438\u0447\u043d\u044b\u0445 issur \u0438 subject \u0438 \u043e\u0434\u0438\u043d \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u0439 \u043c\u0435\u0442\u043e\u0434 parse_dn \u0434\u043b\u044f \u0440\u0430\u0437\u0431\u043e\u0440\u0430 \u043e\u0442\u043b\u0438\u0447\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0433\u043e \u0438\u043c\u0435\u043d\u0438 (DN) \u0438\u0437\u0434\u0430\u0442\u0435\u043b\u044f \u0438 \u0432\u043b\u0430\u0434\u0435\u043b\u044c\u0446\u0430. \u0422\u0440\u0430\u0434\u0438\u0446\u0438\u043e\u043d\u043d\u043e \u043d\u0430\u043c \u043f\u0440\u0438\u0448\u043b\u043e\u0441\u044c \u0431\u044b \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u0430\u0442\u044c \u043a\u043b\u0430\u0441\u0441 certificate, \u0434\u043e\u0431\u0430\u0432\u0438\u0432 \u0432 \u043d\u0435\u0433\u043e \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b. \u0412 TclOO \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u0441\u0442\u0443\u043f\u0438\u0442\u044c \u043f\u043e \u0434\u0440\u0443\u0433\u043e\u043c\u0443. \u041c\u043e\u0436\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u0432 \u043d\u0443\u0436\u043d\u043e\u043c \u043c\u0435\u0441\u0442\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440 \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0432 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0439 \u043a\u043b\u0430\u0441\u0441 \u043d\u043e\u0432\u044b\u0445 \u0447\u043b\u0435\u043d\u043e\u0432.
  \u0414\u043b\u044f \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0432 \u043a\u043b\u0430\u0441\u0441 \u043d\u043e\u0432\u044b\u0445 \u0447\u043b\u0435\u043d\u043e\u0432 \u0432 \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0445 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u043a\u043e\u043c\u0430\u043d\u0434\u0430 (\u043c\u043e\u0434\u0443\u043b\u044c \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u0430) \u0432\u0438\u0434\u0430:  <\/p>\n
oo::define <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043a\u043b\u0430\u0441\u0441\u0430>  { #\u041e\u0431\u043b\u0430\u0441\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0445 \u043a\u043b\u0430\u0441\u0441\u0430 \tvariable <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439> \u2026 [<\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439>] \t[ variable <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439> ] }<\/code><\/pre>\n
  \u041c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e\u00a0\u043a\u043e\u043c\u0430\u043d\u0434 variable, \u043a\u0430\u0436\u0434\u0430\u044f \u0438\u0437 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u043e\u0434\u0438\u043d \u0438\u043b\u0438 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0434\u0430\u043d\u043d\u044b\u0445.
  \u0410\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u043c\u0435\u0442\u043e\u0434\u044b:  <\/p>\n
oo::define <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043a\u043b\u0430\u0441\u0441\u0430>  { #\u043c\u0435\u0442\u043e\u0434\u044b \tmethod <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043c\u0435\u0442\u043e\u0434\u0430 1>  {<\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b>} { \t\t<\u0442\u0435\u043b\u043e \u043c\u0435\u0442\u043e\u0434\u0430> \t} \t[ \t\u2026 \tmethod <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043c\u0435\u0442\u043e\u0434\u0430 N>  {<\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b>} { \t\t<\u0442\u0435\u043b\u043e \u043c\u0435\u0442\u043e\u0434\u0430> \t} \t] }<\/code><\/pre>\n
  \u041b\u044e\u0431\u043e\u0439 \u043c\u0435\u0442\u043e\u0434 \u043c\u043e\u0436\u043d\u043e \u0443\u0434\u0430\u043b\u0438\u0442\u044c \u0432 \u043b\u044e\u0431\u043e\u0435 \u0432\u0440\u0435\u043c\u044f \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e\u00a0\u043a\u043e\u043c\u0430\u043d\u0434\u044b deletemethod \u0432\u043d\u0443\u0442\u0440\u0438 \u0441\u0446\u0435\u043d\u0430\u0440\u0438\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u043a\u043b\u0430\u0441\u0441\u0430. \u042d\u0442\u0430 \u043a\u043e\u043c\u0430\u043d\u0434\u044b \u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0435\u043d\u0430 \u043d\u0438\u0436\u0435 \u043f\u0440\u0438 \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0435\u043d\u0438\u0438 \u043f\u0440\u0438\u043c\u0435\u0440\u0430 \u0441 \u043e\u0442\u0437\u044b\u0432\u043e\u043c \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430.
  \u041f\u0440\u043e \u0432\u0438\u0434\u0438\u043c\u043e\u0441\u0442\u044c \u043c\u0435\u0442\u043e\u0434\u043e\u0432 (\u043f\u0443\u0431\u043b\u0438\u0447\u043d\u044b\u0435, \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b) \u043c\u044b \u0443\u0436\u0435 \u0433\u043e\u0432\u043e\u0440\u0438\u043b\u0438 \u0432\u044b\u0448\u0435.
  \u041e\u0442\u043c\u0435\u0442\u0438\u043c, \u0447\u0442\u043e \u043f\u0435\u0440\u0432\u043e\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e \u043a\u043b\u0430\u0441\u0441 \u043c\u043e\u0436\u0435\u0442 \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c\u0441\u044f \u0430\u0431\u0441\u043e\u043b\u044e\u0442\u043d\u043e \u043f\u0443\u0441\u0442\u044b\u043c:  <\/p>\n
oo::class create <\u0418\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043a\u043b\u0430\u0441\u0441\u0430><\/code><\/pre>\n
  \u0441 \u043f\u043e\u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u043c \u043d\u0430\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435\u043c \u0435\u0433\u043e \u0447\u0435\u0440\u0435\u0437 \u043a\u043e\u043c\u0430\u043d\u0434\u0443:  <\/p>\n
oo::define <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043a\u043b\u0430\u0441\u0441\u0430>  { \u2026 }<\/code><\/pre>\n
  \u0418\u0442\u0430\u043a, \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u043d\u043e\u0432\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u0432 \u043a\u043b\u0430\u0441\u0441 Certificate:  <\/p>\n
oo::define certificate {     method issuer {} { \treturn [ my parse_dn $ret(issuer)]     }     method subject {} { \treturn [ my parse_dn $ret(subject)]     }     method parse_dn {asnblock} { \tset lret {}       while {[string length $asnblock]} {         asn::asnGetSet asnblock AttributeValueAssertion         asn::asnGetSequence AttributeValueAssertion valblock         asn::asnGetObjectIdentifier valblock oid \tset name [::pki::_oid_number_to_name $oid] \t::asn::asnGetString valblock  value \tlappend lret [string toupper $name] \tlappend lret $value       } \treturn $lret     }     unexport parse_dn }<\/code><\/pre>\n
  \u0422\u0435\u043f\u0435\u0440\u044c \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u043c \u043d\u0430\u0448 \u043f\u0440\u0438\u043c\u0435\u0440 \u043a\u043e\u0434\u043e\u043c \u0434\u043b\u044f \u0440\u0430\u0441\u043f\u0435\u0447\u0430\u0442\u043a\u0438 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u043e\u0431 \u0438\u0437\u0434\u0430\u0442\u0435\u043b\u0435 \u0438 \u0432\u043b\u0430\u0434\u0435\u043b\u044c\u0446\u0435:  <\/p>\n
... puts "\u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e \u0432\u043b\u0430\u0434\u0435\u043b\u044c\u0446\u0435:" foreach {oid value} [cert1 subject] {     puts "\\t$oid=$value" } puts "\u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e\u0431 \u0438\u0437\u0434\u0430\u0442\u0435\u043b\u0435:" foreach {oid value} [cert1 issuer] {     puts "\\t$oid=$value" } ...<\/code><\/pre>\n
  \u0422\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u043c \u0432\u0442\u043e\u0440\u043e\u0439 \u043f\u0440\u0438\u043c\u0435\u0440.  <\/p>\n
                         \u0422\u0435\u0441\u0442\u043e\u0432\u044b\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 example2.tcl<\/b>                         <\/p>\n
source .\/classparsecert.tcl
  #\u0417\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442
  set file [lindex $argv 0]
  if {$argc != 1 || ![file exists $file]} {
   puts \u00abUsage: tclsh example1 <\u0444\u0430\u0439\u043b \u0441 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u043c>\u00bb
   exit
  }
  puts \u00abLoading file: $file\u00bb
  set fd [open $file]
  chan configure $fd -translation binary
  set data [read $fd]
  close $fd
  if {[catch {certificate create cert1 $data} er1]} {
   puts \u00ab\u0424\u0430\u0439\u043b \u043d\u0435 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u0421\u0415\u0420\u0422\u0418\u0424\u0418\u041a\u0410\u0422\u00bb
   exit
  }
  array set cert_parse [cert1 parse_cert]
  #parray cert_parse
  puts \u00ab\u0420\u0430\u0441\u043f\u0430\u0440\u0441\u0435\u043d\u043d\u044b\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u00bb
  foreach ind [array names cert_parse] {
   puts "\\tcert_parse($ind)"
  }
  #\u0414\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u043d\u043e\u0432\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b
  oo::define certificate {
   method issuer {} {
   return [ my parse_dn $ret(issuer)]
   }
   method subject {} {
   return [ my parse_dn $ret(subject)]
   }
   method parse_dn {asnblock} {
   set lret {}
   while {[string length $asnblock]} {
   asn::asnGetSet asnblock AttributeValueAssertion
   asn::asnGetSequence AttributeValueAssertion valblock
   asn::asnGetObjectIdentifier valblock oid
   set name [::pki::_oid_number_to_name $oid]
   ::asn::asnGetString valblock value
   lappend lret [string toupper $name]
   lappend lret $value
   }
   return $lret
   }
  #\u041f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u0439 \u043c\u0435\u0442\u043e\u0434
   unexport parse_dn
  }
  #\u041f\u0440\u0438\u043c\u0435\u043d\u044f\u0435\u043c \u043c\u0435\u0442\u043e\u0434\u044b
  puts \u00ab\u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e \u0432\u043b\u0430\u0434\u0435\u043b\u044c\u0446\u0435:\u00bb
  foreach {oid value} [cert1 subject] {
   puts "\\t$oid=$value"
  }
  puts \u00ab\u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e\u0431 \u0438\u0437\u0434\u0430\u0442\u0435\u043b\u0435:\u00bb
  foreach {oid value} [cert1 issuer] {
   puts "\\t$oid=$value"
  }  <\/div>\n<\/p><\/div>\n
  \u041f\u043e\u043f\u0440\u043e\u0431\u0443\u0435\u043c \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u044d\u0442\u043e\u0442 \u043f\u0440\u0438\u043c\u0435\u0440:  <\/p>\n
$tclsh example2.tcl minenergo.cer   Loading file: minenergo.cer \u0420\u0430\u0441\u043f\u0430\u0440\u0441\u0435\u043d\u043d\u044b\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442         cert_parse(subject)         . . .          cert_parse(tbsCert) \u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e \u0432\u043b\u0430\u0434\u0435\u043b\u044c\u0446\u0435:         EMAIL=xxxxxxxxxxx         INN=xxxxxxxxxxx         OGRN=............ . . .         ST=77 \u0433. \u041c\u043e\u0441\u043a\u0432\u0430         C=RU         CN=\u041c\u0438\u043d \u0420\u043e\u0441\u0441\u0438\u0438 \u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e\u0431 \u0438\u0437\u0434\u0430\u0442\u0435\u043b\u0435:  . . .         C=RU         ST=77 \u041c\u043e\u0441\u043a\u0432\u0430         L=\u041c\u043e\u0441\u043a\u0432\u0430         CN=\u0422\u0435\u0441\u0442\u043e\u0432\u044b\u0439 \u0443\u0434\u043e\u0441\u0442\u043e\u0432\u0435\u0440\u044f\u044e\u0449\u0438\u0439 \u0446\u0435\u043d\u0442\u0440 $<\/code><\/pre>\n
  <\/p>\n
\u041e \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u0438<\/font><\/h3>\n
  \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0449\u0435\u0439 \u0445\u0430\u0440\u0430\u043a\u0442\u0435\u0440\u0438\u0441\u0442\u0438\u043a\u043e\u0439 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u0441\u0438\u0441\u0442\u0435\u043c \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u043a\u0430 \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u044f.\u00a0\u041d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u0435 \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0441\u044f \u043a \u0441\u043f\u043e\u0441\u043e\u0431\u043d\u043e\u0441\u0442\u0438\u00a0\u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u043e\u0433\u043e\u00a0\u043a\u043b\u0430\u0441\u0441\u0430 (\u0442\u0430\u043a\u0436\u0435 \u043d\u0430\u0437\u044b\u0432\u0430\u0435\u043c\u043e\u0433\u043e\u00a0\u043f\u043e\u0434\u043a\u043b\u0430\u0441\u0441\u043e\u043c\u00a0) \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u044c \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0445 \u0438 \u043c\u0435\u0442\u043e\u0434\u044b \u0438\u0437 \u043d\u0430\u0441\u043b\u0435\u0434\u0443\u0435\u043c\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0441\u0430 (\u0438\u0437 \u0441\u0443\u043f\u0435\u0440 \u043a\u043b\u0430\u0441\u0441\u0430).
  \u041f\u0440\u0438 \u0440\u0430\u0437\u0431\u043e\u0440\u0435 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430, \u0435\u0441\u0442\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e, \u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0438 \u043f\u043e\u043b\u043d\u0443\u044e \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u0435\u0433\u043e \u043f\u0443\u0431\u043b\u0438\u0447\u043d\u043e\u043c \u043a\u043b\u044e\u0447\u0435. \u041f\u0440\u0435\u0434\u043f\u043e\u043b\u043e\u0436\u0438\u043c \u0443 \u043d\u0430\u0441 \u0443\u0436\u0435 \u0435\u0441\u0442\u044c \u043a\u043b\u0430\u0441\u0441 pubkey, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043d\u0430 \u043e\u0441\u043d\u043e\u0432\u0435 asn-\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b pubkeyinfo \u0432\u044b\u0434\u0430\u0435\u0442 \u043f\u043e\u043b\u043d\u0443\u044e \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u043f\u0443\u0431\u043b\u0438\u0447\u043d\u043e\u043c \u043a\u043b\u044e\u0447\u0435, \u0432\u043a\u043b\u044e\u0447\u0430\u044f RSA, EC, GOST:  <\/p>\n
oo::class create pubkey { #\u0412\u043d\u0443\u0442\u0440\u0435\u043d\u043d\u044f\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u043a\u043b\u0430\u0441\u0441\u0430 \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f asn-\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b pubkeyinfo     variable infopk     constructor {pubkinfo} { \tset infopk $pubkinfo     }     method infopubkey {} { \tarray set retpk [list] \tset pubkeyinfo [binary format H* $infopk] \t::asn::asnGetSequence pubkeyinfo pubkey_algoid \t::asn::asnGetObjectIdentifier pubkey_algoid retpk(pubkey_algo) \t::asn::asnGetBitString pubkeyinfo pubkey \tset pubkey [binary format B* $pubkey] \tbinary scan $pubkey H* retpk(pubkey) \tset retpk(pkcs11id_hex) [::sha1::sha1  $pubkey] \tif {"1 2 643" == [string range $retpk(pubkey_algo) 0 6]} { #\u0413\u041e\u0421\u0422-\u043a\u043b\u044e\u0447     \t    set retpk(type) gost \t    ::asn::asnGetSequence pubkey_algoid pubalgost   #OID - \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \t    ::asn::asnGetObjectIdentifier pubalgost retpk(paramkey) \t    set retpk(paramkey) [::pki::_oid_number_to_name $retpk(paramkey)] \t    if {$pubalgost != ""} {   #OID - \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0445\u044d\u0448\u0430 \t\t::asn::asnGetObjectIdentifier pubalgost retpk(hashkey) \t    } else { \t\tset retpk(hashkey) "" \t    } \t} elseif {"1 2 840 10045 2 1" == $retpk(pubkey_algo) } { #EC-key     \t    set retpk(type) ec \t    ::asn::asnGetObjectIdentifier pubkey_algoid retpk(pubkey_algo_par) \t} elseif {"1 2 840 113549 1 1 1" == $retpk(pubkey_algo) }  { #RSA- key     \t    set retpk(type) rsa     \t\tbinary scan $pubkey H* retpk(pubkey)     \t\t::asn::asnGetSequence pubkey pubkey_parts     \t\t::asn::asnGetBigInteger pubkey_parts retpk(n)     \t\t::asn::asnGetBigInteger pubkey_parts retpk(e)     \t\tset retpk(n) [::math::bignum::tostr $retpk(n)]     \t\tset retpk(e) [::math::bignum::tostr $retpk(e)]     \t\tset retpk(l) [expr {int([::pki::_bits $retpk(n)] \/ 8.0000 + 0.5) * 8}] \t} else {     \t    set retpk(type) unknown \t} \treturn [array get retpk]     } }<\/code><\/pre>\n
  \u0421\u043e\u0445\u0440\u0430\u043d\u0438\u043c \u044d\u0442\u043e\u0442 \u043a\u043b\u0430\u0441\u0441 \u0432 \u0444\u0430\u0439\u043b\u0435 classpubkeyinfo.tcl.
  \u0414\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u044c \u043c\u0435\u0442\u043e\u0434 infopubkey \u0434\u043b\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432 \u043a\u043b\u0430\u0441\u0441\u0430 certificate, \u0432 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u043a\u043b\u0430\u0441\u0441\u0430 certificate \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u0441\u0443\u043f\u0435\u0440\u043a\u043b\u0430\u0441\u0441\u0430, \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0431\u0443\u0434\u0443\u0442 \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u044c\u0441\u044f:  <\/p>\n
superclass pubkey<\/code><\/pre>\n
  \u0422\u0430\u043a\u0436\u0435 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0432 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440 \u043a\u043b\u0430\u0441\u0441\u0430 certificate \u0432\u044b\u0437\u043e\u0432 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u0430 \u043a\u043b\u0430\u0441\u0441\u0430 pubkey \u0441 \u043f\u0435\u0440\u0435\u0434\u0430\u0447\u0435\u0439 \u0435\u043c\u0443 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 asn-\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b pubkeyinfo:  <\/p>\n
next $ret(pubkeyinfo_hex)<\/code><\/pre>\n
  \u041a\u043e\u043c\u0430\u043d\u0434\u0430 next \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u0442 \u043e\u0434\u043d\u043e\u0438\u043c\u0435\u043d\u043d\u044b\u0439 \u043c\u0435\u0442\u043e\u0434 (\u0432 \u0434\u0430\u043d\u043d\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 constructor) \u0438\u0437 \u0441\u0443\u043f\u0435\u0440\u043a\u043b\u0430\u0441\u0441\u0430, \u0442.\u0435. \u0438\u0437 \u043a\u043b\u0430\u0441\u0441\u0430 pubkey. \u041a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440 \u0432 \u043a\u043b\u0430\u0441\u0441\u0435 pubkey \u043f\u0440\u043e\u0441\u0442\u043e \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u0442 \u0432 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 \u043a\u043b\u0430\u0441\u0441\u0430 infopk asn-\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0443 \u043f\u0443\u0431\u043b\u0438\u0447\u043d\u043e\u0433\u043e \u043a\u043b\u044e\u0447\u0430. \u042d\u0442\u043e\u0442 \u043a\u043e\u0434 \u0441 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0439 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u043e\u0439 \u043d\u0430\u043b\u0438\u0447\u0438\u044f \u0432 \u0442\u0435\u043b\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043a\u043b\u0430\u0441\u0441\u0430 pubkey \u0438 \u0435\u0433\u043e \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u0430 \u0431\u044b\u043b \u0432\u043a\u043b\u044e\u0447\u0435\u043d \u043f\u0440\u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0438 \u043a\u043b\u0430\u0441\u0441\u0430 certificate.  <\/p>\n
                         \u041f\u043e\u043b\u043d\u044b\u0439 \u0442\u0435\u0445\u0442 example3.tcl \u0437\u0434\u0435\u0441\u044c.<\/b>                         <\/p>\n
\n
 source .\/classpubkeyinfo.tcl source .\/classparsecert_and_pk.tcl set file [lindex $argv 0] if {$argc != 1 || ![file exists $file]} {     puts "Usage: tclsh example1 <\u0444\u0430\u0439\u043b \u0441 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u043c>"     exit } puts "Loading file: $file" set fd [open $file] chan configure $fd -translation binary set data [read $fd] close $fd if {[catch {certificate create cert1 $data} er1]} { puts "\u0424\u0430\u0439\u043b \u043d\u0435 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430" exit } array set cert_parse [cert1 parse_cert] puts "\u0420\u0430\u0441\u043f\u0430\u0440\u0441\u0435\u043d\u043d\u044b\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442" foreach ind [array names cert_parse] {     puts "\\tcert_parse($ind)" } #\u0414\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u043d\u043e\u0432\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b oo::define certificate {     method issuer {} { \treturn [ my parse_dn $ret(issuer)]     }     method subject {} { \treturn [ my parse_dn $ret(subject)]     }     method parse_dn {asnblock} { \tset lret {}       while {[string length $asnblock]} {         asn::asnGetSet asnblock AttributeValueAssertion         asn::asnGetSequence AttributeValueAssertion valblock         asn::asnGetObjectIdentifier valblock oid \tset name [::pki::_oid_number_to_name $oid] \t::asn::asnGetString valblock  value \tlappend lret [string toupper $name] \tlappend lret $value       } \treturn $lret     }     unexport parse_dn } puts "\u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e \u0432\u043b\u0430\u0434\u0435\u043b\u044c\u0446\u0435:" foreach {oid value} [cert1 subject] {     puts "\\t$oid=$value" } puts "\u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e\u0431 \u0438\u0437\u0434\u0430\u0442\u0435\u043b\u0435:" foreach {oid value} [cert1 issuer] {     puts "\\t$oid=$value" } puts "INFO PUB KEY" foreach {oid value} [cert1 infopubkey] {     puts "\\t$oid=$value" } #\u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043e\u0431\u044a\u0435\u043a\u0442 pubkey puts "\u041a\u041b\u0410\u0421\u0421 INFO PUB KEY" if {[catch {pubkey create pk1 $cert_parse(pubkeyinfo_hex)} er1]} { puts "\u041d\u0415 PUBKEYINFO" exit } foreach {oid value} [pk1 infopubkey] {     puts "\\t$oid=$value" } puts "\u041f\u0443\u0431\u043b\u0438\u0447\u043d\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate" puts "\\t[info class methods certificate]" puts "\u0412\u0441\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate, \u0432\u043a\u043b\u044e\u0447\u0430\u044f \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u0435" puts "\\t[info class methods certificate -private]" <\/code><\/pre>\n<\/div><\/div>\n
  \u0412\u044b\u043f\u043e\u043b\u043d\u0438\u043c \u043f\u0440\u0438\u043c\u0435\u0440 example3.tcl:  <\/p>\n
 $ tclsh example3.tcl minenergo.cer  Loading file: minenergo.cer \u0420\u0430\u0441\u043f\u0430\u0440\u0441\u0435\u043d\u043d\u044b\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442         cert_parse(subject)         . . .         cert_parse(tbsCert) \u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e \u0432\u043b\u0430\u0434\u0435\u043b\u044c\u0446\u0435:         . . .         ST=77 \u0433. \u041c\u043e\u0441\u043a\u0432\u0430         C=RU         CN=\u041c\u0438\u043d \u0420\u043e\u0441\u0441\u0438\u0438 \u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e\u0431 \u0438\u0437\u0434\u0430\u0442\u0435\u043b\u0435:         C=RU         ST=77 \u041c\u043e\u0441\u043a\u0432\u0430         . . .         CN=\u0422\u0435\u0441\u0442\u043e\u0432\u044b\u0439 \u0443\u0434\u043e\u0441\u0442\u043e\u0432\u0435\u0440\u044f\u044e\u0449\u0438\u0439 \u0446\u0435\u043d\u0442\u0440 INFO PUB KEY         pkcs11id_hex=842205ac57465fd853a158544f1ea1ba1de58569         pubkey=04401dc81447918c7694a74dbe6bb4e4c10a63ca21d6b95a41ae20837deda4700f2404a0c1141d9b535b95707bb751791eb684bd09ce8f0c98d912dea947e4b8bbdb         hashkey=1 2 643 7 1 1 2 2         paramkey=id-GostR3410-2001-CryptoPro-XchA-ParamSet         type=gost         pubkey_algo=1 2 643 7 1 1 1 1 \u041f\u0443\u0431\u043b\u0438\u0447\u043d\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate         subject parse_cert issuer \u0412\u0441\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate, \u0432\u043a\u043b\u044e\u0447\u0430\u044f \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u0435         parse_dn subject parse_cert issuer  . . . $<\/code><\/pre>\n
  \u041e\u0442\u043c\u0435\u0442\u0438\u043c \u0442\u0430\u043a\u0436\u0435, \u0447\u0442\u043e TclOO \u0434\u043e\u043f\u0443\u0441\u043a\u0430\u0435\u0442 \u0438 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0435 \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u0435, \u043d\u043e \u044d\u0442\u043e \u0442\u0435\u043c\u0430 \u0434\u043b\u044f \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u043e\u0439 \u043f\u0443\u0431\u043b\u0438\u043a\u0430\u0446\u0438\u0438.  <\/p>\n
\u0418\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u043e\u043d\u043d\u0430\u044f \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u043a\u0430<\/font><\/h3>\n
  \u0412 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430\u0445 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u0440\u0438\u043c\u0435\u0440\u0430 \u043c\u044b \u0432\u0438\u0434\u0438\u043c \u043f\u0435\u0440\u0435\u0447\u0435\u043d\u044c \u043c\u0435\u0442\u043e\u0434\u043e\u0432 \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b\u0445 \u0432 \u043a\u043b\u0430\u0441\u0441\u0435 certificate.
  \u0414\u043b\u044f \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u044f \u0441\u043f\u0438\u0441\u043a\u0430 \u043c\u0435\u0442\u043e\u0434\u043e\u0432 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0430\u044f \u043a\u043e\u043c\u0430\u043d\u0434\u0430:  <\/p>\n
 info class methods <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043a\u043b\u0430\u0441\u0441\u0430> [-private] <\/code><\/pre>\n
  \u0415\u0441\u043b\u0438 \u0444\u043b\u0430\u0433 "-private" \u043d\u0435 \u0437\u0430\u0434\u0430\u043d, \u0442\u043e \u0432\u044b\u0434\u0430\u0435\u0442\u0441\u044f \u0441\u043f\u0438\u0441\u043e\u043a \u043f\u0443\u0431\u043b\u0438\u0447\u043d\u044b\u0445 \u043c\u0435\u0442\u043e\u0434\u043e\u0432. \u0412 \u043f\u0440\u043e\u0442\u0438\u0432\u043d\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435, \u0432\u044b\u0434\u0430\u0435\u0442\u0441\u044f \u0432\u0435\u0441\u044c \u043f\u0435\u0440\u0435\u0447\u0435\u043d\u044c \u043c\u0435\u0442\u043e\u0434\u043e\u0432, \u0432\u043a\u043b\u044e\u0447\u0430\u044f \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u0435.
  \u041f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c \u043f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u043d\u043e\u0441\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u0442\u043e\u043c\u0443 \u0438\u043b\u0438 \u0438\u043d\u043e\u043c\u0443 \u043a\u043b\u0430\u0441\u0441\u0443 \u043c\u043e\u0436\u043d\u043e \u043a\u043e\u043c\u0430\u043d\u0434\u043e\u0439:  <\/p>\n
info object clacc <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043e\u0431\u044a\u0435\u043a\u0442\u0430><\/code><\/pre>\n
.
  \u0412 \u043d\u0430\u0448\u0435\u043c \u043f\u0440\u0438\u043c\u0435\u0440\u0435 \u043e\u0431\u044a\u0435\u043a\u0442 cert1 \u043f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u0438\u0442 \u0434\u0432\u0443\u043c \u043a\u043b\u0430\u0441\u0441\u0430\u043c: certuficate \u0438 pubkey.
  \u0415\u0441\u043b\u0438 \u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u0443\u0437\u043d\u0430\u0442\u044c \u043a\u0430\u043a\u0438\u0435 \u043a\u043b\u0430\u0441\u0441\u044b \u043d\u0430\u0441\u043b\u0435\u0434\u0443\u0435\u0442 \u0442\u043e\u0442 \u0438\u043b\u0438 \u0438\u043d\u043e\u0439 \u043a\u043b\u0430\u0441\u0441, \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u043a\u043e\u0438\u043c\u0430\u043d\u0434\u0443:  <\/p>\n
info class superclasses <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043a\u043b\u0430\u0441\u0441\u0430><\/code><\/pre>\n
  \u0410 \u0435\u0441\u043b\u0438 \u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u0442\u043e\u043c, \u043a\u0430\u043a\u0438\u043c\u0438 \u043a\u043b\u0430\u0441\u0441\u0430\u043c\u0438 \u043d\u0430\u0441\u043b\u0435\u0434\u0443\u0435\u0442\u0441\u044f \u0442\u043e\u0442 \u0438\u043b\u0438 \u0438\u043d\u043e\u0439 \u043a\u043b\u0430\u0441\u0441, \u0442\u043e \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0443\u044e \u043a\u043e\u043c\u0430\u043d\u0434\u0443:  <\/p>\n
info class subclasses <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043a\u043b\u0430\u0441\u0441\u0430><\/code><\/pre>\n
.
  \u0412 \u043d\u0430\u0448\u0435\u043c \u043f\u0440\u0438\u043c\u0435\u0440\u0435 \u043c\u044b \u0438\u043c\u0435\u0435\u043c:  <\/p>\n
$  . . . \u041f\u0443\u0431\u043b\u0438\u0447\u043d\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate         subject parse_cert issuer \u0412\u0441\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate, \u0432\u043a\u043b\u044e\u0447\u0430\u044f \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u0435         parse_dn subject parse_cert issuer \u041f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u043d\u043e\u0441\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442\u0430 cert1 \u043a\u043b\u0430\u0441\u0441\u0443 certificate         1 \u041f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u043d\u043e\u0441\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442\u0430 cert1 \u043a\u043b\u0430\u0441\u0441\u0443 pubkey         1 \u0421\u0443\u043f\u0435\u0440 \u043a\u043b\u0430\u0441\u0441\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate         ::pubkey \u0421\u0443\u043f\u0435\u0440 \u043a\u043b\u0430\u0441\u0441\u044b \u043a\u043b\u0430\u0441\u0441\u0430 pubkey         ::oo::object \u041f\u043e\u0434\u043a\u043b\u0430\u0441\u0441\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate  \u041f\u043e\u0434\u043a\u043b\u0430\u0441\u0441\u044b \u043a\u043b\u0430\u0441\u0441\u0430 pubkey         ::certificate $ <\/code><\/pre>\n
  <\/p>\n
\u041f\u043e\u0434\u043c\u0435\u0448\u0438\u0432\u0430\u043d\u0438\u0435 (mix in) \u043c\u0435\u0442\u043e\u0434\u043e\u0432 \u0432 \u043a\u043b\u0430\u0441\u0441<\/font><\/h3>\n
  \u0414\u043b\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u043a\u043b\u0430\u0441\u0441\u0430, \u043f\u0440\u0435\u0436\u0434\u0435 \u0432\u0441\u0435\u0433\u043e \u0441 \u0442\u043e\u0447\u043a\u0438 \u0437\u0440\u0435\u043d\u0438\u044f \u0435\u0433\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u0438, \u043f\u043e\u043c\u0438\u043c\u043e \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u044f \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0442\u0430\u043a \u043d\u0430\u0437\u044b\u0432\u0430\u0435\u043c\u044b\u0439 \u043c\u0435\u0442\u043e\u0434 \u043f\u043e\u0434\u043c\u0435\u0448\u0438\u0432\u0430\u043d\u0438\u044f (mix in). 
  \u0415\u0441\u043b\u0438 \u043c\u044b \u0445\u043e\u0442\u0438\u043c \u0440\u0430\u0441\u043f\u0435\u0447\u0430\u0442\u0430\u0442\u044c \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0432 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u043e\u043c \u0432\u0438\u0434\u0435, \u0442\u043e \u043d\u0430\u043c \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u0440\u0430\u0437\u0431\u043e\u0440 asn-\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430. \u042d\u0442\u043e \u0438 \u043d\u0430\u0447\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043a\u043b\u044e\u0447\u0430 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430, \u044d\u0442\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u043a\u0432\u0430\u043b\u0438\u0444\u0438\u0446\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 \u0438 \u043c\u043d\u043e\u0433\u043e\u0435 \u0434\u0440\u0443\u0433\u043e\u0435. \u041e\u0444\u043e\u0440\u043c\u0438\u043c \u0440\u0430\u0437\u0431\u043e\u0440 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 \u0432 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0441 parseexts, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043e\u0442\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u043a\u043e\u043d\u0441\u0442\u0443\u043a\u0442\u043e\u0440 \u0438 \u0434\u0435\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440:  <\/p>\n
#\u041a\u043b\u0430\u0441\u0441 \u0440\u0430\u0437\u0431\u043e\u0440\u0430 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 oo::class create parseexts { #\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0441 \u0440\u0430\u0441\u043f\u0430\u0440\u0441\u0435\u043d\u043d\u044b\u043c \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u043c \u0438 \u0435\u0433\u043e \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\u043c\u0438 #\u041e\u0431\u043b\u0430\u0441\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0445 \u0431\u0435\u0440\u0435\u0442\u0441\u044f \u0438\u0445 \u043a\u043b\u0430\u0441\u0441\u0430, \u043a \u043a\u043e\u0442\u043e\u0440\u043e\u043c\u0443 \u0431\u0443\u0434\u0435\u043c \u043f\u043b\u0434\u043c\u0435\u0448\u0438\u0432\u0430\u0442\u044c     variable ret     variable extcert #\u041f\u043e\u0434\u043c\u0435\u0448\u0438\u0432\u0430\u0435\u043c\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b     method issuerSignTool {} { \tset member {"\u041d\u0430\u0438\u043c\u0435\u043d\u043e\u0432\u0430\u043d\u0438\u0435 \u0421\u041a\u0417\u0418 \u0423\u0426" "\u041d\u0430\u0438\u043c\u0435\u043d\u043e\u0432\u0430\u043d\u0438\u0435 \u0423\u0426" "\u0421\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0421\u041a\u0417\u0418 \u0423\u0426" "\u0421\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0423\u0426"} #\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f \tif {![info exists extcert(1.2.643.100.112)]} { \t    return [list ] \t} \tset rr [list] \tset iss [binary format H* [lindex $extcert(1.2.643.100.112) 1]] \t::asn::asnGetSequence iss iss_pol \tfor {set i 0} {[string length $iss_pol] > 0}  {incr i} { \t    ::asn::asnGetUTF8String iss_pol retist \t    lappend rr [lindex $member $i] \t    lappend rr $retist \t} \treturn $rr   }     method subjectSignTool {} { #\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f \tif {![info exists extcert(1.2.643.100.111)]} { \t    return [list ] \t} \tset iss [binary format H* [lindex $extcert(1.2.643.100.111) 1]] \tlappend rr "User CKZI" \t::asn::asnGetUTF8String iss retsst \tlappend rr $retsst \treturn $rr     }     method keyUsage {} {     #keyUsage \tset critcert "No" \tarray set ist [list] #\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f \tif {![info exists extcert(2.5.29.15)]} { \t    return [array get ist] \t}     \tset ku_hex [lindex $extcert(2.5.29.15) 1] \tif {[lindex $extcert(2.5.29.15) 0] == 1} {     \t\tset critcert "Yes" \t} \tset ku_options {"Digital signature" "Non-Repudiation" "Key encipherment" "Data encipherment" "Key agreement" "Certificate signature" "CRL signature" "Encipher Only" "Decipher Only" "Revocation list signature"} \tset ku [binary format H* $ku_hex] \t::asn::asnGetBitString ku ku_bin \tset retku {} \tfor {set i 0} {$i < [string length $ku_bin]}  {incr i} { \t    if {[string range $ku_bin $i $i] > 0 } {     \t\tlappend retku [lindex $ku_options $i] \t    } \t} \tarray set aku [list] \tset aku(keyUsage) $retku \tset aku(critcert) $critcert \treturn [array get aku]     } }<\/code><\/pre>\n
  \u041e\u0431\u043b\u0430\u0441\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0445 \u043f\u043e\u0434\u043c\u0435\u0448\u0438\u0432\u0430\u0435\u043c\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0441\u0430 \u0434\u043e\u043b\u0436\u043d\u0430 \u0432\u043a\u043b\u044e\u0447\u0430\u0442\u044c \u0442\u0435 \u0434\u0430\u043d\u043d\u044b\u0435, \u0438\u0437 \u043a\u043b\u0430\u0441\u0441\u0430 \u043a \u043a\u043e\u0442\u043e\u0440\u043e\u043c\u0443 \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u0434\u043c\u0435\u0448\u0438\u0432\u0430\u0442\u044c\u0441\u044f \u0434\u0430\u043d\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0441, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0431\u0443\u0434\u0443\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0432 \u0435\u0433\u043e \u043c\u0435\u0442\u043e\u0434\u0430\u0445.
  \u0414\u043b\u044f \u043f\u043e\u0434\u043c\u0435\u0449\u0438\u0432\u0430\u043d\u0438\u044f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u043a\u043e\u043c\u0430\u043d\u0434\u0430 mixin:  <\/p>\n
mixin <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043f\u043e\u0434\u043c\u0435\u0448\u0438\u0432\u0430\u0435\u043c\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0441\u0430>  <\/code><\/pre>\n
  \u0414\u043b\u044f \u043d\u0430\u0448\u0435\u0433\u043e \u043f\u0440\u0438\u043c\u0435\u0440\u0430 \u044d\u0442\u043e \u0431\u0443\u0434\u0435\u0442 \u0432\u044b\u0433\u043b\u044f\u0434\u0435\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c:  <\/p>\n
oo::define certificate { \tmixin parseexts }<\/code><\/pre>\n
  <\/p>\n
                         \u041f\u043e\u043b\u043d\u044b\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u043f\u043e\u0434\u043c\u0435\u0448\u0438\u0432\u0430\u043d\u0438\u044f example4.tcl \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u0437\u0434\u0435\u0441\u044c.<\/b>                         <\/p>\n
  source .\/classpubkeyinfo.tcl
  source .\/classparsecert.tcl
  set file [lindex $argv 0]
  if {$argc != 1 || ![file exists $file]} {
   puts \u00abUsage: tclsh example1 <\u0444\u0430\u0439\u043b \u0441 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u043c>\u00bb
   exit
  }
  puts \u00abLoading file: $file\u00bb
  set fd [open $file]
  chan configure $fd -translation binary
  set data [read $fd]
  close $fd
  if {[catch {certificate create cert1 $data} er1]} {
  puts \u00ab\u0424\u0430\u0439\u043b \u043d\u0435 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430\u00bb
  exit
  }
  array set cert_parse [cert1 parse_cert]
  if {0} {
  puts \u00ab\u0420\u0430\u0441\u043f\u0430\u0440\u0441\u0435\u043d\u043d\u044b\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u00bb
  foreach ind [array names cert_parse] {
   puts "\\tcert_parse($ind)"
  }
  }
  #\u0414\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u043d\u043e\u0432\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b
  oo::define certificate {
   method issuer {} {
   return [ my parse_dn $ret(issuer)]
   }
   method subject {} {
   return [ my parse_dn $ret(subject)]
   }
   method parse_dn {asnblock} {
   set lret {}
   while {[string length $asnblock]} {
   asn::asnGetSet asnblock AttributeValueAssertion
   asn::asnGetSequence AttributeValueAssertion valblock
   asn::asnGetObjectIdentifier valblock oid
   set name [::pki::_oid_number_to_name $oid]
   ::asn::asnGetString valblock value
   lappend lret [string toupper $name]
   lappend lret $value
   }
   return $lret
   }
   unexport parse_dn
  }
  puts \u00ab\u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e \u0432\u043b\u0430\u0434\u0435\u043b\u044c\u0446\u0435:\u00bb
  foreach {oid value} [cert1 subject] {
   puts "\\t$oid=$value"
  }
  puts \u00ab\u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e\u0431 \u0438\u0437\u0434\u0430\u0442\u0435\u043b\u0435:\u00bb
  foreach {oid value} [cert1 issuer] {
   puts "\\t$oid=$value"
  }
  puts \u00abINFO PUB KEY\u00bb
  foreach {oid value} [cert1 infopubkey] {
   puts "\\t$oid=$value"
  }
  #\u041a\u043b\u0430\u0441\u0441 \u0440\u0430\u0437\u0431\u043e\u0440\u0430 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430
  oo::class create parseexts {
  #\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0441 \u0440\u0430\u0441\u043f\u0430\u0440\u0441\u0435\u043d\u043d\u044b\u043c \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u043c
   variable ret
   variable extcert
   method issuerSignTool {} {
   set member {\u00ab\u041d\u0430\u0438\u043c\u0435\u043d\u043e\u0432\u0430\u043d\u0438\u0435 \u0421\u041a\u0417\u0418 \u0423\u0426\u00bb \u00ab\u041d\u0430\u0438\u043c\u0435\u043d\u043e\u0432\u0430\u043d\u0438\u0435 \u0423\u0426\u00bb \u00ab\u0421\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0421\u041a\u0417\u0418 \u0423\u0426\u00bb \u00ab\u0421\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0423\u0426\u00bb}
  #\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f
   if {![info exists extcert(1.2.643.100.112)]} {
   return [list ]
   }
   set rr [list]
   set iss [binary format H* [lindex $extcert(1.2.643.100.112) 1]]
   ::asn::asnGetSequence iss iss_pol
   for {set i 0} {[string length $iss_pol] > 0} {incr i} {
   ::asn::asnGetUTF8String iss_pol retist
   lappend rr [lindex $member $i]
   lappend rr $retist
   }
  # unset extcert(1.2.643.100.112)
   return $rr
   }
   method subjectSignTool {} {
  #\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f
   if {![info exists extcert(1.2.643.100.111)]} {
   return [list ]
   }
   set iss [binary format H* [lindex $extcert(1.2.643.100.111) 1]]
   lappend rr \u00abUser CKZI\u00bb
   ::asn::asnGetUTF8String iss retsst
   lappend rr $retsst
  # unset extcert(1.2.643.100.111)
   return $rr
   }
   method keyUsage {} {
   #keyUsage
   set critcert \u00abNo\u00bb
   array set ist [list]
  #\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f
   if {![info exists extcert(2.5.29.15)]} {
   return [array get ist]
   }
   set ku_hex [lindex $extcert(2.5.29.15) 1]
   if {[lindex $extcert(2.5.29.15) 0] == 1} {
   set critcert \u00abYes\u00bb
   }
   set ku_options {\u00abDigital signature\u00bb \u00abNon-Repudiation\u00bb \u00abKey encipherment\u00bb \u00abData encipherment\u00bb \u00abKey agreement\u00bb \u00abCertificate signature\u00bb \u00abCRL signature\u00bb \u00abEncipher Only\u00bb \u00abDecipher Only\u00bb \u00abRevocation list signature\u00bb}
   set ku [binary format H* $ku_hex]
   ::asn::asnGetBitString ku ku_bin
   set retku {}
   for {set i 0} {$i < [string length $ku_bin]} {incr i} {
   if {[string range $ku_bin $i $i] > 0 } {
   lappend retku [lindex $ku_options $i]
   }
   }
   array set aku [list]
   set aku(keyUsage) $retku
   set aku(critcert) $critcert
   return [array get aku]
   }
  }
  oo::define certificate {
   mixin parseexts
  }
  puts \u00abkeyUsage\u00bb
  foreach {oid value} [cert1 keyUsage] {
   puts "\\t$oid=$value"
  }
  puts \u00abissuerSignTool\u00bb
  foreach {oid value} [cert1 issuerSignTool] {
   puts "\\t$oid=$value"
  }
  puts \u00absubjectSignTool\u00bb
  foreach {oid value} [cert1 subjectSignTool] {
   puts "\\t$oid=$value"
  }
  puts \u00ab\u041f\u0443\u0431\u043b\u0438\u0447\u043d\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate\u00bb
  puts "\\t[info class methods certificate]"
  puts \u00ab\u0412\u0441\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate, \u0432\u043a\u043b\u044e\u0447\u0430\u044f \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u0435\u00bb
  puts "\\t[info class methods certificate -private]"
  puts \u00ab\u041f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u043d\u043e\u0441\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442\u0430 cert1 \u043a\u043b\u0430\u0441\u0441\u0443 certificate\u00bb
  puts "\\t[info object class cert1 certificate]"
  puts \u00ab\u041f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u043d\u043e\u0441\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442\u0430 cert1 \u043a\u043b\u0430\u0441\u0441\u0443 pubkey\u00bb
  puts "\\t[info object class cert1 pubkey]"
  puts \u00ab\u0421\u0443\u043f\u0435\u0440 \u043a\u043b\u0430\u0441\u0441\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate\u00bb
  puts "\\t[info class superclasses certificate]"
  puts \u00ab\u0421\u0443\u043f\u0435\u0440 \u043a\u043b\u0430\u0441\u0441\u044b \u043a\u043b\u0430\u0441\u0441\u0430 pubkey\u00bb
  puts "\\t[info class superclasses pubkey]"
  puts \u00ab\u041f\u043e\u0434\u043a\u043b\u0430\u0441\u0441\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate\u00bb
  puts "\\t[info class subclasses certificate]"
  puts \u00ab\u041f\u043e\u0434\u043a\u043b\u0430\u0441\u0441\u044b \u043a\u043b\u0430\u0441\u0441\u0430 pubkey\u00bb
  puts "\\t[info class subclasses pubkey]"
  puts \u00abMixin-\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate\u00bb
  puts "\\t[info class mixins certificate]"  <\/div>\n<\/p><\/div>\n
  \u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u0440\u0438\u043c\u0435\u0440\u0430:  <\/p>\n
$tclsh example4.tcl cert.cer . . . \u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e\u0431 \u0438\u0437\u0434\u0430\u0442\u0435\u043b\u0435: . . .         C=RU         ST=77 \u041c\u043e\u0441\u043a\u0432\u0430         L=\u041c\u043e\u0441\u043a\u0432\u0430 . . .         CN=\u0422\u0435\u0441\u0442\u043e\u0432\u044b\u0439 \u0443\u0434\u043e\u0441\u0442\u043e\u0432\u0435\u0440\u044f\u044e\u0449\u0438\u0439 \u0446\u0435\u043d\u0442\u0440 INFO PUB KEY         pkcs11id_hex=842205ac57465fd853a158544f1ea1ba1de58569         pubkey=04401dc81447918c7694a74dbe6bb4e4c10a63ca21d6b95a41ae20837deda4700f2404a0c1141d9b535b95707bb751791eb684bd09ce8f0c98d912dea947e4b8bbdb         hashkey=1 2 643 7 1 1 2 2         paramkey=id-GostR3410-2001-CryptoPro-XchA-ParamSet         type=gost         pubkey_algo=1 2 643 7 1 1 1 1 keyUsage         critcert=Yes         keyUsage={Digital signature} Non-Repudiation {Key encipherment} {Data encipherment} issuerSignTool         \u041d\u0430\u0438\u043c\u0435\u043d\u043e\u0432\u0430\u043d\u0438\u0435 \u0421\u041a\u0417\u0418 \u0423\u0426="CSP"          \u041d\u0430\u0438\u043c\u0435\u043d\u043e\u0432\u0430\u043d\u0438\u0435 \u0423\u0426="\u0423\u0434\u043e\u0441\u0442\u043e\u0432\u0435\u0440\u044f\u044e\u0449\u0438\u0439 \u0446\u0435\u043d\u0442\u0440" \u0432\u0435\u0440\u0441\u0438\u0438          \u0421\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0421\u041a\u0417\u0418 \u0423\u0426=\u0421\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0438\u044f \u2116         \u0421\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0423\u0426=\u0421\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0438\u044f \u2116  subjectSignTool         User CKZI=CSP  \u041f\u0443\u0431\u043b\u0438\u0447\u043d\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate         subject parse_cert issuer \u0412\u0441\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate, \u0432\u043a\u043b\u044e\u0447\u0430\u044f \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u0435         parse_dn subject parse_cert issuer \u041f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u043d\u043e\u0441\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442\u0430 cert1 \u043a\u043b\u0430\u0441\u0441\u0443 certificate         1 \u041f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u043d\u043e\u0441\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442\u0430 cert1 \u043a\u043b\u0430\u0441\u0441\u0443 pubkey         1 \u0421\u0443\u043f\u0435\u0440 \u043a\u043b\u0430\u0441\u0441\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate         ::pubkey \u0421\u0443\u043f\u0435\u0440 \u043a\u043b\u0430\u0441\u0441\u044b \u043a\u043b\u0430\u0441\u0441\u0430 pubkey         ::oo::object \u041f\u043e\u0434\u043a\u043b\u0430\u0441\u0441\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate  \u041f\u043e\u0434\u043a\u043b\u0430\u0441\u0441\u044b \u043a\u043b\u0430\u0441\u0441\u0430 pubkey         ::certificate Mixin-\u044b \u043a\u043b\u0430\u0441\u0441\u0430 certificate         ::parseexts<\/code><\/pre>\n
  <\/p>\n
\u0414\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u0435\/\u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u043c\u0435\u0442\u043e\u0434\u043e\u0432 \u0443 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432<\/font><\/h3>\n
  \u0412 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0435 \u044d\u0442\u043e\u0433\u043e \u043c\u0430\u0442\u0435\u0440\u0438\u0430\u043b\u0430 \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e, \u0447\u0442\u043e\u0431\u044b \u043d\u0430\u0447\u0430\u0442\u044c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u041e\u041e\u041f \u0432 Tcl. \u041d\u043e \u043c\u044b \u0443\u043f\u043e\u043c\u044f\u043d\u0443\u043b\u0438 \u0438 \u0442\u043e, \u0447\u0442\u043e \u0432 TcllOO \u043c\u043e\u0436\u043d\u043e \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0438 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e \u0441\u0430\u043c \u043a\u043b\u0430\u0441\u0441, \u0442\u043e \u0438 \u044d\u043a\u0437\u0435\u043c\u043f\u043b\u044f\u0440\u044b \u043a\u043b\u0430\u0441\u0441\u0430, \u0442.\u0435. \u043e\u0431\u044a\u0435\u043a\u0442\u044b. \u041d\u0430 \u043e\u0434\u043d\u043e\u0439 \u0438\u0437 \u0442\u0430\u043a\u0438\u0445 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u0435\u0439 \u0445\u043e\u0442\u0435\u043b\u043e\u0441\u044c \u0431\u044b \u043e\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u0441\u044f. 
  \u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 \u043a\u043b\u0430\u0441\u0441 certificate \u0435\u0449\u0435 \u043e\u0434\u0438\u043d \u043c\u0435\u0442\u043e\u0434 \u0434\u043b\u044f \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u044d\u0442\u0438\u043c \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u043c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430:  <\/p>\n
 #\u041c\u0435\u0442\u043e\u0434 \u0434\u043b\u044f \u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 oo::define certificate { \tmethod signDoc {doc} { \t\tset sign "\u0417\u0434\u0435\u0441\u044c \u0434\u043e\u043b\u0436\u043d\u0430 \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u043f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430  $doc" #\u0421\u0447\u0435\u0442\u0447\u0438\u043a \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0445 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \t\tmy variable signedDoc #\u041a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0445 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \t\tincr signedDoc \t\treturn [list $signedDoc $sign] \t} } <\/code><\/pre>\n
  \u041f\u0440\u0438 \u0432\u044b\u0437\u043e\u0432\u0435 \u044d\u0442\u043e\u0433\u043e \u043c\u0435\u0442\u043e\u0434\u0430 \u0434\u043e\u043b\u0436\u043d\u043e \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442\u044c \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 \u0438 \u0443\u0432\u0435\u043b\u0438\u0447\u0435\u043d\u0438\u0435 \u0441\u0447\u0435\u0442\u0447\u0438\u043a\u0430 \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0445 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u043d\u0430 \u0435\u0434\u0438\u043d\u0438\u0446\u0443. \u0412 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430 \u0440\u0430\u0431\u043e\u0442\u044b \u044d\u0442\u043e\u0433\u043e \u043c\u0435\u0442\u043e\u0434\u0430 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442\u0441\u044f \u043e\u0431\u0449\u0435\u0435 \u0447\u0438\u0441\u043b\u043e \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0445 \u043d\u0430 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u0438 \u0441\u0430\u043c\u0430 \u043f\u043e\u0434\u043f\u0438\u0441\u044c:  <\/p>\n
. . .  set doc "\u041f\u043e\u0434\u043f\u0438\u0441\u044c1" puts "\u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 $doc" foreach {count sign} [cert1 signDoc $doc] {     puts "\\t\u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u043d\u0430 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442=$count"     puts "\\t\u041f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430=\\"$sign\\"" } . . .<\/code><\/pre>\n
  \u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0431\u0443\u0434\u0435\u0442 \u0432\u044b\u0433\u043b\u044f\u0434\u0435\u0442\u044c \u0442\u0430\u043a:  <\/p>\n
. . . \u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 \u041f\u043e\u0434\u043f\u0438\u0441\u044c1         \u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u043d\u0430 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442=1         \u041f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430="\u0417\u0434\u0435\u0441\u044c \u0434\u043e\u043b\u0436\u043d\u0430 \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u043f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430  \u041f\u043e\u0434\u043f\u0438\u0441\u044c1" . . .<\/code><\/pre>\n
  \u0421\u0430\u043c \u0430\u043b\u0433\u043e\u0440\u0438\u0442 \u043f\u043e\u0434\u043f\u0438\u0441\u0438 \u0437\u0434\u0435\u0441\u044c \u043d\u0435 \u0440\u0430\u0441\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u0435\u0442\u0441\u044f, \u043d\u043e \u0435\u0433\u043e \u043c\u043e\u0436\u043d\u043e \u043d\u0430\u0439\u0442\u0438 \u0432 \u0443\u0442\u0438\u043b\u0438\u0442\u0435 cryptoarmpkcs<\/a>:<\/p>\n
  \"image\"<\/p>\n
  \u0410 \u0442\u0435\u043f\u0435\u0440\u044c \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u0438\u043c, \u0447\u0442\u043e \u0432\u043b\u0430\u0434\u0435\u043b\u0435\u0446 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 \u0443\u0431\u044b\u0432\u0430\u0435\u0442 \u0432 \u043e\u0442\u043f\u0443\u0441\u043a. \u041e\u043d \u0437\u043d\u0430\u0435\u0442, \u0447\u0442\u043e \u0432 \u043e\u0442\u043f\u0443\u0441\u043a\u0435 \u043e\u043d \u0431\u0443\u0434\u0435\u0442 \u043e\u0442\u0434\u044b\u0445\u0430\u0442\u044c \u0438 \u043d\u0435 \u0432 \u043a\u043e\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u043d\u0435 \u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430\u043c\u0438 \u0438 \u0442\u0435\u043c \u0431\u043e\u043b\u0435\u0435 \u0447\u0442\u043e-\u043b\u0438\u0431\u043e \u043f\u043e\u0434\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c. \u041e\u043d \u0445\u043e\u0447\u0435\u0442 \u043e\u0442\u043e\u0437\u0432\u0430\u0442\u044c \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442, \u0430 \u043a\u043e\u0433\u0434\u0430 \u0432\u0435\u0440\u043d\u0435\u0442\u0441\u044f \u0432\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u0435\u0433\u043e \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435. \u0414\u043b\u044f \u044d\u0442\u0438\u0445 \u0446\u0435\u043b\u0435\u0439 \u0441\u043b\u0443\u0436\u0438\u0442 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0430\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044f:  <\/p>\n
#\u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u043e\u0442\u0437\u044b\u0432\u0430 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 proc revoke {cert_obj} {     oo::objdefine $cert_obj { #\u041f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u043c\u0435\u0442\u043e\u0434 \u043f\u043e\u0434\u043f\u0438\u0441\u0438 \u0434\u043b\u044f \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u043e\u0433\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u0430         method signDoc {args} { #\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f accessCert \u0445\u0440\u0430\u043d\u0438\u0442 \u0447\u0438\u0441\u043b\u043e \u043d\u0435\u0441\u0430\u043d\u043a\u0446\u0438\u043e\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u043f\u043e\u043f\u044b\u0442\u043e\u043a \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u0438\u044f             my variable accessCert              set sign "\u0421\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e \u043e\u0442\u043e\u0437\u0432\u0430\u043d. \u041d\u0435 \u043f\u044b\u0442\u0430\u0439\u0442\u0435\u0441\u044c \u0438\u043c \u043f\u043e\u0434\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c!" #\u0427\u0438\u0441\u043b\u043e \u043f\u043e\u043f\u044b\u0442\u043e\u043a \u043d\u0435\u0441\u0430\u043d\u043a\u0446\u0438\u043e\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u0432\u043e\u0437\u0440\u0430\u0441\u0442\u0430\u0435\u0442 \u043d\u0430 1             incr accessCert             return [list $accessCert $sign]         }         method unrevoke {} {             my variable accessCert #\u0412\u044b\u0437\u043e\u0432 \u043c\u0435\u0442\u043e\u0434  unrevoke \u0443\u0434\u0430\u043b\u0438\u0442 \u043c\u0435\u0442\u043e\u0434 \u043f\u043e\u0434\u043f\u0438\u0441\u0438 \u0434\u043b\u044f \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u043e\u0433\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u0430, #\u0432\u043e\u0441\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u044f \u0442\u0435\u043c \u0441\u0430\u043c\u044b\u043c \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435  \u043c\u0435\u0442\u043e\u0434\u0430 signDoc \u0438\u0437 \u043a\u043b\u0430\u0441\u0441\u0430 \u0438  #\u0443\u0434\u0430\u043b\u0438\u0442 \u0441\u0430\u043c \u043c\u0435\u0442\u043e\u0434 unrevoke             oo::objdefine [self] { deletemethod signDoc unrevoke }             if {![info exist accessCert]} {                 return 0             }             return $accessCert         }     } }<\/code><\/pre>\n
  \u0412\u044b\u0437\u043e\u0432 \u044d\u0442\u043e\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u043d\u043e\u0432\u044b\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b \u043c\u0435\u0442\u043e\u0434\u0432 signDoc \u0434\u043b\u044f \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u043e\u0433\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u0430. \u0414\u043b\u044f \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0445 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432, \u043a\u0430\u043a \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u0438 \u0442\u0430\u043a \u0438 \u043d\u043e\u0432\u044b\u0445, \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u0442\u0441\u044f \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435 \u043c\u0435\u0442\u043e\u0434\u0430, \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u043d\u043e\u0433\u043e \u0434\u043b\u044f \u043a\u043b\u0430\u0441\u0441\u0430. \u0422\u0430\u043a\u0436\u0435 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442\u0441\u044f \u043d\u043e\u0432\u044b\u0439 \u043c\u0435\u0442\u043e\u0434 unrevoke, \u0432\u044b\u0437\u043e\u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0441\u043e\u0442\u0440\u0443\u0434\u043d\u0438\u043a\u043e\u043c \u043f\u043e \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0435\u043d\u0438\u044e \u0438\u0437 \u043e\u0442\u043f\u0443\u0441\u043a\u0430 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u0442 \u043a \u0432\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044e \u043c\u0435\u0442\u043e\u0434\u0430 signDoc \u0438\u0437 \u043a\u043b\u0430\u0441\u0441\u0430 certificate, \u043f\u0443\u0442\u0435\u043c \u0443\u0434\u0430\u043b\u0435\u043d\u0438\u044f \u043c\u0435\u0442\u043e\u0434\u0430 signDoc \u0434\u043b\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u0430, \u0430 \u0442\u0430\u043a\u0436\u0435 \u0443\u0434\u0430\u043b\u0438\u0442 \u0438 \u0441\u0430\u043c \u043c\u0435\u0442\u043e\u0434 unrevoke.  <\/p>\n
                         \u041f\u043e\u043b\u043d\u044b\u0439 \u0442\u0435\u043a\u0441\u0442 \u043f\u0440\u0438\u043c\u0435\u0440\u0430 example5.tcl \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u0437\u0434\u0435\u0441\u044c<\/b>                         <\/p>\n
\n
source .\/classpubkeyinfo.tcl source .\/classparsecert.tcl #\u041f\u0440\u0438\u043c\u0435\u0440 set file [lindex $argv 0] if {$argc != 1 || ![file exists $file]} {     puts "File $file not exist"     puts "Usage: tclsh example1 <\u0444\u0430\u0439\u043b \u0441 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u043c>"     exit } puts "Loading file: $file" set fd [open $file] chan configure $fd -translation binary set data [read $fd] close $fd if {$data == "" } {     puts "Bad file with certificate=$file"     usage 1     exit } if {[catch {certificate create cert1 $data} er1]} { puts "\u041d\u0415 \u0421\u0415\u0420\u0422\u0418\u0424\u0418\u041a\u0410\u0422" exit } array set cert_parse [cert1 parse_cert] #parray cert_parse if {0} { puts "\u0420\u0430\u0441\u043f\u0430\u0440\u0441\u0435\u043d\u043d\u044b\u0439 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442" foreach ind [array names cert_parse] {     puts "\\tcert_parse($ind)" } } #\u0414\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u043d\u043e\u0432\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b oo::define certificate {     method issuer {} { \treturn [ my parse_dn $ret(issuer)]     }     method subject {} { \treturn [ my parse_dn $ret(subject)]     }     method parse_dn {asnblock} { \tset lret {}       while {[string length $asnblock]} {         asn::asnGetSet asnblock AttributeValueAssertion         asn::asnGetSequence AttributeValueAssertion valblock         asn::asnGetObjectIdentifier valblock oid \tset name [::pki::_oid_number_to_name $oid] \t::asn::asnGetString valblock  value \tlappend lret [string toupper $name] \tlappend lret $value       } \treturn $lret     }     unexport parse_dn } puts "\u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e \u0432\u043b\u0430\u0434\u0435\u043b\u044c\u0446\u0435:" foreach {oid value} [cert1 subject] {     puts "\\t$oid=$value" } puts "\u0421\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043e\u0431 \u0438\u0437\u0434\u0430\u0442\u0435\u043b\u0435:" foreach {oid value} [cert1 issuer] {     puts "\\t$oid=$value" } puts "INFO PUB KEY" foreach {oid value} [cert1 infopubkey] {     puts "\\t$oid=$value" } #\u041c\u0435\u0442\u043e\u0434 \u0434\u043b\u044f \u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 oo::define certificate { \tmethod signDoc {doc} { \t\tset sign "\u0417\u0434\u0435\u0441\u044c \u0434\u043e\u043b\u0436\u043d\u0430 \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u043f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430  $doc" #\u0421\u0447\u0435\u0442\u0447\u0438\u043a \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0445 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \t\tmy variable signedDoc #\u041a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0445 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \t\tincr signedDoc \t\treturn [list $signedDoc $sign] \t} } set doc "\u041f\u043e\u0434\u043f\u0438\u0441\u044c1" puts "\u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 $doc" foreach {count sign} [cert1 signDoc $doc] {     puts "\\t\u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u043d\u0430 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442=$count"     puts "\\t\u041f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430=\\"$sign\\"" } set doc "\u041f\u043e\u0434\u043f\u0438\u0441\u044c2" puts "\u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 $doc" foreach {count sign} [cert1 signDoc $doc] {     puts "\\t\u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u043d\u0430 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442=$count"     puts "\\t\u041f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430=\\"$sign\\"" } #\u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u043e\u0442\u0437\u044b\u0432\u0430 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 proc revoke {cert_obj} {     oo::objdefine $cert_obj { #\u041f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u043c\u0435\u0442\u043e\u0434 \u043f\u043e\u0434\u043f\u0438\u0441\u0438 \u0434\u043b\u044f \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u043e\u0433\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u0430         method signDoc {args} { #\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f accessCert \u0445\u0440\u0430\u043d\u0438\u0442 \u0447\u0438\u0441\u043b\u043e \u043d\u0435\u0441\u0430\u043d\u043a\u0446\u0438\u043e\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u043f\u043e\u043f\u044b\u0442\u043e\u043a \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u0438\u044f             my variable accessCert              set sign "\u0421\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e \u043e\u0442\u043e\u0437\u0432\u0430\u043d. \u041d\u0435 \u043f\u044b\u0442\u0430\u0439\u0442\u0435\u0441\u044c \u0438\u043c \u043f\u043e\u0434\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c!" #\u0427\u0438\u0441\u043b\u043e \u043f\u043e\u043f\u044b\u0442\u043e\u043a \u043d\u0435\u0441\u0430\u043d\u043a\u0446\u0438\u043e\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u0432\u043e\u0437\u0440\u0430\u0441\u0442\u0430\u0435\u0442 \u043d\u0430 1             incr accessCert             return [list $accessCert $sign]         }         method unrevoke {} {             my variable accessCert #\u0412\u044b\u0437\u043e\u0432 \u043c\u0435\u0442\u043e\u0434  unrevoke \u0443\u0434\u0430\u043b\u0438\u0442 \u043c\u0435\u0442\u043e\u0434 \u043f\u043e\u0434\u043f\u0438\u0441\u0438 \u0434\u043b\u044f \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u043e\u0433\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u0430, #\u0432\u043e\u0441\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u044f \u0442\u0435\u043c \u0441\u0430\u043c\u044b\u043c \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435  \u043c\u0435\u0442\u043e\u0434\u0430 signDoc \u0438\u0437 \u043a\u043b\u0430\u0441\u0441\u0430 \u0438  #\u0443\u0434\u0430\u043b\u0438\u0442 \u0441\u0430\u043c \u043c\u0435\u0442\u043e\u0434 unrevoke             oo::objdefine [self] { deletemethod signDoc unrevoke }             if {![info exist accessCert]} {                 return 0             }             return $accessCert         }     } } #\u041a\u043b\u043e\u043d\u0438\u0440\u0443\u0435\u043c \u043e\u0431\u044a\u0435\u043a\u0442 oo::copy cert1 cert11 #\u041e\u0442\u0437\u044b\u0432 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 puts "\u041e\u0442\u0437\u044b\u0432 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430" revoke cert1 foreach doc "\u041f\u043e\u0434\u043f\u0438\u0441\u044c3 \u043f\u043e\u0434\u043f\u0438\u0441\u044c4" {     puts "\u041f\u043e\u043f\u044b\u0442\u043a\u0430 \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u0442\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442 $doc"     foreach {count sign} [cert1 signDoc $doc] { \tputs "\\t\u041f\u043e\u043f\u044b\u0442\u043e\u043a \u043d\u0435\u0441\u0430\u043d\u043a\u0446\u0438\u043e\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u0434\u043e\u0441\u0442\u0443\u043f\u0430=$count" \tputs "\\t\u041f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430=\\"$sign\\""     } } #\u0414\u043b\u044f \u043a\u043b\u043e\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u043e\u0442\u0437\u044b\u0432 \u043d\u0435 \u0434\u0435\u0439\u0441\u0442\u0432\u0443\u0435\u0442 foreach doc "\u041f\u043e\u0434\u043f\u0438\u0441\u044c3\u043a \u043f\u043e\u0434\u043f\u0438\u0441\u044c4\u043a" {     puts "\u041f\u043e\u043f\u044b\u0442\u043a\u0430 \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u0442\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442 $doc \u043a\u043b\u043e\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u043c \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u043c"     foreach {count sign} [cert11 signDoc $doc] {     puts "\\t\u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u043d\u0430 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442=$count"     puts "\\t\u041f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430=\\"$sign\\""     } } #\u0412\u043e\u0441\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 foreach {count info} [cert1 unrevoke] {     puts "\u0414\u0435\u0439\u0441\u0442\u0432\u0438\u0435 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 \u0432\u043e\u0441\u0441\u0442\u0430\u043d\u0432\u043b\u0435\u043d\u043e"     puts "\\t\u0417\u0430 \u0432\u0440\u0435\u043c\u044f \u0435\u0433\u043e \u043e\u0442\u0437\u044b\u0432\u0430 \u0431\u044b\u043b\u043e $count \u043f\u043e\u043f\u044b\u0442\u043a\u0438 \u043d\u0435\u0441\u0430\u043d\u043a\u0446\u0438\u043e\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u0434\u043e\u0441\u044c\u0443\u043f\u0430" } foreach doc "\\"\u041f\u043e\u0434\u043f\u0438\u0441\u044c \u043f\u043e\u0441\u043b\u0435 \u0432\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044f\\"" {     puts "\u041f\u043e\u043f\u044b\u0442\u043a\u0430 \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u0442\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442 $doc"     foreach {count sign} [cert1 signDoc $doc] { \tputs "\\t\u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u043d\u0430 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442=$count" \tputs "\\t\u041f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430=\\"$sign\\""     } } <\/code><\/pre>\n<\/div><\/div>\n
  \u041d\u0438\u0436\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d \u0444\u0440\u0430\u0433\u043c\u0435\u043d\u0442 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u0440\u0438\u043c\u0435\u0440\u0430 example5.tcl:  <\/p>\n
. . .  \u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 \u041f\u043e\u0434\u043f\u0438\u0441\u044c1         \u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u043d\u0430 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442=1         \u041f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430="\u0417\u0434\u0435\u0441\u044c \u0434\u043e\u043b\u0436\u043d\u0430 \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u043f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430  \u041f\u043e\u0434\u043f\u0438\u0441\u044c1" \u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 \u041f\u043e\u0434\u043f\u0438\u0441\u044c2         \u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u043d\u0430 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442=2         \u041f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430="\u0417\u0434\u0435\u0441\u044c \u0434\u043e\u043b\u0436\u043d\u0430 \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u043f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430  \u041f\u043e\u0434\u043f\u0438\u0441\u044c2" \u041e\u0442\u0437\u044b\u0432 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 \u041f\u043e\u043f\u044b\u0442\u043a\u0430 \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u0442\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442 \u041f\u043e\u0434\u043f\u0438\u0441\u044c3         \u041f\u043e\u043f\u044b\u0442\u043e\u043a \u043d\u0435\u0441\u0430\u043d\u043a\u0446\u0438\u043e\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u0434\u043e\u0441\u0442\u0443\u043f\u0430=1         \u041f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430="\u0421\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e \u043e\u0442\u043e\u0437\u0432\u0430\u043d. \u041d\u0435 \u043f\u044b\u0442\u0430\u0439\u0442\u0435\u0441\u044c \u0438\u043c \u043f\u043e\u0434\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c!" \u041f\u043e\u043f\u044b\u0442\u043a\u0430 \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u0442\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442 \u043f\u043e\u0434\u043f\u0438\u0441\u044c4         \u041f\u043e\u043f\u044b\u0442\u043e\u043a \u043d\u0435\u0441\u0430\u043d\u043a\u0446\u0438\u043e\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u0434\u043e\u0441\u0442\u0443\u043f\u0430=2         \u041f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430="\u0421\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442 \u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e \u043e\u0442\u043e\u0437\u0432\u0430\u043d. \u041d\u0435 \u043f\u044b\u0442\u0430\u0439\u0442\u0435\u0441\u044c \u0438\u043c \u043f\u043e\u0434\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c!" \u0414\u0435\u0439\u0441\u0442\u0432\u0438\u0435 \u0441\u0435\u0440\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u0430 \u0432\u043e\u0441\u0441\u0442\u0430\u043d\u0432\u043b\u0435\u043d\u043e         \u0417\u0430 \u0432\u0440\u0435\u043c\u044f \u0435\u0433\u043e \u043e\u0442\u0437\u044b\u0432\u0430 \u0431\u044b\u043b\u043e 2 \u043f\u043e\u043f\u044b\u0442\u043a\u0438 \u043d\u0435\u0441\u0430\u043d\u043a\u0446\u0438\u043e\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u0434\u043e\u0441\u044c\u0443\u043f\u0430 \u041f\u043e\u043f\u044b\u0442\u043a\u0430 \u043f\u043e\u0434\u043f\u0438\u0441\u0430\u0442\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442 \u041f\u043e\u0434\u043f\u0438\u0441\u044c \u043f\u043e\u0441\u043b\u0435 \u0432\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044f         \u041f\u043e\u0434\u043f\u0438\u0441\u0430\u043d\u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u043d\u0430 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442=3         \u041f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430="\u0417\u0434\u0435\u0441\u044c \u0434\u043e\u043b\u0436\u043d\u0430 \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u043f\u043e\u0434\u043f\u0438\u0441\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430  \u041f\u043e\u0434\u043f\u0438\u0441\u044c \u043f\u043e\u0441\u043b\u0435 \u0432\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044f" . . .<\/code><\/pre>\n
  \u0423\u043f\u043e\u043c\u044f\u043d\u0435\u043c \u0435\u0449\u0435 \u043e\u0434\u0438\u043d \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440. \u042d\u0442\u043e \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440 \u043a\u043b\u043e\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u0430:  <\/p>\n
oo::copy <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u0438\u0441\u0445\u043e\u0434\u043d\u043e\u0433\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u0430> <\u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043a\u043b\u043e\u043d\u0430><\/code><\/pre>\n
\u0413\u043e\u0432\u043e\u0440\u0438\u0442\u044c \u0438 \u043f\u0438\u0441\u0430\u0442\u044c \u043e\u0431 \u041e\u041e\u041f \u043d\u0430 TclOO<\/a> \u043c\u043e\u0436\u043d\u043e \u0434\u043e\u043b\u0433\u043e \u0438 \u0434\u043e\u043b\u0433\u043e. 
  \u0415\u0449\u0435 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u0435\u0439 \u0435\u0433\u043e \u0438\u0441\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u044c.<\/div>\n
 \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438  https:\/\/habr.com\/ru\/post\/533852\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"\n
\"image\"\u0427\u0430\u0441\u0442\u043e \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u0441\u043b\u044b\u0448\u0430\u0442\u044c, \u0447\u0442\u043e \u0441\u043a\u0440\u0438\u043f\u0442\u043e\u0432\u043e\u043c\u0443 \u044f\u0437\u044b\u043a\u0443 Tcl \u043d\u0435 \u0445\u0432\u0430\u0442\u0430\u0435\u0442 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u043a\u0438 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u0441\u0442\u0438\u043b\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f. \u0421\u0430\u043c \u044f \u0434\u043e \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0433\u043e \u0432\u0440\u0435\u043c\u0435\u043d\u0438 \u043c\u0430\u043b\u043e \u043f\u0440\u0438\u0431\u0435\u0433\u0430\u043b \u043a \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u043c\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044e, \u0442\u0435\u043c \u0431\u043e\u043b\u0435\u0435 \u0432 \u0441\u0440\u0435\u0434\u0435 Tcl. \u041d\u043e \u0437\u0430 Tcl \u0441\u0442\u0430\u043b\u043e \u043e\u0431\u0438\u0434\u043d\u043e. \u042f \u0440\u0435\u0448\u0438\u043b \u0440\u0430\u0437\u043e\u0431\u0440\u0430\u0442\u044c\u0441\u044f. \u0418 \u043e\u043a\u0430\u0437\u0430\u043b\u043e\u0441\u044c, \u0447\u0442\u043e \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0441 \u043c\u043e\u043c\u0435\u043d\u0442\u0430 \u0441\u0432\u043e\u0435\u0433\u043e \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u044f \u043f\u043e\u044f\u0432\u0438\u043b\u0430\u0441\u044c \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f (\u041e\u041e\u041f) \u0432 \u0441\u0440\u0435\u0434\u0435 Tcl. \u0412\u0441\u0435 \u00ab\u043d\u0435\u0443\u0434\u043e\u0431\u0441\u0442\u0432\u043e\u00bb \u0437\u0430\u043a\u043b\u044e\u0447\u0430\u043b\u043e\u0441\u044c \u0432 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u0438 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0438\u0442\u044c \u043f\u0430\u043a\u0435\u0442 \u0441 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u043a\u043e\u0439 \u041e\u041e\u041f<\/abbr>. \u0410 \u0442\u0430\u043a\u0438\u0445 \u043f\u0430\u043a\u0435\u0442\u043e\u043c \u0431\u044b\u043b\u043e \u0438 \u0435\u0441\u0442\u044c \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e, \u043a\u0430\u043a \u0433\u043e\u0432\u043e\u0440\u0438\u0442\u0441\u044f \u043d\u0430 \u043b\u044e\u0431\u043e\u0439 \u0432\u043a\u0443\u0441. \u042d\u0442\u043e \u0438 Incr Tcl, Snit \u0438 XoTcl.
  \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u044b, \u043f\u0440\u0438\u0432\u044b\u043a\u0448\u0438\u0435 \u043a \u044f\u0437\u044b\u043a\u0443 C++, \u0447\u0443\u0432\u0441\u0442\u0432\u0443\u044e\u0442 \u0441\u0435\u0431\u044f \u043a\u0430\u043a \u0434\u043e\u043c\u0430, \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u0443\u044f \u0432 \u0441\u0440\u0435\u0434\u0435 Incr Tcl. \u042d\u0442\u043e \u0431\u044b\u043b\u043e \u043e\u0434\u043d\u0438\u043c \u0438\u0437 \u043f\u0435\u0440\u0432\u044b\u0445 \u0448\u0438\u0440\u043e\u043a\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u044b\u0445 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439 \u0434\u043b\u044f OO\u041f<\/abbr> \u043d\u0430 \u043e\u0441\u043d\u043e\u0432\u0435 Tcl. 
   \u041f\u0430\u043a\u0435\u0442 Snit \u0432 \u043e\u0441\u043d\u043e\u0432\u043d\u043e\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u043f\u0440\u0438 \u043f\u043e\u0441\u0442\u0440\u043e\u0435\u043d\u0438\u0438 Tk-\u0432\u0438\u0434\u0436\u0435\u0442\u043e\u0432, \u0430 XoTcl \u0438 \u0435\u0433\u043e \u043f\u0440\u0435\u0435\u043c\u043d\u0438\u043a nx \u043f\u0440\u0435\u0434\u043d\u0430\u0437\u043d\u0430\u0447\u0430\u043b\u0438\u0441\u044c \u0434\u043b\u044f \u0438\u0441\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u044f \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f.
   \u041e\u0431\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u043e\u043f\u044b\u0442\u0430, \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0433\u043e \u043f\u0440\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0438 \u044d\u0442\u0438\u0445 \u0441\u0438\u0441\u0442\u0435\u043c, \u043f\u043e\u0437\u0432\u043e\u043b\u0438\u043b\u043e \u0432\u043d\u0435\u0434\u0440\u0438\u0442\u044c \u041e\u041e\u041f \u0432 \u044f\u0434\u0440\u043e Tcl \u043d\u0430\u0447\u0438\u043d\u0430\u044f \u0441 \u0432\u0435\u0440\u0441\u0438\u0438 8.6. \u0422\u0430\u043a \u043f\u043e\u044f\u0432\u0438\u043b\u0441\u044f TclOO \u2014 Tcl Object Oriented.
   \u0421\u0440\u0430\u0437\u0443 \u043e\u0442\u043c\u0435\u0442\u0438\u043c, \u0447\u0442\u043e Tcl \u043d\u0435 \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0435\u0442 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435, \u0430 \u0432 \u043f\u043e\u043b\u043d\u043e\u043c \u0441\u043c\u044b\u0441\u043b\u0435 \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u043e\u0435 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-315289","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/315289","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=315289"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/315289\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=315289"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=315289"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=315289"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}