community
/
dns
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
dns/parse_test.go

91 lines
4.0 KiB
Go
Raw Normal View History

make the parsing compile - complete unusable atm
2011-01-15 13:40:54 +00:00
package dns
First stab for strconv This will later be extended to be a real parser. Applied assorted tweaks
2010-12-30 19:00:26 +00:00
completely fix private key reading
2011-01-17 19:18:51 +00:00
import ( "testing"; "fmt"; "crypto/rsa")
First stab for strconv This will later be extended to be a real parser. Applied assorted tweaks
2010-12-30 19:00:26 +00:00
func TestConversion(t *testing.T) {
/*
println(StringToSeconds("6w8d50"))
println(StringToSeconds("50"))
println(StringToSeconds("1m1m"))
println(StringToSeconds("1w"))
println(StringToSeconds("1d"))
println(StringToSeconds("2d"))
println(StringToSeconds("1d1d"))
*/
Parsing private key almost there
2011-01-16 16:43:41 +00:00
/*
First stab for strconv This will later be extended to be a real parser. Applied assorted tweaks
2010-12-30 19:00:26 +00:00
println(SecondsToString(604800)) // 1w
println(SecondsToString(604799)) // 1w-1
println(SecondsToString(86400)) // 1d
println(SecondsToString(86401)) // 1d+1
println(SecondsToString(86399)) // 1d-1
println(SecondsToString(86)) // 1m26
println(SecondsToString(60)) // 1m
println(SecondsToString(59)) // 59
Parsing private key almost there
2011-01-16 16:43:41 +00:00
*/
First stab for strconv This will later be extended to be a real parser. Applied assorted tweaks
2010-12-30 19:00:26 +00:00
}
more parsing: from private key file - not finished
2011-01-16 15:22:31 +00:00
Private key completely works. Can read BIND9 files
2011-01-17 18:52:28 +00:00
func TestPrivateKeyRead1(t *testing.T) {
more parsing: from private key file - not finished
2011-01-16 15:22:31 +00:00
a:=`Private-key-format: v1.3
Algorithm: 5 (RSASHA1)
Parsing .private files work - needs some cleaning up
2011-01-16 16:59:04 +00:00
Modulus: vyVjCzz87g3rg9vDj1NJ1tlFP7lEY2pEQLkWGXAFuZM6Fw/bNmEH/z3ybDfsJqx4QQ6YZXN8V2kbzY7oX+tExf6AMiMIcKYzEGwg5xBYFh33du4G+6kE/VzG906ubpaIEnrZOMTdGqE7OwptAqrqXe4uGXY99ZqNdqutOKQyIzs=
more parsing: from private key file - not finished
2011-01-16 15:22:31 +00:00
PublicExponent: AQAB
Parsing .private files work - needs some cleaning up
2011-01-16 16:59:04 +00:00
PrivateExponent: PFg/RoMAjt8SJVSyDoOK4itBs3Z34rLfzVchZPJ6vDWAt1soJ6jGb4xNBmE5SpRUeqVy80RcUvQ59NFTB0UtNo/zAXhC1RfKiFCNRFTyV3k6a9CMLPAU9g4peW91lw87HXnYALTC9bTiTAoMU3vKvNx80F5qfK7qY/N28S1PMeE=
more parsing: from private key file - not finished
2011-01-16 15:22:31 +00:00
Prime1: +vPWyp37iUa7/LbhejOX/KdkhfwECUCdJF0uEePjaBCSf85xceEBzU89JFk9dCojtVqcI8xLKnRKRixg07Rc+Q==
Prime2: wv2aVWr13Cq2vRkKiHlqqP9vihGuDN/kWfmXb7slJH3s2i9+yI7vepAlow9SY8lNHOqXibEaAFsP3aj5OAAS0w==
Exponent1: sChCenBzhWV1yGvH0zQsWFpYogTKAISuyjvufvhtRTt82uJbmAjObwRUcxOBo+2Aq2kzeZ2Klf6TtLaqMXHGYQ==
Exponent2: hXiKeAWrHXWveGj3qMtTkzKl6uCHPxDSgjQy0KxNlFkOE5uHMUmF62NYH/GQ9/UG79A0wm+T2MJ8bcIINaj3OQ==
Coefficient: xzZBvs2/IT7+iRQdn9I4slRTg9ryIecx7oKEKYTOEeyL2qq7rfY/FwZGy3EqyA/3lrkfFLx76qOeqAmCTUaU4w==
Created: 20101221142359
Publish: 20101221142359
Activate: 20101221142359`
k := new(RR_DNSKEY)
Add SRV and NAPTR record support
2011-01-17 09:30:20 +00:00
p,_ := k.PrivateKeySetString(a)
more parsing: from private key file - not finished
2011-01-16 15:22:31 +00:00
p = p
trying to set the pubkey from the private key
2011-01-16 17:37:29 +00:00
fmt.Printf("%v\n", k)
more parsing: from private key file - not finished
2011-01-16 15:22:31 +00:00
}
Private key completely works. Can read BIND9 files
2011-01-17 18:52:28 +00:00
func TestPrivateKeyRead2(t *testing.T) {
b:=`; This is a zone-signing key, keyid 41946, for miek.nl.
; Created: 20110109154937 (Sun Jan 9 16:49:37 2011)
; Publish: 20110109154937 (Sun Jan 9 16:49:37 2011)
; Activate: 20110109154937 (Sun Jan 9 16:49:37 2011)
miek.nl. IN DNSKEY 256 3 5 AwEAAeETsGZdYlTsHK8wc1yo9Zcj4dMEpPWRTYuTmGD3e4Qsk4/uyKf5jhsNZhp8no7GKHTEe7+K1prC4iXo3X5oQyDDmx76hDo5u6fblu/XaQw16wqMDQDPiURUKkzobJlmY6fYNKRz7A01J73V6qDMCvlk+8p+fb0a+LiJ2NJDACln`
b = b
a:=`Private-key-format: v1.3
Algorithm: 5 (RSASHA1)
Modulus: 4ROwZl1iVOwcrzBzXKj1lyPh0wSk9ZFNi5OYYPd7hCyTj+7Ip/mOGw1mGnyejsYodMR7v4rWmsLiJejdfmhDIMObHvqEOjm7p9uW79dpDDXrCowNAM+JRFQqTOhsmWZjp9g0pHPsDTUnvdXqoMwK+WT7yn59vRr4uInY0kMAKWc=
PublicExponent: AQAB
PrivateExponent: CYYAv8QRxhAbgpolN3V6tsNw6bHXnQBh7Jb5KpkuI8CTGdL7sIfRqHlfqZ0+REJEMfSiW89vFytJ0FrTDGcy99qesJujW/tlfsThRTwFSXdCNv0Df25CNNNeskMg3r86is8MmHJc+dAjN3P0ArAF2yZd9gS7C4TGKDDR3bZ9SYk=
Prime1: 8EO3P0cYdR8FISxLaUVfVJVIVAWux7tptnqZlzAmomPGEipXr2bAYf637hAAoD8xEUXbI6FIkXUk5vIjxfUjRQ==
Prime2: 79FWWF5PNh6ykof9NsrR2YRy/P30iLbzfSRVQrrYH15SEip5LUN15W/G7bg5Uyp8U/o3HXaaxhrj9LC330Uuuw==
Exponent1: mtOIKoauBAtRSuc4UUYbAG6ShVKEJsFmhejLQNoOi2awJNSUXLtiDcQO0qINRTZzcCYL6RHtqY5LkWdIFjC54Q==
Exponent2: ZpsiXly7d2Ra8ubMKA1PC8nniOb/IR9lvj01XX+jyIgKhUs23W7nmmrgqgUQQc0DtMpxmmGMhwYqUh7qDNUE0Q==
Coefficient: 2wn6uW28qM6B68m1ADcLmzjwIQn9Xyc/JMydrJUSzwG7Fr08bc1aa1+K/K0pVy82vU5emDKdVXPP4+WtqXnUNA==
Created: 20110109154937
Publish: 20110109154937
Activate: 20110109154937`
k := new(RR_DNSKEY)
k.Hdr.Rrtype = TypeDNSKEY
k.Hdr.Class = ClassINET
k.Hdr.Name = "miek.nl."
k.Protocol = 3
k.Flags = 256
p, _ := k.PrivateKeySetString(a)
completely fix private key reading
2011-01-17 19:18:51 +00:00
switch priv := p.(type) {
case *rsa.PrivateKey:
if 65537 != priv.PublicKey.E {
t.Log("Exponenet should be 65537")
t.Fail()
}
}
Private key completely works. Can read BIND9 files
2011-01-17 18:52:28 +00:00
if k.KeyTag() != 41946 {
t.Log("Keytag should be 41946")
t.Fail()
}
completely fix private key reading
2011-01-17 19:18:51 +00:00
fmt.Printf("%v\n", k)
Private key completely works. Can read BIND9 files
2011-01-17 18:52:28 +00:00
}