ស្ថានីយការងារគ្រីបតូ ផ្អែកលើស្តង់ដារគន្លឹះសាធារណៈសម្រាប់ប្រព័ន្ធប្រតិបត្តិការ Android

វាដល់ពេលហើយដើម្បីបង្ហាញពីរបៀបដែលស្ថានីយការងារគ្រីបដែលផ្អែកលើស្តង់ដារសោសាធារណៈ cryptoarmpkcs ដំណើរការលើវេទិកាទូរស័ព្ទមួយគឺ Android ។

គំនិតដែលត្រូវបានដាក់នៅពេលបង្កើតឧបករណ៍ប្រើប្រាស់ cryptoarmpkcs គឺថាអ្នកប្រើប្រាស់គួរតែជួបប្រទះអប្បរមានៃការរអាក់រអួលនៅពេលបង្កើត និងផ្ទៀងផ្ទាត់ហត្ថលេខាអេឡិចត្រូនិក។ នោះហើយជាមូលហេតុដែលយើងស្នើឱ្យប្រើនិមិត្តសញ្ញាគ្រីបគ្រីបជាក្រុមហ៊ុនដឹកជញ្ជូនគន្លឹះសម្រាប់វិញ្ញាបនបត្រផ្ទាល់ខ្លួន PKCS #11 និង/ឬធុងសុវត្ថិភាព PKCS #12. វាត្រូវតែត្រូវបាននិយាយថាការប្រើប្រាស់ PKCS #12 ក្នុងករណីជាច្រើនប្រែទៅជាស្ទើរតែតែមួយគត់ដែលអាចធ្វើទៅបានឧទាហរណ៍នៅពេលដែលនិមិត្តសញ្ញា PKCS #11 ដូចគ្នាមិនមានការគាំទ្រសម្រាប់វេទិកាជាក់លាក់។ ដូច្នេះហើយ យើងបានសម្រេចចិត្តចាប់ផ្តើមបញ្ជូនឧបករណ៍ប្រើប្រាស់ cryptoarmpkcs ទៅកាន់ប្រព័ន្ធប្រតិបត្តិការ Android ដោយមានការគាំទ្រសម្រាប់ធុងការពារ PKCS#12 ។

អនុញ្ញាតឱ្យយើងកត់សម្គាល់ភ្លាមៗថាចាប់តាំងពីគម្រោងនេះត្រូវបានធ្វើនៅលើវេទិកា C និង Tcl/Tk ច្រកមិនបង្កឱ្យមានការលំបាកជាមូលដ្ឋានណាមួយឡើយ។ នេះអាចធ្វើទៅបានដោយសារបច្ចេកវិទ្យា Androwish. ជាមួយនឹងការលាតត្រដាងនិង រៀបចំបរិស្ថាន មិនមានបញ្ហាអ្វីទេ (បរិយាកាសការងាររបស់ខ្ញុំគឺ Linux - Mageia-7.0)។ ខ្ញុំនឹងផ្តល់ស្គ្រីបតែមួយសម្រាប់ដាក់ពង្រាយឧបករណ៍បន្ទាត់ពាក្យបញ្ជារបស់ Android (sdk-tools-linux-xxxx.zip)៖

