From 8138d70bb8c1de954c46b417ccd22964b6432965 Mon Sep 17 00:00:00 2001 From: Adam Kocoloski Date: Wed, 11 Aug 2010 15:34:41 -0400 Subject: move oauth to rebar layout --- apps/oauth/src/oauth_hmac_sha1.erl | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 apps/oauth/src/oauth_hmac_sha1.erl (limited to 'apps/oauth/src/oauth_hmac_sha1.erl') diff --git a/apps/oauth/src/oauth_hmac_sha1.erl b/apps/oauth/src/oauth_hmac_sha1.erl new file mode 100644 index 00000000..79d59f37 --- /dev/null +++ b/apps/oauth/src/oauth_hmac_sha1.erl @@ -0,0 +1,11 @@ +-module(oauth_hmac_sha1). + +-export([signature/3, verify/4]). + + +signature(BaseString, CS, TS) -> + Key = oauth_uri:calate("&", [CS, TS]), + base64:encode_to_string(crypto:sha_mac(Key, BaseString)). + +verify(Signature, BaseString, CS, TS) -> + couch_util:verify(signature(BaseString, CS, TS), Signature). -- cgit v1.2.3