ProHoster ➡ Բլոգ ➡ Ադմինիստրացում ➡ Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար

Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար

Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համարԺամանակն է ցուցադրել, թե ինչպես է աշխատում ստանդարտների վրա հիմնված հանրային բանալիների վրա հիմնված cryptographic ARM-ը cryptoarmpkcs մխմաններից մեկի, հատկապես Android-ի, վրա:

Կամուրջը, որը դրոշմվել է cryptoarmpkcs գործիքի մշակման ընթացքում, այն է, որ օգտագործողը պետք է խուսափի էլեկտրոնային ստորագրության ստեղծման և ստուգման գործընթացում հնարավոր անհարմարություններից: Այդ իսկ պատճառով մենք առաջարկում ենք անձնական վկայականի համար բանալիի կրիչի վիճակագրությամբ օգտագործել կրիպտոգրաֆիական թոկենները: PKCS#11 և/կամ ապահովված կոնտեյներները PKCS#12. Պետք է ասել, որ PKCS#12-ի օգտագործումը շատ դեպքերում գրեթե միակ հնարավոր տարբերակն է, օրինակ, երբ PKCS#11-ի նույն պոռթկումները բացակայում են որոշակի հարթակներում: Իսկ մենք որոշեցինք սկսել cryptoarmpkcs գործիքի պորտավորումը Android հարթակին PKCS#12-ի ապահովված կոնտեյներների աջակցությամբ:

Շուտով նշենք, որ քանի որ նախագիծը իրականացվել է C և Tcl/Tk հարթակներում, ապա պորտավորումը որևէ սկզբունքային դժվարություն չէր առաջացնում: Դա դարձավ հնարավոր նաև Androwish տեխնոլոգիայի շնորհիվ: Androwish. Այնտեղի տարածման և համապատասխանություն չունեցող միջավայրի առանձնապես խնդիրներ չհայտնվեցին (իմ աշխատանքային միջավայրն է Linux — Mageia-7.0). Ես ներկայացնելու եմ մեկ սցենար, որը նվիրում է 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"

Ամենաընդունվածը մի բան է, որ Androwish միջավայրն ունի երկու մեկնարկային հավանություն՝ undrowish-xxx և vanillawish-xxx, որոնք ամբողջությամբ նույնն են ըստ Androwish կազմի ``բալալայկաների`` (փաթեթների) առումով: Undrowish և vanillawish-ի միջև տարբերությունը կայանում է նրանում, որ vanillawish-ով բեքենդը հիմնված է SDL / AGG / freetype:

Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար

Այս երկու ծրագրակազմերի առկայությունը հնարավորություն է տալիս մշակել հավելվածը առանց Android-ի ու դրա էմուլյատորի օգտագործման՝ առավելագույն մոտեցումով իրական սարքին: Նախևառաջ, դա, իհարկե, undroidwish-xxx-ն է:

Ազդեցության օգտվողի փաթեթը կազմում է AWSDK միջավայրում: Ձեր նախագծի ծառը պետք է տեղափոխվի ~ / AWSDK / assets / app թղթապանակ: Այդ դեպքում ձեր նախագծի գլխավոր մոդուլը պետք է վերանվանվի main.tcl: Եթե օգտագործում եք լրացուցիչ բալալայկաներ դինամիկ գրադարաններով, ապա գրադարանները պետք է տեղադրվեն ~ / AWSDK / libs / x86 թղթապանակում էմուլյատորի համար եւ ~ / AWSDK / libs / armeabi իրական սարքի համար:

Հետո պարզապես հարկավոր է կատարել հրաման:

$wish ~ / AWSDK / tools / bones

և հետևել դրա ցուցումների:

Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար

Հավաքված apk-փաթեթը գտնվելու է ~ / AWSDK / build / outputs / apk թղթապանակում:

Եթե դուք միացրել եք իրական սարք կամ էմուլյատոր, ապա փաթեթը կարող է անմիջապես տեղադրվել:
Այս դեպքում իրական սարքը պետք է գտնվում լինի վերլուծության ռեժիմում:

Դեռ վերադառնայինք ինքնուրույն հավելվածին: Ինչպիսի փոփոխություններ էր պետք անել:

