Došlo je vrijeme da pokažemo kako kriptografski AARM temeljen na standardima s javnim ključem radi na jednoj od mobilnih platformi, konkretno Androidu.
Koncept koji je postavljen tijekom razvoja alata cryptoarmpkcs sastoji se u tome da korisnik treba doživjeti minimalne neugodnosti prilikom stvaranja i provjere elektroničkog potpisa. Iz tog razloga predlažemo korištenje kriptografskih tokena kao ključnog nosača za osobni certifikat. i/ili zaštićenih kontejnera . Moram reći da korištenje PKCS#12 u mnogim slučajevima postaje gotovo jedina mogućnost, na primjer, kada isti tokeni PKCS#11 nemaju podršku za određene platforme. Stoga smo odlučili započeti portiranje alata cryptoarmpkcs na Android platformu podrškom za zaštićene kontejnere PKCS#12.
Odmah napominjemo da, budući da je projekt rađen na C i Tcl/Tk platformi, portiranje nije izazvalo nikakve suštinske poteškoće. To je također postalo moguće zahvaljujući tehnologiji . Upravljao sm i nije bilo problema (moje radno okruženje je Linux — Mageia-7.0). Dati ću samo jedan skript za postavljanje Android Command Line Tools (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" Najzanimljivije je da u Androwishu postoje dva interpretera undrowish-xxx i vanillawish-xxx, koja su potpuno identična po sastavu "balalajki" (paketa) koji su u samom Androwishu. Razlika između undrowish i vanillawish je u tome što vanillawish ima backend temeljen na SDL / AGG / freetype:
Prisutnost ovih dviju alatki omogućuje razvoj aplikacije bez korištenja samog Androida i njegovog emulatora uz maksimalnu bliskost stvarnom uređaju. Prije svega, to je naravno undroidwish-xxx.
Sama korisnička armatura za Android sastavlja se u okruženju AWSDK. Drvo vašeg projekta treba biti premješteno u mapu ~/AWSDK/assets/app. Pri tome bi glavni modul vašeg projekta trebao biti preimenovan u main.tcl. Ako koristite dodatne "balalajke" s dinamičkim bibliotekama, knjižnice trebate smjestiti u mape ~/AWSDK/libs/x86 za emulator i ~/AWSDK/libs/armeabi za stvarni uređaj.
Nakon toga dovoljno je izvršiti naredbu:
$wish ~/AWSDK/tools/bonesi slijediti njegove upute:
Sakupljeni apk paket bit će pohranjen u mapu ~/AWSDK/build/outputs/apk.
Ako imate povezano stvarno uređaj ili emulators, paket se može odmah instalirati.
Pri tome, stvarni uređaj mora biti u načinu za otklanjanje grešaka.
No, vratimo se na samu aplikaciju. Što je sve trebalo promijeniti?
Naravno, prije svega, promjene su povezane s veličinama ekrana. Moralo je biti redizajnirano glavno (početno) okno. Kao rezultat, umjesto jednog prozora na običnom računalu:
Pojavila su se tri prozora na Androidu:
Prvi prozor je informativan. Uvjetno, može se podijeliti na nekoliko dijelova. Prvi dio, smješten na vrhu, sadrži ime alata i njegov logotip.
Slijedi logotip proizvođača, informativna pomoć i završava stranicu tri gumba.
Stranica je napisana koristeći komponentu canvas. Na stranici se koriste gumbi dviju vrsta: jedan u obliku poluprozirnog pravokutnika (srednji), a dva druga u obliku pravokutnika s zaobljenim kutovima. Za stvaranje gumba s zaobljenim kutovima korištena je "balalayka" . Osobno je na mene ta balalayka ostavila vrlo dobar dojam. Naravno, prilikom rada s platnom (canvas), većinu koda čini geometrija. Ispod se nalazi skripta create_titul_page.tcl za izradu prve stranice aplikacije. Svaki zainteresirani može je urediti prema svom viđenju.
Skripta create_titul_page.tcl
package require Tk
package require tkpath 0.3.0
global mydir
set mydir [file dirname [info script]]
#Učitavanje slika
#Logo proizvoda
image create photo logo_product -file [file join $mydir "imageme" "validcertkey_51x24.png"]
#Logo proizvođača
image create photo logo_orel -file [file join $mydir "imageme" "ja_orao_425x200.png"] -format "png -alpha 1.0"
#Android s tcl/tk
image create photo logo_and -file [file join $mydir "imageme" "AndTk_inv_147x173.png"] -format "png -alpha 1.0"
#Zapečaćeni svitak
image create photo svitok -file [file join $mydir "imageme" "blue_svitok.png"] -format "png -alpha 1.0"
#Kamen
image create photo tileand -file [file join $mydir "imageme" "tile_green_and_32x32.png"] -format "png -alpha 1.0"
#Uvećati/smanjiti (negativna vrednost - smanjenje)
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
# Spajanje platna
$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 "#xxx" $cr $cg $cb ]
#Stvaranje obojenog pravougaonika
$img put $fill -to 0 0 [expr {$x2 - $x1}] [expr {$y2 -$y1}]
#Čuvanje slike
set dimg [$img data -format png]
#Stvaranje slike sa alpha kanalom
image create photo $img -data $dimg -format "png -alpha $alfa"
# $img put [list $rgb1] -to 0 0 [expr {$x2 - $x1}] [expr {$y2 - $y1}]
#Prikazivanje obojenog pravougaonika
set imgr [$canv create image $x1 $y1 -image $img -anchor nw]
set cc [subst {butImg $img}]
$canv bind $imgr $cc
#Ograda oko obojenog pravougaonika
if {$wbd > 0} {
set item [$canv create rect $x1 $y1 $x2 $y2 -outline $colorline -width $wbd]
$canv bind $item $cc
}
return $imgr
}
proc butImg {img} {
tk_messageBox -title "Dugme" -icon info -message "Pritisnuto dugme=$img" -detail "::screenwidth=$::scrwidthn::screenheight=$::scrheight" -parent .
if {$img == "exit"} {
set answer [tk_dialog .dialog2 "Kraj rada" "Da li zaista želite da izađete?" question 0 "Da" "Ne"]
if {$answer == 0} {
exit
}
}
}
proc page_titul {fr logo_manufacturer} {
global mydir
#Stvaranje platna na celoj ekranu
tkp::canvas $fr.can -borderwidth 0 -height [winfo screenheight .] -width [winfo screenwidth .] -relief flat
#Spajanje platna pločom
createtile "$fr.can" "tileand"
pack $fr.can -anchor center -expand 1 -fill both -side top -padx 0 -pady 0
#Računanje koordinata za logo proizvođača
#update da bi se ažurirale informacije u bazi podataka o prozorima
update
# set aa [winfo height $fr.labtitul]
set aa $::padly
#Centriranje loga programera
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 "Elektronski potpis" -fill black -font {{Roboto Condensed Medium} 15}
$fr.can create text $dlx [expr {$wexit + $::padly}] -anchor nw -text "Elektronski potpis" -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 "za Android platformu" -fill black -font {{Roboto Condensed Medium} 13}
$fr.can create text $dlx [expr {$wexit + $::padly - 80}] -anchor nw -text "za Android platformu" -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 "Br. 63 Zakon "O elektronskom
potpisu od 6. aprila 2011. godine" -fill black -font {{Roboto} 10}
$fr.can create text $dlx [expr {$wexit + $::padly - 50}] -anchor nw -text "Br. 63 Zakon "O elektronskom
potpisu od 6. aprila 2011. godine" -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 "Autori: V.N. Orlov
http://soft.lissi.ru, http://www.lissi.run +7(495)589-99-53
Email: support@lissi.run"
-anchor nw -fill black -font {{Roboto} 9}
$fr.can create text $dlx [expr {$wexit + $::padly - 40}] -text "Autori: V.N. Orlov
http://soft.lissi.ru, http://www.lissi.run +7(495)589-99-53
Email: support@lissi.run"
-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 "Elektronski potpis" -fill black -font {{Nimbus Sans Narrow} 20}
$fr.can create text $::padlx [expr {$wexit + $::padly}] -anchor nw -text "Elektronski potpis" -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 "za Android platformu" -fill black -font {{Nimbus Sans Narrow} 18}
$fr.can create text $::padlx [expr {$wexit + $::padly - 20}] -anchor nw -text "za Android platformu" -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 "Br. 63 Zakon "O elektronskom
potpisu od 6. aprila 2011. godine" -fill black -font {{Nimbus Sans Narrow} 14}
$fr.can create text $::padlx [expr {$wexit + $::padly}] -anchor nw -text "Br. 63 Zakon "O elektronskom
potpisu od 6. aprila 2011. godine" -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 "Autori: V.N. Orlov
http://soft.lissi.ru, http://www.lissi.run +7(495)589-99-53
Email: support@lissi.run"
-anchor nw -fill black -font {{Nimbus Sans Narrow} 12}
$fr.can create text $::padlx [expr {$wexit + $::padly}] -text "Autori: V.N. Orlov
http://soft.lissi.ru, http://www.lissi.run +7(495)589-99-53
Email: support@lissi.run"
-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 {butImg "img1"}
#Ispisujem tekst
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 "Web stranica programera" -fill black -font {{Arial} 10 normal}]
#Centriranje teksta
set btxt1 [$fr.can bbox $txt1]
#Pomak po osi 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)}]
#Pomak po osi 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 {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"]
#Ispisujem tekst
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 "Prelazak na glavni meni" -fill black -font {{Roboto Condensed Medium} 12}]
#Centriranje teksta
set btxt1 [$fr.can bbox $txt1]
#Pomak po osi 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)}]
#Pomak po osi 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 {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 {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 "Kraj rada" -fill black -font {Arial 10 normal}]
$fr.can bind $txt1 {butImg "exit"}
set btxt1 [$fr.can bbox $txt1]
#Pomak po osi 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)}]
#Pomak po osi 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
}
#Skripta
#Čitamo dimenzije ekrana
set ::scrwidth [winfo screenwidth .]
set ::scrheight [winfo screenheight .]
set ::typetlf 0
#Proveravamo da li je telefon
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
#Logo proizvođača
scaleImage logo_orel 2
#Logo proizvoda
scaleImage logo_product 2
#Android tcl/tk
scaleImage logo_and 3
#Zapečaćen svitak
scaleImage svitok 4
set ::padls 50
set ::padlx 75
set ::padly 50
} else {
#Konfiguracija vidžeta za pametni telefon
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
}
#Stvaranje imena proizvoda
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
#Stvaranje početne stranice
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
updateZa izvršenje ovog skripta koristimo jedan od alata undroidwish ili vanillawish:
$ /usr/local/bin64/undroidwish-e5dc71ed9d-linux64 create_titul_page.tcl ili
$/usr/local/bin64/vanillawish-e5dc71ed9d-linux64 create_titul_page.tcl Rezultat je prikazan na prvom screenshotu.
Na drugoj stranici navedena je funkcionalnost koju podržava alat cryptoarmpkcs-A. Svaki redak je gumb, a pritiskom na njega bit će prikazana funkcionalna stranica. Geometrija rasporeda gumba na ovoj stranici određena je fontom koji se koristi. Ispod je skript create_page_functions.tcl za izradu druge/funkcionalne stranice aplikacije. Svatko zainteresiran može ga urediti za svoje funkcije.
Skript 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 Ovaj skript također priprema predloške za svaki funkcijski gumb:
Punjenje predložaka vrši se klasičnim i tematskim widgetima (labelframe, button itd.). Jedan od takvih popunjenih predložaka može se vidjeti na prvom screenshotu s desne strane. Budući da smo se u prvom koraku fokusirali na rad s PKCS#12 kontejnerom, kod je gotovo bez promjena korišten i za cryptoarmpkcs-A. U ovoj fazi realizirane su sljedeće funkcije:
- potpisivanje dokumenta (Cades-BES, CAdes-T, CAdes-XLT1);
- rad s EP (PKCS7), uključujući dodavanje potpisnika;
- pregled certifikata/zahteva za certifikate:
- rad s PKCS12/PFX;
- o alatu/Distribucije:
Ostale funkcije su više povezane s PKCS#11 tokenima. Njihovo portiranje odgođeno je za Novu Godinu. Planira se povezivanje softverskog tokena i povezivanje s .
S aspekta funkcionalnosti gotovo je sve analogno alatu cryptoarmpkcs. No postoje određene razlike. Na primjer, nakon potpisivanja dokumenta, alat pita hoće li potpis biti provjeren na stranici Državnih usluga:
Pritiskom na gumb 'Da' otvorit će se preglednik s stranicom za provjeru potpisa dokumenata i certifikata. Odmah napominjemo da ova stranica nije baš prilagođena za ekran pametnog telefona. To će biti očito pri odabiru potpisa i, ako je potpis odvojeno, datoteke s dokumentom. No, ako je sve u redu, dobit ćemo pozitivan rezultat:
Treba imati na umu da provjera kako potpisa, tako i certifikata na stranici Državnih usluga ima smisla samo ako je certifikat dobiven u akreditiranom certifikacijskom centru (). U suprotnom, potpis će uvijek biti nevažeći.
Za pokretanje preglednika bilo je potrebno dodati nekoliko redaka u proceduru openUrl:
proc openURL {url} {
global typesys
global macos
# global windowsOS
#provjera, da li se alat izvršava na Android pametnom telefonu
if {$::typetlf} {
#Pokretanje preglednika
borg activity android.intent.action.VIEW $url text/html
return
}
. . .
}Preglednik na Androidu se poziva na sljedeći način:
borg activity android.intent.action.VIEW text/html
Postoji mala posebnost prilikom dodavanja novog potpisnika prethodno potpisanom dokumentu. Certifikat novog potpisnika (točnije, čak i PKCS#12 kontejner s certifikatom i privatnim ključem) mora biti unaprijed odabran na stranici „Potpiši dokument“ ili „Radeći s PKCS12/PFX“, o čemu će alat podsjetiti:
Prilikom dugotrajnih operacija, kao i prije, će proći sati:
Ostaje reći odakle preuzeti distribucije i čestitati na nadolazećoj Novoj Godini te poželjeti svima sve najbolje u 2020. godini!
Dakle, distribucije za Linux, OS X, Windows i Android:
Izvor: habr.com
