- ;; perform inner hash
- (let ((first-round (funcall hash (concat k_ipad text)))
- de-hexed)
- (while (< 0 (length first-round))
- (push (rfc2104-hex-to-int (substring first-round -2)) de-hexed)
- (setq first-round (substring first-round 0 -2)))
- ;; perform outer hash
- (funcall hash (concat k_opad de-hexed)))))
+ ;; perform outer hash
+ (funcall hash (concat k_opad (rfc2104-hexstring-to-bitstring
+ ;; perform inner hash
+ (funcall hash (concat k_ipad text)))))))