Բնականաբար, ամենից առաջ փոփոխությունները կապված են էկրանի չափերի հետ: Պետք էր նորից նախագծել գլխավոր (սկսնական) պատուհանը: Վերջ ի վերջո, տեղի ունեցավ, փոխարենը մեկ պատուհանի սովորական համակարգչում:

Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար

Ակտիվվեց երեք պատուհան Android-ում:

Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար

Առաջին պատուհանը տեղեկատվական է։ Ապշեցնող բանաձևով այն բաժանվում է մի քանի մասերի։ Առաջին մասը, որը գտնվում է վերևում, պարունակում է հարմարանքի անունը և նրա լոգոն։

Այնուհետև ցույց է տրվում արտադրողի լոգոն, տեղեկատվական հուշում, իսկ էջը ավարտվում է երեք կոճակներով։
Էջը գրված է canvas (հոլստ) բաղադրիչի օգտագործմամբ։ Էջում օգտագործվում են երկու տեսակի կոճակներ՝ մեկը կիսաթափանցիկ ուղղանկյունի տեսքով (միջինը), իսկ մյուս երկուսը` կոր ծայրերով ուղղանկյունի տեսքով։ Կոր ծայրերով կոճակների ստեղծմանը շահագործվել է «բալալայկա»։ tkpath. Ինձ վրա այս բալալայկան շատ լավ տպավորություն թողեց։ Բայցիներ, երբ աշխատում ես հոլստի (canvas) հետ, կոդի մեծ մասը զբաղեցնում է գեոմետրիան։ Ներքևում ներկայացված է 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]]
#Chargement des images
#Logo du produit
image create photo logo_product -file [file join $mydir "imageme" "validcertkey_51x24.png"] 
#Logo du fabricant
image create photo logo_orel -file [file join $mydir "imageme" "я_орел_425x200.png"] -format "png -alpha 1.0"
#Android avec tcl/tk
image create photo logo_and -file [file join $mydir "imageme" "AndTk_inv_147x173.png"] -format "png -alpha 1.0"
#Parchemin scellé
image create photo svitok -file [file join $mydir "imageme" "blue_svitok.png"] -format "png -alpha 1.0"
#Tuile
image create photo tileand -file [file join $mydir "imageme" "tile_green_and_32x32.png"] -format "png -alpha 1.0"
#Agrandir/réduire (valeur négative - réduction)
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
# Tapisser le canevas
 $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 ]
#Création d'un rectangle coloré
 $img put $fill -to 0 0 [expr {$x2 - $x1}] [expr {$y2 - $y1}]
#Enregistrement de l'image
 set dimg [$img data -format png]
#Créer une image en tenant compte du canal alpha
 image create photo $img -data $dimg -format "png -alpha $alfa"
# $img put [list $rgb1] -to 0 0 [expr {$x2 - $x1}] [expr {$y2 - $y1}]
#Affichage du rectangle coloré
 set imgr [$canv create image $x1 $y1 -image $img -anchor nw] 
 set cc [subst {butImg $img}]
 $canv bind $imgr  $cc
#Contour autour du rectangle coloré
 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 "Bouton" -icon info -message "Bouton pressé=$img" -detail "::screenwidth=$::scrwidthn::screenheight=$::scrheight" -parent .
 if {$img == "exit"} {
	set answer [tk_dialog .dialog2 "Fin du travail" "Voulez-vous vraiment quitter ?" question 0 "Oui" "Non" ]
	if {$answer == 0} {
 	 exit
	}	
 }
}

proc page_titul {fr logo_manufacturer} {
 global mydir
#Créer un canevas sur tout l'écran
 tkp::canvas $fr.can -borderwidth 0 -height [winfo screenheight .] -width [winfo screenwidth .] -relief flat
#Tapisser le canevas avec des tuiles 
 createtile "$fr.can" "tileand"
 pack $fr.can -anchor center -expand 1 -fill both -side top -padx 0 -pady 0
#Calculer les coordonnées pour le logo du fabricant
#update pour rafraîchir les informations dans la BDD sur les fenêtres
 update
# set aa [winfo height $fr.labtitul]
 set aa $::padly
#Centrer le logo du développeur
 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 "Signature électronique" -fill black -font {{Roboto Condensed Medium} 15 }
	$fr.can create text $dlx [expr {$wexit + $::padly}] -anchor nw -text "Signature électronique" -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 "pour la plateforme Android" -fill black -font {{Roboto Condensed Medium} 13}
	$fr.can create text $dlx [expr {$wexit + $::padly - 80}] -anchor nw -text "pour la plateforme 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 "N° 63 FZ "Sur la signature électronique du 6 avril 2011" -fill black -font {{Roboto} 10}
	$fr.can create text $dlx [expr {$wexit + $::padly - 50}] -anchor nw -text "N° 63 FZ "Sur la signature électronique du 6 avril 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 "Auteurs : V.N. Orlov http://soft.lissi.ru, http://www.lissi.run +7(495)589-99-53 e-mail : support@lissi.run" 
	-anchor nw -fill black -font {{Roboto} 9}
	$fr.can create text $dlx [expr {$wexit + $::padly - 40}] -text "Auteurs : V.N. Orlov http://soft.lissi.ru, http://www.lissi.run +7(495)589-99-53 e-mail : 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 "Signature électronique" -fill black -font {{Nimbus Sans Narrow} 20}
	$fr.can create text $::padlx [expr {$wexit + $::padly}] -anchor nw -text "Signature électronique" -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 "pour la plateforme Android" -fill black -font {{Nimbus Sans Narrow} 18}
	$fr.can create text $::padlx [expr {$wexit + $::padly - 20}] -anchor nw -text "pour la plateforme 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 "N° 63 FZ "Sur la signature électronique du 6 avril 2011" -fill black -font {{Nimbus Sans Narrow} 14}
	$fr.can create text $::padlx [expr {$wexit + $::padly}] -anchor nw -text "N° 63 FZ "Sur la signature électronique du 6 avril 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 "Auteurs : V.N. Orlov http://soft.lissi.ru, http://www.lissi.run +7(495)589-99-53 e-mail : support@lissi.run" 
	-anchor nw -fill black -font {{Nimbus Sans Narrow} 12}
	$fr.can create text $::padlx [expr {$wexit + $::padly}] -text "Auteurs : V.N. Orlov http://soft.lissi.ru, http://www.lissi.run +7(495)589-99-53 e-mail : 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"}
#Impression du texte
 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 "Site du développeur" -fill black -font {{Arial} 10 normal}] 
#Centrer le texte
 set btxt1 [$fr.can bbox $txt1]
#Décalage sur l'axe 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)}]
#Décalage sur l'axe 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"]
#Impression du texte
 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 "Accéder au menu principal" -fill black -font {{Roboto Condensed Medium} 12}] 
#Centrer le texte
 set btxt1 [$fr.can bbox $txt1]
#Décalage sur l'axe 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)}]
#Décalage sur l'axe 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 "Fin du travail" -fill black -font {Arial 10 normal}]
 $fr.can bind $txt1  {butImg "exit"}
 set btxt1 [$fr.can bbox $txt1]
#Décalage sur l'axe 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)}]
#Décalage sur l'axe 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
}
#Script principal
#Récupérer les dimensions de l'écran
set ::scrwidth [winfo screenwidth .]
set ::scrheight [winfo screenheight .]
set ::typetlf 0
#Vérifier si c'est un téléphone
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 du fabricant
	scaleImage logo_orel 2
#Logo du produit
	scaleImage logo_product 2
#Android tcl/tk
	scaleImage logo_and 3
#Parchemin scellé
	scaleImage svitok 4
	set ::padls 50
	set ::padlx 75
	set ::padly 50
} else {
#Configuration du widget pour smartphone
 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
}
#Créer le nom du produit
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
#Créer la page d'accueil
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 утилիտայի աջակցվող ֆունկցիաները: Ամեն տողը մի կButton է, որի վրա սեղմելու դեպքում ցուցադրվում է ֆունկցիոնալ էջ: Նիկոլադի կտեսքերի ձևավորումը սահմանվում է կիրառվող ֆոնտով: Ապրանքների ֆունկցիոնալ էջը ստեղծելու համար հետևյալ скрипտը՝ 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

Այս скрипտը նաև պատրաստում է ամբողջական ապացույցներ յուրաքանչյուր ֆունկցիոնալ կButton-ի համար:

Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար

Ամբողջացման ապացույցները կատարվում են դասական և թեմատիկ վիդջետներով (labelframe, button և այլն): Առաջին սարքում պատկերված է այս ի վերջո այսպես լրացված ապացույցներից մեկը: Որպեսզի սկզբնական փուլում կենտրոնանանք PKCS#12 կոնտեյնի հետ աշխատանքի վրա, կոդը գրեթե առանց փոփոխությունների օգտագործվեց cryptoarmpkcs-A-ի համար: Այս փուլում իրականացվել են հետևյալ ֆունկցիաները:

  • փաստաթղթի ստորագրում (Cades-BES, CAdes-T, CAdes-XLT1);
  • աշխատում ենք ԷՊ-ի հետ (PKCS7), այսպես նաև ստորագրողի ավելացվածը;
  • ըստ սերտիֆիկատների/սերտիֆիկատների հարցումների դիտում՝:

    Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար

  • աշխատում ենք PKCS12/PFX;
  • ամփոփագիր/Դուստրավարում:

    Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար

Մնացած ֆունկցիաները ավելի շատ կապված են PKCS#11 տոկենների հետ: Նրանց տեղափոխումը հետաձգվել է Նոր Տարիին: Կարծում ենք, ծրագրային տոկենը կշարունակում ենք հարամարվել դեպի տոկենների ամ Cloud.

Ֆունկցիայի տեսանկյունից գրեթե ամեն ինչ հարաբեր دارد cryptoarmpkcs утилիտային: Բայց կան առանձիչ տարբերակներ: Օրինակ, փաստաթուղթ ստորագրելուց հետո, утилիտան հարցնում է, ստորագրման հաստատումն արվե՞լ է Ազգայի կիրառման կայքում:

Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար
Այնուհետև, «Այո» կButton-ին սեղմման դեպքում բրաուզեր է բեռնում փաստաթղթի և սերտիֆիկատների ստորագրման վեճի էջը: Ըստ սերտիֆիկատների, կայքը լավագույն թեքությունից չի սպասվում: Ինչո՞ւ: Այս էջը չի միանշանակնված է սմարթֆոնի վրա: Սա տեսանելի կլինի ստորագրություն ընտրելուց և, եթե ստորագրությունը բաժանված է, փաստաթղթի ֆայլը: Բայց եթե ամեն ինչ ճիշտ է, ապա ստանում ենք դրական արդյունք:

Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար

Արձանագրում անհրաժեշտ է, որ ստորագրումը, ինչպես նաև սերտիֆիկատը Ազգային կայքում նկարել է միայն, եթե սերտիֆիկատը ձեռք է բերվել հավաստագրված վավերական հաստատությունում (ՎՀ). Այլ դեպքում ստորագրությունը միշտ կլինի անվավեր:

Բրաուզեր մտնելու համար ստիպված եղանք ավելացնել մի քանի տող 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  text/html

Նոր ստորագրողի ավելացման փոքր առանձնահատկություն կա նախկինում ստորագրված փաստաթղթի հետ: Նոր ստորագրողի սերտիֆիկատը (ճիշտ է, PKCS#12 տոպրակը, որը պարունակում է սերտիֆիկատը և փակ բանալին) պետք է նախապես ընտրված լինի «Փաստաթուղթ ստորագրել» կամ «Անհրաժեշտ է PKCS12/PFX»-ի էջում, ինչի մասին ծրագիրը կհիշեցնի:

Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար
Բարձր երկարատև գործողություններում, ինչպես նախկինում, կվազեն ժամեր:

Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համար
Մնացել է ասել, թե որտեղից ներլցնել դիստրիբուտիվները և շնորհավորել Նոր տարվա կապակցությամբ, և ցանկանալ բոլորին ամենալավը 2020 թվականին:

Կրիպտոգրաֆիական ARM բարձրացվող ստանդարտների հիման վրա Android հարթակի համարԵկեք հասկանանք, դիստրիբուտիվները Linux, OS X, Windows և Android-ի համար:

Ընտանիք: habr.com

Գնել հուսալի հյուրընկալում DDoS պաշտպանությամբ, VPS VDS սերվերներով 🔥 Գնել հուսալի հյուրընկալում DDoS պաշտպանությամբ, VPS VDS սերվերներով | ProHoster