tim / erlang-oauth

An Erlang OAuth implementation

This URL has Read+Write access

erlang-oauth / src / oauth_hmac_sha1.erl
100644 12 lines (7 sloc) 0.286 kb
1
2
3
4
5
6
7
8
9
10
11
12
-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) ->
  Signature =:= signature(BaseString, CS, TS).