FEAT: register *.key suffix for SSH keys

Author: Oldes

src/mezz/codec-ssh-key.reb

@@ -30,7 +30,7 @@ wrap [
 	register-codec [
 		name: 'ssh-key
 		title: "Secure Shell Key"
-		; not using suffixes as there is no standard!
+		suffixes: [%.key]
 
 		decode: function [
 			"Decodes and initilize SSH key"
@@ -88,8 +88,8 @@ wrap [
 					all [
 						parse data [
 							'SEQUENCE into [
-								'SEQUENCE   set v    block!  ; AlgorithmIdentifier 
-								'BIT_STRING set data binary! ; PublicKey
+								'SEQUENCE   set v:    block!  ; AlgorithmIdentifier 
+								'BIT_STRING set data: binary! ; PublicKey
 								(
 									data: codecs/der/decode data
 								)
@@ -98,8 +98,8 @@ wrap [
 						v/OBJECT_IDENTIFIER = #{2A864886F70D010101} ;= rsaEncryption
 						parse data [
 							'SEQUENCE into [
-								'INTEGER set n   binary! ;modulus        
-								'INTEGER set e   binary! ;publicExponent 
+								'INTEGER set n:   binary! ;modulus        
+								'INTEGER set e:   binary! ;publicExponent 
 							]
 						]
 					]
@@ -110,8 +110,8 @@ wrap [
 					; resolve RSA public data from the DER structure (PKCS#1)
 					parse data [
 						'SEQUENCE into [
-							'INTEGER set n   binary! ;modulus        
-							'INTEGER set e   binary! ;publicExponent 
+							'INTEGER set n:   binary! ;modulus        
+							'INTEGER set e:   binary! ;publicExponent 
 						]
 					]
 					; resolve RSA handle from parsed data
@@ -121,15 +121,15 @@ wrap [
 					; resolve RSA private data from the DER structure (PKCS#1)
 					parse data [
 						'SEQUENCE into [
-							'INTEGER set v   binary! ;version
-							'INTEGER set n   binary! ;modulus        
-							'INTEGER set e   binary! ;publicExponent 
-							'INTEGER set d   binary! ;privateExponent
-							'INTEGER set p   binary! ;prime1         
-							'INTEGER set q   binary! ;prime2         
-							'INTEGER set dp  binary! ;exponent1       d mod (p-1)
-							'INTEGER set dq  binary! ;exponent2       d mod (q-1)
-							'INTEGER set inv binary! ;coefficient     (inverse of q) mod p
+							'INTEGER set v:   binary! ;version
+							'INTEGER set n:   binary! ;modulus        
+							'INTEGER set e:   binary! ;publicExponent 
+							'INTEGER set d:   binary! ;privateExponent
+							'INTEGER set p:   binary! ;prime1         
+							'INTEGER set q:   binary! ;prime2         
+							'INTEGER set dp:  binary! ;exponent1       d mod (p-1)
+							'INTEGER set dq:  binary! ;exponent2       d mod (q-1)
+							'INTEGER set inv: binary! ;coefficient     (inverse of q) mod p
 							to end
 						]
 						to end

src/tests/units/files/rebol-private-no-pass.key

@@ -0,0 +1,27 @@
+-----BEGIN RSA PRIVATE KEY-----
+MIIEoQIBAAKCAQEA8mjwC6ZCwpQCnDXqU7g2tyvMFoWpJV+myfBz9zbhw7rHxUmF
+ubMtEwCKQhYccQxbPCcWu/KIg5TOhmcf9RK1xIuUrOUiUdM8uOwRS+e5kitTUgux
+/wjyMNlpK5laIS1hFHiFhCxecN7Won3bsPDMm5Wi3dBMv1+1jK1rlDtJYxDDcJE2
+T59m1UI4AN/Pm7dndr11yCmUdKy6VACf5V7u4OX5uC3fsTEuCV1P2WwLBqtZMYG3
+jjzuRTana+s8n2TXk5D9lXoPMc7Tj4/aSw50UUAYhmVpie/8vtVwA7MhOCA4us6q
+3+Mx07vq8EmzbLOGtP9taXQkDF6JR6wY4IEXBwIBJQKCAQAaNNuuO3zWw+SbRBlV
+KKv4IGkXMQtd/IC74qTAx6m0S4s37EXO4vAdut6Dr10FTXGlo1xnWH12Aj/XLb5E
+AgXQDxb970H7AhRnBMOZgNXKnOZpvBM+KnsMMy324CVrXtoQDQeD6R73cgldrL3N
+8ITSjLepRvOKT4k/pAuhUoR5aWK3vZ7+o2xrgG9LSYdaTvSmVQbP0p+Z0vksJjfp
+WAzqOuqMCyviZoUmfHyKcbnsgdZVlYCFdUpXBLLf2lpmLXYGFvW6kSA6gdUUi/kh
+vD2ldZ6bZXm2DgQGMIdt2X2Qd3VwDMhNnKr/4qNZDNlJ4Y9lK3EjvCdl2ot5uFae
+l3FNAoGBAP2AxslebLmhbVLNFikTYVUUr3nhRsVbC/V0Tem0LG4WejVYDdjeZFYk
+Z5h7PM36PVfMpzSsSZMHhl1kCgRtgJYxMndHTPEcUxaAmFnbt/fKzRCY9QO01tk7
+9JGyz3JobiaiL5RCvxGVHzzay8BecuAsPDqTJVUuJuo9IPTYotK1AoGBAPTMMG49
+ywJRcN+7YYKE+7tfe3zkhorKwUQHUTECxAlTysrQuLDkmIhA9jddk0VAvQLNM54P
+dmuYxNNxPXQAv72qCiVQbrP4SsoQ6L/3SUJL8wzQBcABF35Jn/mYx+VXYRPMKNnP
+OvJ/rEcdxxki2jgg8VxLwmJwEhTkogLM5WxLAoGAIkHVrIJhuDhouCmNX38o1CVj
+0jMzE8AyDGmpqfXA0JtA8nOu2B4NjxmtInGEweOLv8G1uwKGe6cSKEvKAJktDWCY
+HfTg4k/vjWtS27XobZfyMqzi1vzDFm/ix5S0P+SZQ32zZw/wTnvvdu0ic/EWcVIV
++hPic0ttCuWqgfPC+eECgYBcoEmtLCNM/DiMAbYxYsAdYmYTlL1JRcyWR/U1I6Qf
+NHY+5zEgVn7ncoatKlNmT9jQoKu/RB74R6Rrrk6amH/m5mS0LEWQNG9TYFgRSM+c
+i3C4vWn1n4xZTEpecSkKq3DXDvqzR34WkSxt75dxS3Up/qCDyaN/MVLzJhPJtU/j
+yQKBgQDhprd4FKjN15L3IJFjPi8UruQBjulZMi4wjJSPPE0LIWI+pbFVk8VghC2z
+Qpnl2IrjbB3AV9PUKC6q+SQQDA38nUv0yriDdZgo/J5+PDxRvZXH+9ojQyoAfbol
+tt3RgGsAWb5pU7lnptsViWQppVk2L+QDgvU2AUW9Pw6xJRGAtQ==
+-----END RSA PRIVATE KEY-----

src/tests/units/rsa-test.r3

@@ -120,5 +120,15 @@ Rebol [
 	; cleanup:
 	rsa public-key none
 	rsa private-key none
+===end-group===
+
+===start-group=== "RSA initialization from file"
+	--test-- "RSA private key from OpenSSL format"
+	--assert handle? try [private-key: load %units/files/rebol-private-no-pass.key]
+	; cleanup:
+	rsa private-key none
+===end-group===
+
+
 
 ~~~end-file~~~