Overview
| Comment: | Fixed padding conditions |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | b63163f5275aa02463a818e853252be9d32a6f0a |
| User & Date: | rkeene on 2019-08-09 01:34:11 |
| Other Links: | manifest | tags |
Context
|
2019-11-13
| ||
| 14:59 | Corrected license check-in: 480596d8cb user: rkeene tags: trunk | |
|
2019-08-09
| ||
| 01:34 | Fixed padding conditions 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\",
|