(require-library
 numbers defstruct)

(module elliptic-curve-parameters
  *
  (import
   (except scheme
	   + - * / = > < >= <=
	   number->string string->number
	   exp log sin cos tan asin acos atan expt sqrt
	   quotient modulo remainder numerator denominator
	   abs max min gcd lcm
	   positive? negative? odd? even? zero? exact? inexact?
	   floor ceiling truncate round
	   inexact->exact exact->inexact
	   number? complex? real? rational? integer?
	   real-part imag-part magnitude)
   (except chicken
	   add1 sub1 signum
	   bitwise-and bitwise-ior bitwise-xor bitwise-not
	   arithmetic-shift)
   numbers defstruct)

;; Elliptic curve parameter record
(defstruct ec-parameters
  ;; Prime modulus of the curve's underlying field
  p
  ;; Parameter a of the Weierstrass equation
  a
  ;; Parameter b of the Weierstrass equation
  b
  ;; Base point of the curve
  [G #f]
  ;; Order of the base point
  [n #f]
  ;; Cofactor of the base point
  [h #f]
  ;; Optional name of the parameter set
  [name #f])

;;; Predefined curves for cryptographic applications

(define-syntax define-ec-parameters
  (syntax-rules ()
    [(define-ec-parameters id p a b x y n h)
     (define id
       (make-ec-parameters
	p: (string->number p 16)
	a: (string->number a 16)
	b: (string->number b 16)
	G: (make-rectangular
	    (string->number x 16)
	    (string->number y 16))
	n: (string->number n 16)
	h: (string->number h 16)
	name: 'id))]))

(define-ec-parameters brainpool-P160r1
  "E95E4A5F737059DC60DFC7AD95B3D8139515620F"
  "340E7BE2A280EB74E2BE61BADA745D97E8F7C300"
  "1E589A8595423412134FAA2DBDEC95C8D8675E58"
  "BED5AF16EA3F6A4F62938C4631EB5AF7BDBCDBC3"
  "1667CB477A1A8EC338F94741669C976316DA6321"
  "E95E4A5F737059DC60DF5991D45029409E60FC09"
  "1")

(define-ec-parameters brainpool-P192r1
  "C302F41D932A36CDA7A3463093D18DB78FCE476DE1A86297"
  "6A91174076B1E0E19C39C031FE8685C1CAE040E5C69A28EF"
  "469A28EF7C28CCA3DC721D044F4496BCCA7EF4146FBF25C9"
  "C0A0647EAAB6A48753B033C56CB0F0900A2F5C4853375FD6"
  "14B690866ABD5BB88B5F4828C1490002E6773FA2FA299B8F"
  "C302F41D932A36CDA7A3462F9E9E916B5BE8F1029AC4ACC1"
  "1")

(define-ec-parameters brainpool-P224r1
  "D7C134AA264366862A18302575D1D787B09F075797DA89F57EC8C0FF"
  "68A5E62CA9CE6C1C299803A6C1530B514E182AD8B0042A59CAD29F43"
  "2580F63CCFE44138870713B1A92369E33E2135D266DBB372386C400B"
  "D9029AD2C7E5CF4340823B2A87DC68C9E4CE3174C1E6EFDEE12C07D"
  "58AA56F772C0726F24C6B89E4ECDAC24354B9E99CAA3F6D3761402CD"
  "D7C134AA264366862A18302575D0FB98D116BC4B6DDEBCA3A5A7939F"
  "1")

(define-ec-parameters brainpool-P256r1
  "A9FB57DBA1EEA9BC3E660A909D838D726E3BF623D52620282013481D1F6E5377"
  "7D5A0975FC2C3057EEF67530417AFFE7FB8055C126DC5C6CE94A4B44F330B5D9"
  "26DC5C6CE94A4B44F330B5D9BBD77CBF958416295CF7E1CE6BCCDC18FF8C07B6"
  "8BD2AEB9CB7E57CB2C4B482FFC81B7AFB9DE27E1E3BD23C23A4453BD9ACE3262"
  "547EF835C3DAC4FD97F8461A14611DC9C27745132DED8E545C1D54C72F046997"
  "A9FB57DBA1EEA9BC3E660A909D838D718C397AA3B561A6F7901E0E82974856A7"
  "1")

(define-ec-parameters brainpool-P320r1
  "D35E472036BC4FB7E13C785ED201E065F98FCFA6F6F40DEF4F92B9EC7893EC28FCD412B1F1B32E27"
  "3EE30B568FBAB0F883CCEBD46D3F3BB8A2A73513F5EB79DA66190EB085FFA9F492F375A97D860EB4"
  "520883949DFDBC42D3AD198640688A6FE13F41349554B49ACC31DCCD884539816F5EB4AC8FB1F1A6"
  "43BD7E9AFB53D8B85289BCC48EE5BFE6F20137D10A087EB6E7871E2A10A599C710AF8D0D39E20611"
  "14FDD05545EC1CC8AB4093247F77275E0743FFED117182EAA9C77877AAAC6AC7D35245D1692E8EE1"
  "D35E472036BC4FB7E13C785ED201E065F98FCFA5B68F12A32D482EC7EE8658E98691555B44C59311"
  "1")

(define-ec-parameters brainpool-P384r1
  "8CB91E82A3386D280F5D6F7E50E641DF152F7109ED5456B412B1DA197FB71123ACD3A729901D1A71874700133107EC53"
  "7BC382C63D8C150C3C72080ACE05AFA0C2BEA28E4FB22787139165EFBA91F90F8AA5814A503AD4EB04A8C7DD22CE2826"
  "4A8C7DD22CE28268B39B55416F0447C2FB77DE107DCD2A62E880EA53EEB62D57CB4390295DBC9943AB78696FA504C11"
  "1D1C64F068CF45FFA2A63A81B7C13F6B8847A3E77EF14FE3DB7FCAFE0CBD10E8E826E03436D646AAEF87B2E247D4AF1E"
  "8ABE1D7520F9C2A45CB1EB8E95CFD55262B70B29FEEC5864E19C054FF99129280E4646217791811142820341263C5315"
  "8CB91E82A3386D280F5D6F7E50E641DF152F7109ED5456B31F166E6CAC0425A7CF3AB6AF6B7FC3103B883202E9046565"
  "1")

(define-ec-parameters brainpool-P512r1
  "AADD9DB8DBE9C48B3FD4E6AE33C9FC07CB308DB3B3C9D20ED6639CCA703308717D4D9B009BC66842AECDA12AE6A380E62881FF2F2D82C68528AA6056583A48F3"
  "7830A3318B603B89E2327145AC234CC594CBDD8D3DF91610A83441CAEA9863BC2DED5D5AA8253AA10A2EF1C98B9AC8B57F1117A72BF2C7B9E7C1AC4D77FC94CA"
  "3DF91610A83441CAEA9863BC2DED5D5AA8253AA10A2EF1C98B9AC8B57F1117A72BF2C7B9E7C1AC4D77FC94CADC083E67984050B75EBAE5DD2809BD638016F723"
  "81AEE4BDD82ED9645A21322E9C4C6A9385ED9F70B5D916C1B43B62EEF4D0098EFF3B1F78E2D0D48D50D1687B93B97D5F7C6D5047406A5E688B352209BCB9F822"
  "7DDE385D566332ECC0EABFA9CF7822FDF209F70024A57B1AA000C55B881F8111B2DCDE494A5F485E5BCA4BD88A2763AED1CA2B2FA8F0540678CD1E0F3AD80892"
  "AADD9DB8DBE9C48B3FD4E6AE33C9FC07CB308DB3B3C9D20ED6639CCA70330870553E5C414CA92619418661197FAC10471DB1D381085DDADDB58796829CA90069"
  "1")

)