#!/bin/sh
if [ $# -ne 1   ]
    then 
	echo "./InstallAndroidSDK.sh <sdk-tools-linux-xxxxxxxx.zip>"
	echo "Не указан архив или число параметров больше 1"
	exit 1
fi
if [ ! -f $1 ]
    then 
	echo "./InstallAndroidSDK.sh <sdk-tools-linux-xxxxxxxx.zip>"
	echo "архив $1 отсутствует"
	exit 1
fi
#Распаковываем SDK-TOOLS в папку tools
#unzip sdk-tools-linux-4333796.zip
unzip $1
#Создаем папку android-sdk-linux
mkdir android-sdk-linux
#Перемещвем папку tools в android-sdk-linux
mv tools android-sdk-linux
cd android-sdk-linux/tools/bin
./sdkmanager "platform-tools" "platforms;android-29"  

អ្វីដែលគួរឱ្យកត់សម្គាល់បំផុតនោះគឺថាបរិយាកាស Androwish រួមមានអ្នកបកប្រែពីរនាក់គឺ undrowish-xxx និង vanillawish-xxx ដែលមានលក្ខណៈដូចគ្នាទាំងស្រុងនៅក្នុងសមាសភាពនៃ "balalaikas" (កញ្ចប់) ដែលរួមបញ្ចូលនៅក្នុង Androwish ខ្លួនវាផ្ទាល់។ ភាពខុសគ្នារវាង undrowish និង vanillawish គឺថា vanillawish មាន backend ផ្អែកលើ SDL / AGG / freetype:

វត្តមាននៃឧបករណ៍ប្រើប្រាស់ទាំងពីរនេះអនុញ្ញាតឱ្យអ្នកបង្កើតកម្មវិធីដោយមិនចាំបាច់ប្រើប្រព័ន្ធប្រតិបត្តិការ Android ដោយខ្លួនឯង និងកម្មវិធីត្រាប់តាមរបស់វាជាមួយនឹងការប្រហាក់ប្រហែលអតិបរមាទៅនឹងឧបករណ៍ពិត។ ជាដំបូង នេះជាការពិត undroidwish-xxx។

កញ្ចប់ផ្ទាល់ខ្លួនពិតប្រាកដសម្រាប់ Android ត្រូវបានបង្កើតឡើងនៅក្នុងបរិស្ថាន AWSDK ។ មែកធាងគម្រោងរបស់អ្នកគួរតែត្រូវបានផ្លាស់ទីទៅថត ~/AWSDK/ទ្រព្យសកម្ម/កម្មវិធី។ ក្នុងករណីនេះ ម៉ូឌុលមេនៃគម្រោងរបស់អ្នកត្រូវតែប្តូរឈ្មោះទៅជា main.tcl ។ ប្រសិនបើអ្នកប្រើ balalaikas បន្ថែមជាមួយបណ្ណាល័យថាមវន្ត នោះបណ្ណាល័យត្រូវតែដាក់ក្នុងថត ~/AWSDK/libs/x86 សម្រាប់កម្មវិធីត្រាប់តាម និង ~/AWSDK/libs/armeabi សម្រាប់ឧបករណ៍ពិត។

បន្ទាប់ពីនេះគ្រាន់តែដំណើរការពាក្យបញ្ជា:

$wish ~/AWSDK/tools/bones

ហើយធ្វើតាមការណែនាំរបស់នាង៖

កញ្ចប់ apk ដែលបានជួបប្រជុំគ្នានឹងមានទីតាំងនៅក្នុងថត ~/AWSDK/build/outputs/apk ។

ប្រសិនបើអ្នកមានឧបករណ៍ពិត ឬឧបករណ៍ត្រាប់តាមបានភ្ជាប់ កញ្ចប់អាចត្រូវបានដំឡើងភ្លាមៗ។
ក្នុងករណីនេះ ឧបករណ៍ពិតត្រូវតែស្ថិតនៅក្នុងរបៀបបំបាត់កំហុស។

ប៉ុន្តែសូមត្រលប់ទៅកម្មវិធីខ្លួនឯងវិញ។ តើមានអ្វីដែលត្រូវផ្លាស់ប្តូរនៅក្នុងវា?

តាមធម្មជាតិ ការផ្លាស់ប្តូរគឺទាក់ទងជាចម្បងទៅនឹងទំហំអេក្រង់។ ខ្ញុំត្រូវរចនាមេ (បង្អួចចាប់ផ្តើម) ឡើងវិញ។ ជាលទ្ធផល ជំនួសឱ្យបង្អួចមួយនៅលើកុំព្យូទ័រធម្មតា៖

បង្អួចចំនួនបីបានបង្ហាញខ្លួននៅលើប្រព័ន្ធប្រតិបត្តិការ Android៖

បង្អួចដំបូងគឺព័ត៌មាន។ តាមធម្មតាវាត្រូវបានបែងចែកជាផ្នែកជាច្រើន។ ផ្នែកទីមួយដែលមានទីតាំងនៅផ្នែកខាងលើមានឈ្មោះឧបករណ៍ប្រើប្រាស់ និងនិមិត្តសញ្ញារបស់វា។

បន្ទាប់​មក​ស្លាក​សញ្ញា​របស់​អ្នក​ផលិត សន្លឹក​ព័ត៌មាន និង​ប៊ូតុង​បី​បញ្ចប់​ទំព័រ។
ទំព័រត្រូវបានសរសេរដោយប្រើសមាសធាតុផ្ទាំងក្រណាត់។ ទំព័រប្រើប៊ូតុងពីរប្រភេទ៖ មួយក្នុងទម្រង់ជាចតុកោណកែងថ្លា (កណ្តាល) និងពីរប្រភេទទៀតជាទម្រង់ចតុកោណកែងដែលមានជ្រុងមូល។ Balalaika ត្រូវបានប្រើដើម្បីបង្កើតប៊ូតុងដែលមានជ្រុងមូល tkpath. ដោយផ្ទាល់ balalaika នេះបានធ្វើឱ្យមានការចាប់អារម្មណ៍យ៉ាងខ្លាំងមកលើខ្ញុំ។ ជាធម្មតា នៅពេលធ្វើការជាមួយផ្ទាំងក្រណាត់ ធរណីមាត្រកាន់កាប់ចំណែករបស់សត្វតោនៃកូដ។ ខាងក្រោមនេះគឺជាស្គ្រីប create_titul_page.tcl ដើម្បីបង្កើតទំព័រដំបូងនៃកម្មវិធី។ អ្នក​ណា​ក៏​អាច​កែ​សម្រួល​វា​ឲ្យ​សម​នឹង​ការ​យល់​ឃើញ​របស់​ខ្លួន​ដែរ។

ស្គ្រីប create_titul_page.tcl

package require Tk
package require tkpath 0.3.0
global mydir
set mydir [file dirname [info script]]
#Грузим картинки
#Логотип продукта
image create photo logo_product -file [file join $mydir "imageme" "validcertkey_51x24.png"] 
#Логотип производителя
image create photo logo_orel -file [file join $mydir "imageme" "я_орел_425x200.png"] -format "png -alpha 1.0"
#Андроида с tcl/tk
image create photo logo_and -file [file join $mydir "imageme" "AndTk_inv_147x173.png"] -format "png -alpha 1.0"
#Свиток опечатанный
image create photo svitok -file [file join $mydir "imageme" "blue_svitok.png"] -format "png -alpha 1.0"
#Плитка
image create photo tileand -file [file join $mydir "imageme" "tile_green_and_32x32.png"] -format "png -alpha 1.0"
#Увеличить/уменьшить (отрицательное значение - уменьшение)
proc scaleImage {im xfactor {yfactor 0}} {
set mode -subsample
if {$xfactor>=0 && $yfactor>=0} {
set mode -zoom
} else {
set xfactor [expr $xfactor * -1]
}
if {$yfactor == 0} {set yfactor $xfactor}
set t [image create photo]
$t copy $im
$im blank
$im copy $t -shrink $mode $xfactor $yfactor
image delete $t
}
proc createtile {w  backg} {
image create photo tiled
tiled copy $backg -to 0 0 $::scrwidth $::scrheight -shrink
$backg copy tiled
image delete tiled
# Мостим холст
$w create image 0 0  
-image $backg  
-anchor nw
}
proc create_rectangle  {canv img x1 y1 x2 y2 color alfa {wbd 0} {colorline black} } {
image create photo $img -format "default -colorformat  rgb"
set rgb1 [winfo rgb $canv $color]
set cr  [lindex $rgb1 0]
set cg  [lindex $rgb1 1]
set cb  [lindex $rgb1 2]
set fill [format "#%04x%04x%04x" $cr $cg $cb ]
#Создаем цветной праямоугольник
$img put $fill -to 0 0 [expr {$x2 - $x1}] [expr {$y2 -$y1}]
#Сохраняем картинку
set dimg [$img data -format png]
#Создаем image с учетом alpha канала
image create photo $img -data $dimg -format "png -alpha $alfa"
#    $img put [list $rgb1] -to 0 0 [expr {$x2 - $x1}] [expr {$y2 -$y1}]
#Отображаем цветной прямоугольник
set imgr [$canv create image $x1 $y1 -image $img -anchor nw] 
set cc [subst {butImg $img}]
$canv bind $imgr <ButtonPress-1> $cc
#Оконтовка вокруг цветного прямоугольника
if {$wbd > 0 } {
set item [$canv create rect $x1 $y1 $x2 $y2 -outline $colorline -width $wbd ]
$canv bind $item <ButtonPress-1> $cc
}
return $imgr
}
proc butImg {img} {
tk_messageBox -title "Кнопка" -icon info -message "Нажали кнопку=$img" -detail "::screenwidth=$::scrwidthn::screenheight=$::scrheight" -parent .
if {$img == "exit"} {
set answer [tk_dialog .dialog2 "Конец работы" "Вы действительноnхотите выйти?" question 0 "Да" "Нет" ]
if {$answer == 0} {
exit
}	
}
}
proc page_titul {fr  logo_manufacturer} {
global mydir
#Создаем холст на весь экран
tkp::canvas $fr.can -borderwidth 0 -height [winfo screenheight .] -width [winfo screenwidth .] -relief flat
#Мостим холст плиткой 
createtile "$fr.can"  "tileand"
pack $fr.can  -anchor center -expand 1 -fill both -side top  -padx 0 -pady 0
#Вычисляем координаты для логотипа производителя
#update чтобы обновилась информация в БД об окнах
update
#    set aa [winfo height $fr.labtitul]
set aa $::padly
#Центрируем логотип разработчика
set ha [image width $logo_manufacturer]
set xman [expr {($::scrwidth - $ha) / 2 }]
$fr.can create image $xman $aa -image $logo_manufacturer -anchor nw -tag tag_logo
set blogo [$fr.can bbox tag_logo]
set wexit [lindex $blogo 3]
if {$::typetlf } {
set dlx [expr {$::padlx / 1}]
$fr.can create text [expr $dlx + 6] [expr {$wexit + $::padly + 6}] -anchor nw -text "Электронная подпись" -fill black -font {{Roboto Condensed Medium} 15 }
$fr.can create text $dlx [expr {$wexit + $::padly}] -anchor nw -text "Электронная подпись" -fill white -font {{Roboto Condensed Medium} 15 } -tag id_text0
update
set blogo [$fr.can bbox id_text0]
set wexit [lindex $blogo 3]
$fr.can create text [expr $dlx + 4] [expr {$wexit + $::padly + 4 - 80}] -anchor nw -text "для платформы Android" -fill black -font {{Roboto Condensed Medium} 13}
$fr.can create text $dlx [expr {$wexit + $::padly - 80}] -anchor nw -text "для платформы Android" -fill white -font {{Roboto Condensed Medium} 13} -tag id_text1
set blogo [$fr.can bbox id_text1]
set wexit [lindex $blogo 3]
$fr.can create text [expr $dlx + 3] [expr {$wexit + $::padly + 3 - 50}] -anchor nw -text "№ 63 ФЗ "Об электроннойnподписи от 6 апреля 2011 года"" -fill black -font {{Roboto} 10}
$fr.can create text $dlx [expr {$wexit + $::padly - 50}] -anchor nw -text "№ 63 ФЗ "Об электроннойnподписи от 6 апреля 2011 года"" -fill white -font {{Roboto} 10} -tag id_text2
set blogo [$fr.can bbox id_text2]
set wexit [lindex $blogo 3]
$fr.can create text [expr $dlx + 2] [expr {$wexit + $::padly + 2 - 40}] -text "Авторы: В.Н. Орловnhttp://soft.lissi.ru, http://www.lissi.run+7(495)589-99-53ne-mail: [email protected]" 
-anchor nw -fill black  -font {{Roboto} 9}
$fr.can create text $dlx [expr {$wexit + $::padly - 40}] -text "Авторы: В.Н. Орловnhttp://soft.lissi.ru, http://www.lissi.run+7(495)589-99-53ne-mail: [email protected]" 
-anchor nw -fill white -tag id_text3  -font {{Roboto} 9}
} else {
$fr.can create text [expr $::padlx + 2] [expr {$wexit + $::padly + 2}] -anchor nw -text "Электронная подпись" -fill black -font {{Nimbus Sans Narrow} 20}
$fr.can create text $::padlx [expr {$wexit + $::padly}] -anchor nw -text "Электронная подпись" -fill white -font {{Nimbus Sans Narrow} 20} -tag id_text0
set blogo [$fr.can bbox id_text0]
set wexit [lindex $blogo 3]
$fr.can create text [expr $::padlx + 2] [expr {$wexit + $::padly + 2 - 20}] -anchor nw -text "для платформы Android" -fill black -font {{Nimbus Sans Narrow} 18}
$fr.can create text $::padlx [expr {$wexit + $::padly - 20}] -anchor nw -text "для платформы Android" -fill white -font {{Nimbus Sans Narrow} 18} -tag id_text1
set blogo [$fr.can bbox id_text1]
set wexit [lindex $blogo 3]
$fr.can create text [expr $::padlx + 2] [expr {$wexit + $::padly + 2}] -anchor nw -text "№ 63 ФЗ "Об электроннойnподписи от 6 апреля 2011 года"" -fill black -font {{Nimbus Sans Narrow} 14}
$fr.can create text $::padlx [expr {$wexit + $::padly}] -anchor nw -text "№ 63 ФЗ "Об электроннойnподписи от 6 апреля 2011 года"" -fill white -font {{Nimbus Sans Narrow} 14} -tag id_text2
set blogo [$fr.can bbox id_text2]
set wexit [lindex $blogo 3]
$fr.can create text [expr $::padlx + 1] [expr {$wexit + $::padly + 1}] -text "Авторы: В.Н. Орловnhttp://soft.lissi.ru, http://www.lissi.run+7(495)589-99-53ne-mail: [email protected]" 
-anchor nw -fill black  -font {{Nimbus Sans Narrow} 12}
$fr.can create text $::padlx [expr {$wexit + $::padly}] -text "Авторы: В.Н. Орловnhttp://soft.lissi.ru, http://www.lissi.run+7(495)589-99-53ne-mail: [email protected]" 
-anchor nw -fill white -tag id_text3  -font {{Nimbus Sans Narrow} 12} -tag id_text3
set blogo [$fr.can bbox id_text2]
}
set blogo [$fr.can bbox id_text3]
set wland [lindex $blogo 3]
$fr.can create image $::padlx $wland -image logo_and -anchor nw -tag tag_land
set ha [image height logo_and]
set wa [image width logo_and]
set ha1 [expr {$ha - ($ha / 2 ) }]
$fr.can create image [expr {$wa - 80 }] [expr {$wland + $ha1}] -image svitok -anchor nw -tag tag_land
if {$::typetlf} {
set x1 [expr {$::padlx / 2}]
set y1 [expr {$wland + 120}]
set x2 [expr {$::::scrwidth - $x1}]
set y2 [expr {$y1 + 120}]
set wd 8
set rr 18
} else {
set x1 [expr {$::padlx / 2}]
set y1 [expr {$wland + 40}]
set x2 [expr {$::::scrwidth - $x1}]
set y2 [expr {$y1 + 40}]
set wd 4
set rr 6
}
set g5 [$fr.can gradient create linear -stops {{0 lightgreen} {1 green}}] 
set S3 [$fr.can style create -stroke "skyblue" -fill  $g5 -strokewidth $wd  -fillopacity 0.6]
set im1 [$fr.can create prect $x1 $y1 $x2 $y2 -rx $rr -style $S3]
$fr.can bind $im1 <ButtonPress-1> {butImg "img1"}
#Печатаем техт
set blogo [$fr.can bbox $im1]
set by2 [lindex $blogo 3]
set by1 [lindex $blogo 1]
set bb [expr {($by2 - $by1) / 2}]
set bx2 [lindex $blogo 2]
set bx1 [lindex $blogo 0]
set bbx [expr {($bx2 - $bx1) / 2}]
set txt1 [$fr.can create text [expr {$x1 + $::padlx * 2}] [expr {$y1 + 1 }] -anchor nw -text "Сайт разработчика" -fill black -font {{Arial} 10 normal}] 
#Центрируем техт
set btxt1 [$fr.can bbox $txt1]
#Смещение по оси Y
set ty2 [lindex $btxt1 3]
set ty1 [lindex $btxt1 1]
set tt [expr {$ty2 - $ty1}]
set tt [expr {$tt / 2}]
set offsy [expr {($by1 + $bb) - ($ty1 + $tt)}]
#Смещение по оси X
set tx2 [lindex $btxt1 2]
set tx1 [lindex $btxt1 0]
set ttx [expr {$tx2 - $tx1}]
set ttx [expr {$ttx / 2}]
set offsx [expr {($bx1 + $bbx) - ($tx1 + $ttx)}]
$fr.can move $txt1 $offsx $offsy
$fr.can bind $txt1 <ButtonPress-1> {butImg "img1"}
if {$::typetlf} {
set y1 [expr $y2 + 40]
set x2 [expr {$::::scrwidth - $x1}]
set y2 [expr {$y1 + 120}]
} else {
set y1 [expr {$y1 + 60}]
set x2 [expr {$::::scrwidth - $x1}]
set y2 [expr {$y1 + 40}]
}
set im1 [create_rectangle $fr.can "but2" $x1 $y1 $x2 $y2 "#2b972d" 0.6 $wd "skyblue"]
#Печатаем техт
set blogo [$fr.can bbox $im1]
set by2 [lindex $blogo 3]
set by1 [lindex $blogo 1]
set bb [expr {($by2 - $by1) / 2}]
set bx2 [lindex $blogo 2]
set bx1 [lindex $blogo 0]
set bbx [expr {($bx2 - $bx1) / 2}]
set txt1 [$fr.can create text [expr {$x1 + $::padlx * 2}] [expr {$y1 + 1 }] -anchor nw -text "Переход в основное меню" -fill black -font {{Roboto Condensed Medium} 12}] 
#Центрируем текст
set btxt1 [$fr.can bbox $txt1]
#Смещение по оси Y
set ty2 [lindex $btxt1 3]
set ty1 [lindex $btxt1 1]
set tt [expr {$ty2 - $ty1}]
set tt [expr {$tt / 2}]
set offsy [expr {($by1 + $bb) - ($ty1 + $tt)}]
#Смещение по оси X
set tx2 [lindex $btxt1 2]
set tx1 [lindex $btxt1 0]
set ttx [expr {$tx2 - $tx1}]
set ttx [expr {$ttx / 2}]
set offsx [expr {($bx1 + $bbx) - ($tx1 + $ttx)}]
$fr.can move $txt1 $offsx $offsy
$fr.can bind $txt1 <ButtonPress-1> {butImg "but2"}
if {$::typetlf} {
set x1 [expr {$::padlx / 2}]
set y1 [expr $y2 + 40]
set x2 [expr {$::::scrwidth - $x1}]
set y2 [expr {$y1 + 120}]
} else {
set x1 [expr {$::padlx / 2}]
set y1 [expr {$y1 + 60}]
set x2 [expr {$::::scrwidth - $x1}]
set y2 [expr {$y1 + 40}]
}
set S3 [$fr.can style create -stroke skyblue -fill  $g5 -strokewidth $wd  -fillopacity 0.6]
set im1 [$fr.can create prect $x1 $y1 $x2 $y2 -rx $rr -style $S3]
set blogo [$fr.can bbox $im1]
$fr.can bind $im1 <ButtonPress-1> {butImg "exit"}
set by2 [lindex $blogo 3]
set by1 [lindex $blogo 1]
set bb [expr {($by2 - $by1) / 2}]
set bx2 [lindex $blogo 2]
set bx1 [lindex $blogo 0]
set bbx [expr {($bx2 - $bx1) / 2}]
set txt1 [$fr.can create text [expr {$x1 + $::padlx * 2}] [expr {$y1 + 1 }] -anchor nw -text "Конец работы" -fill black  -font {Arial 10 normal}]
$fr.can bind $txt1 <ButtonPress-1> {butImg "exit"}
set btxt1 [$fr.can bbox $txt1]
#Смещение по оси Y
set ty2 [lindex $btxt1 3]
set ty1 [lindex $btxt1 1]
set tt [expr {$ty2 - $ty1}]
set tt [expr {$tt / 2}]
set offsy [expr {($by1 + $bb) - ($ty1 + $tt)}]
#Смещение по оси X
set tx2 [lindex $btxt1 2]
set tx1 [lindex $btxt1 0]
set ttx [expr {$tx2 - $tx1}]
set ttx [expr {$ttx / 2}]
set offsx [expr {($bx1 + $bbx) - ($tx1 + $ttx)}]
$fr.can move $txt1 $offsx $offsy
}
#Собственно скрипт
#Считываем размеры экрана
set ::scrwidth [winfo screenwidth .]
set ::scrheight [winfo screenheight .]
set ::typetlf 0
#Проверяем, что это телефон
if {$::scrwidth < $::scrheight} {
set ::typetlf 1
}
set ::padls 20
set ::padlx 15
set ::padly 15
if {$::typetlf} {
wm attributes . -fullscreen 1
scaleImage icon_openfile_18x16 3
scaleImage ::img::view_18x16 3
#Логотип производителя
scaleImage logo_orel 2
#Логотип продуктв
scaleImage logo_product 2
#Андроида tcl/tk
scaleImage logo_and 3
#Свиток опечатанный
scaleImage svitok 4
set ::padls 50
set ::padlx 75
set ::padly 50
} else {
#Конфигурирование виджета под смартфон
scaleImage logo_orel -2
set ::scrwidth 370
set ::scrheight 700
wm minsize . $::scrwidth $::scrheight
set geometr $::scrwidth
append geometr "x"
append geometr $::scrheight
append geometr "+0+0"
wm geometry . $geometr
}
#Создаем название продукта
set name_product "CryptoArmPKCS-A" 
label .labtitul -image logo_product -compound left -fg snow -text $name_product -font {Arial 10 bold} -anchor w  -width [winfo screenwidth .] -pady $::padls -padx 10 -bg #222222 
pack .labtitul -anchor nw -expand 0 -fill x -side top  -padx 1 -pady 0
#Создаем стартовую страницу
set i 0
ttk::frame .fr$i -pad 0 -padding 0
page_titul ".fr$i"  "logo_orel"
pack .fr$i -side top -anchor center -expand 1 -fill both -side top  -padx 0 -pady 0 
update

ដើម្បីប្រតិបត្តិស្គ្រីបនេះ សូមប្រើឧបករណ៍ប្រើប្រាស់ undroidwish ឬ vanillawish៖

$ /usr/local/bin64/undroidwish-e5dc71ed9d-linux64   create_titul_page.tcl 

ឬ

$/usr/local/bin64/vanillawish-e5dc71ed9d-linux64  create_titul_page.tcl 

លទ្ធផលត្រូវបានបង្ហាញនៅក្នុងរូបថតអេក្រង់ដំបូង។

ទំព័រទីពីររាយបញ្ជីមុខងារដែលគាំទ្រដោយឧបករណ៍ប្រើប្រាស់ cryptoarmpkcs-A ។ បន្ទាត់នីមួយៗគឺជាប៊ូតុងមួយ នៅពេលចុច ទំព័រមុខងារនឹងត្រូវបានបង្ហាញ។ ធរណីមាត្រនៃការដាក់ប៊ូតុងនៅលើទំព័រនេះត្រូវបានកំណត់ដោយពុម្ពអក្សរដែលត្រូវបានប្រើ។ ខាងក្រោមនេះគឺជាស្គ្រីប create_page_functions.tcl ដើម្បីបង្កើតទំព័រទីពីរ/មុខងាររបស់កម្មវិធី។ នរណាម្នាក់ក៏អាចកែសម្រួលវាឱ្យសមនឹងមុខងាររបស់ពួកគេផងដែរ។

ស្គ្រីប create_page_functions.tcl

package require Tk
package require tkpath 0.3.0
global mydir
set mydir [file dirname [info script]]
#Увеличить/уменьшить (отрицательное значение - уменьшение)
proc scaleImage {im xfactor {yfactor 0}} {
set mode -subsample
if {$xfactor>=0 && $yfactor>=0} {
set mode -zoom
} else {
set xfactor [expr $xfactor * -1]
}
if {$yfactor == 0} {set yfactor $xfactor}
set t [image create photo]
$t copy $im
$im blank
$im copy $t -shrink $mode $xfactor $yfactor
image delete $t
}
proc createtile {w  backg} {
image create photo tiled
tiled copy $backg -to 0 0 $::scrwidth $::scrheight -shrink
$backg copy tiled
image delete tiled
# Мостим холст
$w create image 0 0  
-image $backg  
-anchor nw
}
proc butCliked {num fr} {
pack forget  .fr1
set ::tekFrfunc $fr
pack $fr -side top -anchor center -expand 1 -fill both -side top  -padx 0 -pady 0 
tk_dialog .dialog1 "Dear user:" "Button $num was clickednFr=$fr" info 0 OK 
}
proc butImg {img} {
tk_messageBox -title "Кнопка" -icon info -message "Нажали кнопку=$img" -detail "::screenwidth=$::scrwidthn::screenheight=$::scrheight" -parent .
if {$img == "exit"} {
set answer [tk_dialog .dialog2 "Конец работы" "Вы действительноnхотите выйти?" question 0 "Да" "Нет" ]
if {$answer == 0} {
exit
}	
}
}
proc butReturn {} {
pack forget  $::tekFrfunc
pack .fr1 -side top -anchor center -expand 1 -fill both -side top  -padx 0 -pady 0 
#    tk_dialog .dialog1 "Dear user:" "Button $num was clickednFr=$fr" info 0 OK 
}
proc page_func {fr tile titul functions} {
#Кнопки  меню
upvar $functions but
#Создаем шрифт для кнопок
if {$::typetlf} {
set feFONT_button "-family {Roboto} -size 9 -weight bold -slant roman"
set widl 10
} else {
set feFONT_button "-family {Arial} -size 12 -weight bold -slant roman"
set widl 5
}
catch {font delete fontTEMP_drawer}
eval font create fontTEMP_drawer  $feFONT_button
#Вычисляем максимальныю длину текста
set drawerCNT 0
set strMaxWidthPx 15
set Ndrawers [expr {[array size but] - 1}]
while { $drawerCNT <= $Ndrawers } {
set strWidthPx [font measure fontTEMP_drawer "$but($drawerCNT)"]
if { $strWidthPx > $strMaxWidthPx } {
set strMaxWidthPx $strWidthPx
}
incr drawerCNT
}
set drawerWidthPx [expr $strMaxWidthPx + 10]
set xxx [expr {($::::scrwidth - $drawerWidthPx) / 2}]
if {$fr != ".fr1"} {
set hret [expr $::scrheight / 4]
} else {
set hret $::scrheight
}
set hret [expr $::scrheight / 4]
tkp::canvas $fr.can -borderwidth 0 -height $hret -width $::scrwidth -relief flat
#Мостим холст плиткой 
createtile "$fr.can"  $tile
pack $fr.can  -anchor center -expand 1 -fill both -side top  -padx 0 -pady 0
if {$titul != "" } {
set allfunc $titul
catch {font delete fontTEMP_titul}
set font_titul "-family {Roboto Condensed Medium} -size 15"
eval font create fontTEMP_titul  $font_titul
set funcWidthPx [font measure fontTEMP_titul "$allfunc"]
set dlx [expr {($::::scrwidth - $funcWidthPx) / 2}]
$fr.can create text [expr $dlx + 6] [expr {6 + 6}] -anchor nw -text "$allfunc" -fill black -font fontTEMP_titul
$fr.can create text $dlx 6 -anchor nw -text "$allfunc" -fill white -font fontTEMP_titul -tag id_text0
set blogo [$fr.can bbox id_text0]
set boxbut [expr ([lindex $blogo 3] + 6 + 6)]
} else {
set boxbut [expr 6 + 6]
}
#Вычисляем самый широкий текст у кнопок
#См. выше
#Размещаем кнопки
set BDwidth_canvas 0
set maxTextHeightPx [font metrics fontTEMP_drawer -linespace] 
set maxTextHeightPx [expr {$maxTextHeightPx + ( $maxTextHeightPx / 2)}]
set drawerHeightPx $maxTextHeightPx
set xLocTextPx [expr {($::::scrwidth - $drawerWidthPx) / 2}]
set yLocTextPx [expr $BDwidth_canvas + ($drawerHeightPx / 2) + $boxbut]
set canvasHeightPx [expr $Ndrawers * $drawerHeightPx]
set drawerCNT 0
set Ndrawers [expr {[array size but] - 1}]
while { $drawerCNT <= $Ndrawers } {
set yLineLocPx [ expr (( $drawerCNT ) * $drawerHeightPx + $boxbut)]
#Линия перед текстом
$fr.can create line 
$xLocTextPx $yLineLocPx 
[expr $drawerWidthPx + $xLocTextPx] $yLineLocPx 
-fill "#a0a0a0" -width $widl
$fr.can create text [expr $xLocTextPx + 5] $yLocTextPx 
-anchor w 
-font fontTEMP_drawer 
-text "$but($drawerCNT)" 
-tag textlineTag($drawerCNT)
if {$drawerCNT == 0} {
if {$fr == ".fr1"} {
$fr.can bind textlineTag($drawerCNT)  <ButtonRelease-1>   {butImg "but1"}
} else {
$fr.can bind textlineTag($drawerCNT)  <ButtonRelease-1>   {butReturn}
}
} else {
frame .fn$drawerCNT -background white -relief flat -pady 0 -padx 0
set titul $but($drawerCNT)
set cmd "$fr.can bind textlineTag($drawerCNT)  <ButtonRelease-1>   {butCliked $drawerCNT .fn$drawerCNT}"
set cmd [subst "$cmd"]
eval $cmd 
set but1(0) "Возврат в основное меню"
page_func ".fn$drawerCNT" voda "$titul" "but1"
}
incr drawerCNT
set yLocTextPx [ expr $yLocTextPx + $drawerHeightPx]
#Завершаюшая линия
if { $drawerCNT > $Ndrawers } {
set yLineLocPx [ expr (( $drawerCNT ) * $drawerHeightPx + $boxbut)]
$fr.can create line $xLocTextPx $yLineLocPx 
[expr $drawerWidthPx + $xLocTextPx] $yLineLocPx 
-fill "#a0a0a0" -width $widl
}
}
}
#Собственно скрипт
#Считываем размеры экрана
set ::scrwidth [winfo screenwidth .]
set ::scrheight [winfo screenheight .]
set ::typetlf 0
#Проверяем, что это телефон
if {$::scrwidth < $::scrheight} {
set ::typetlf 1
}
set ::padls 20
set ::padlx 15
set ::padly 15
if {$::typetlf} {
wm attributes . -fullscreen 1
#Логотип продуктв
scaleImage logo_product 2
set ::padls 50
set ::padlx 75
set ::padly 50
} else {
#Конфигурирование виджета под смартфон
set ::scrwidth 370
set ::scrheight 700
wm minsize . $::scrwidth $::scrheight
set geometr $::scrwidth
append geometr "x"
append geometr $::scrheight
append geometr "+0+0"
wm geometry . $geometr
}
#Грузим картинки
image create photo voda -file [file join $mydir "imageme" "voda_400x800.png"]
#Логотип продукта
image create photo logo_product -file [file join $mydir "imageme" "validcertkey_51x24.png"] 
#Создаем название продукта
set name_product "CryptoArmPKCS-A" 
label .labtitul -image logo_product -compound left -fg snow -text $name_product -font {Arial 10 bold} -anchor w  -width [winfo screenwidth .] -pady $::padls -padx 10 -bg #222222 
pack .labtitul -anchor nw -expand 0 -fill x -side top  -padx 1 -pady 0
#Создаем страницы с функционалом
set i 1
ttk::frame .fr$i -pad 0 -padding 0
#Кнопки основного меню
set but(0) "Стартовая страница" 
set but(1) "Подписать документ"
set but(2) "Работаем с ЭП (PKCS7)" 
set but(3) "Запрос на сертификат" 
set but(4) "Просмотр запроса/сертификата" 
set but(5) "Список криптомеханизмов"
set but(6) "Просмотр ASN1-структуры" 
set but(7) "Объекты токена" 
set but(8) "Работаем с PKCS12/PFX" 
set but(9) "Самоподписанный сертификат"
set but(10) "Об Утилите/Дистрибутивы" 
set but(11) "Создать Токены"
set but(12) "Конфигурировние токена"
if {$::typetlf} {
scaleImage voda 3 2
}
#Создаем страницу с функционалом
page_func ".fr$i" voda "Функционал" "but"
#Отображаем страницу с функционалом
pack .fr$i -side top -anchor center -expand 1 -fill both -side top  -padx 0 -pady 0 

ស្គ្រីបនេះក៏រៀបចំចន្លោះទំនេរសម្រាប់ប៊ូតុងមុខងារនីមួយៗ៖

ចន្លោះ​ទទេ​ត្រូវ​បាន​បំពេញ​ដោយ​ធាតុ​ក្រាហ្វិក​បុរាណ និង​តាម​ប្រធានបទ (labelframe ប៊ូតុង។ល។)។ ចន្លោះទទេមួយក្នុងចំណោមចន្លោះទាំងនេះអាចមើលឃើញនៅក្នុងរូបថតអេក្រង់ដំបូងនៅខាងស្តាំ។ ចាប់តាំងពីនៅដំណាក់កាលដំបូង យើងបានផ្តោតលើការធ្វើការជាមួយកុងតឺន័រ PKCS#12 លេខកូដត្រូវបានប្រើប្រាស់ស្ទើរតែមិនផ្លាស់ប្តូរសម្រាប់ cryptoarmpkcs-A។ នៅដំណាក់កាលនេះ មុខងារខាងក្រោមត្រូវបានអនុវត្ត៖

• ចុះហត្ថលេខាលើឯកសារ (Cades-BES, CAdes-T, CAdes-XLT1);
• យើងធ្វើការជាមួយហត្ថលេខាអេឡិចត្រូនិក (PKCS7) រួមទាំងការបន្ថែមអ្នកចុះហត្ថលេខា។
• មើលការស្នើសុំវិញ្ញាបនបត្រ/វិញ្ញាបនបត្រ៖

  

• យើងធ្វើការជាមួយ PKCS12/PFX;
• អំពីឧបករណ៍ប្រើប្រាស់/ការចែកចាយ៖

  

មុខងារដែលនៅសល់គឺទាក់ទងនឹង PKCS#11 tokens។ ច្រករបស់ពួកគេត្រូវបានពន្យារពេលរហូតដល់ឆ្នាំថ្មី។ វា​ត្រូវ​បាន​គេ​គ្រោង​ដើម្បី​តភ្ជាប់​សញ្ញា​សម្ងាត់​កម្មវិធី​និង​ការ​តភ្ជាប់​ទៅ​ និមិត្តសញ្ញាពពក.

តាមទស្សនៈមុខងារ អ្វីៗស្ទើរតែទាំងអស់គឺស្រដៀងនឹងឧបករណ៍ប្រើប្រាស់ cryptoarmpkcs ។ ប៉ុន្តែមានភាពខុសគ្នាខ្លះ។ ឧទាហរណ៍ បន្ទាប់ពីចុះហត្ថលេខាលើឯកសារ ឧបករណ៍ប្រើប្រាស់សួរថាតើហត្ថលេខានឹងត្រូវបានផ្ទៀងផ្ទាត់នៅលើគេហទំព័រសេវារដ្ឋ៖

នៅពេលអ្នកចុចប៊ូតុង "បាទ / ចាស" កម្មវិធីរុករកនឹងផ្ទុកជាមួយទំព័រសម្រាប់ផ្ទៀងផ្ទាត់ហត្ថលេខានៃឯកសារ និងវិញ្ញាបនបត្រ។ សូមធ្វើការកក់ទុកភ្លាមៗថាទំព័រនេះពិតជាមិនត្រូវបានរចនាឡើងសម្រាប់អេក្រង់ស្មាតហ្វូននោះទេ។ វានឹងអាចកត់សម្គាល់បាននៅពេលជ្រើសរើសហត្ថលេខា ហើយប្រសិនបើហត្ថលេខាត្រូវបានផ្ដាច់ ឯកសារដែលមានឯកសារ។ ប៉ុន្តែប្រសិនបើអ្វីៗទាំងអស់ល្អ នោះយើងនឹងទទួលបានលទ្ធផលវិជ្ជមាន៖

វាគួរតែត្រូវបានចងចាំក្នុងចិត្តថា ការត្រួតពិនិត្យទាំងហត្ថលេខា និងវិញ្ញាបនបត្រនៅលើគេហទំព័រសេវារដ្ឋ ធ្វើឱ្យយល់បាន លុះត្រាតែទទួលបានវិញ្ញាបនបត្រនៅមជ្ឈមណ្ឌលវិញ្ញាបនប័ត្រដែលមានការទទួលស្គាល់ (УЦ) បើមិនដូច្នោះទេ ហត្ថលេខានឹងមិនត្រឹមត្រូវជានិច្ច។

ដើម្បី​ហៅ​ទៅ​កម្មវិធីរុករកតាមអ៊ីនធឺណិត ខ្ញុំ​ត្រូវ​បន្ថែម​ពីរ​ជួរ​ទៅ​ក្នុង​ដំណើរ​ការ OpenUrl៖

proc openURL {url} {
global typesys
global macos
#  global windowsOS
#проверка, что утилита выполняется на смартфоне Android
if {$::typetlf} {
#Запуск браузера
borg activity android.intent.action.VIEW $url text/html
return
}
. . .
}

កម្មវិធីរុករកនៅលើប្រព័ន្ធប្រតិបត្តិការ Android ត្រូវបានគេហៅថាដូចខាងក្រោម:

borg activity android.intent.action.VIEW <URL> text/html

មានភាពពិសេសតូចមួយនៅពេលបន្ថែមអ្នកចុះហត្ថលេខាថ្មីទៅឯកសារដែលបានចុះហត្ថលេខាពីមុន។ វិញ្ញាបនបត្ររបស់អ្នកចុះហត្ថលេខាថ្មី (ឬសូម្បីតែកុងតឺន័រ PKCS#12 ដែលមានវិញ្ញាបនបត្រ និងសោឯកជន) ត្រូវតែជ្រើសរើសជាមុននៅលើទំព័រ "ចុះហត្ថលេខាលើឯកសារ" ឬ "ធ្វើការជាមួយ PKCS12/PFX" ដែលឧបករណ៍ប្រើប្រាស់នឹងរំលឹកអ្នកអំពី :

ក្នុងអំឡុងពេលប្រតិបត្តិការរយៈពេលវែង នាឡិកានឹងបន្តគូស៖

អ្វីដែលនៅសេសសល់គឺត្រូវនិយាយកន្លែងដែលត្រូវទាញយកការចែកចាយពី និងអបអរសាទរអ្នកនៅឆ្នាំថ្មីខាងមុខនេះ ហើយសូមជូនពរអ្នកទាំងអស់គ្នាឱ្យជួបតែសំណាងល្អក្នុងឆ្នាំ 2020!

ដូច្នេះ ការចែកចាយសម្រាប់ Linux, OS X, Windows និង Android៖

• លីនុច ៤
• លីនុច ៤
• ប្រព័ន្ធប្រតិបត្តិការ X បាន
• វីន ៩៨
• វីន ៩៨
• AndroWishApp-debug.apk

ប្រភព: www.habr.com