Do not checksum validate address by default

* make checksum validation optional in valid-address?
* update test
This commit is contained in:
Teemu Patja 2017-02-22 21:51:47 +02:00
parent 6bc3ca8937
commit 0b69459638
No known key found for this signature in database
GPG Key ID: F5B7035E6580FD4C
2 changed files with 31 additions and 24 deletions

View File

@ -124,11 +124,14 @@
(defn valid-address?
"Validate given ethereum address. Checksum validation is performed
and input is case-sensitive"
[address]
([address]
(valid-address? address false))
([address checksum-validate?]
(log/debug "valid-address?" address)
;; logic based on
;; https://github.com/cilphex/ethereum-address/blob/master/index.js
(and (boolean (re-matches #"(?i)^(0x)?[0-9a-f]{40}$" address))
(if checksum-validate?
(let [addr (strip-0x address)
hash (pandect/keccak-256 (str/lower-case addr))]
(log/debug "address hash" hash "addr" addr)
@ -145,4 +148,5 @@
(not= ch-lower ch)))))
addr)
(filter true?)
(empty?)))))
(empty?)))
true))))

View File

@ -9,6 +9,9 @@
(testing "Valid address is valid"
(let [addr "0xA1cab91b36bea34487c5670Bbd00a1Aa8196aeD8"]
(is (true? (eth/valid-address? addr)))))
(testing "Case sensitivity matters"
(testing "Checksum validation works when used"
(let [addr "0xa1cab91b36bea34487c5670bbd00a1aa8196aed8"]
(is (false? (eth/valid-address? addr))))))
(is (false? (eth/valid-address? addr true)))))
(testing "Checksum validation not used by default"
(let [addr "0xa1cab91b36bea34487c5670bbd00a1aa8196aed8"]
(is (true? (eth/valid-address? addr))))))