Check-in [b63163f527]
Overview
Comment:Fixed padding conditions
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA1:b63163f5275aa02463a818e853252be9d32a6f0a
User & Date: rkeene on 2019-08-09 01:34:11
Other Links: manifest | tags
Context
2019-08-09
01:34
Fixed padding conditions Leaf check-in: b63163f527 user: rkeene tags: trunk
2019-08-08
16:52
Added softokn3 wrapper module check-in: 3eb54f93b1 user: rkeene tags: trunk
Changes

Modified build/tcl/ssh-agent.tcl from [3e65cda43f] to [183583332c].

50
51
52
53
54
55
56


57
58
59
60
61
62
63


64
65
66
67
68
69
70
			set cert [::pki::x509::parse_cert $cert]
		}]} {
			return ""
		}

		set e [format %llx [dict get $cert e]]
		set n [format %llx [dict get $cert n]]


		if {[string length $e] % 2 != 0} {
			set e "0$e"
		}
		if {[string length $n] % 2 != 0} {
			set n "0$n"
		}
		if {[string length $n] % 4 == 0} {


			set n "00$n"
		}

		set retval "\{
			\"publicKey\": \{
				\"type\":\"[string toupper [dict get $cert type]]\",
				\"e\":\"$e\",







>
>






|
>
>







50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
			set cert [::pki::x509::parse_cert $cert]
		}]} {
			return ""
		}

		set e [format %llx [dict get $cert e]]
		set n [format %llx [dict get $cert n]]

		# Pad to even size for hex width
		if {[string length $e] % 2 != 0} {
			set e "0$e"
		}
		if {[string length $n] % 2 != 0} {
			set n "0$n"
		}

		# Add a leading zero if the value is high enough
		if {"0x[string range $n 0 1]" > 0x7f} {
			set n "00$n"
		}

		set retval "\{
			\"publicKey\": \{
				\"type\":\"[string toupper [dict get $cert type]]\",
				\"e\":\"$e\",