Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 36 lines (31 sloc) 1.563 kb
63cb8d7 @cstar added copyright notice on OAuth modules
cstar authored
1 %% Copyright (c) 2008-2009 Tim Fletcher <http://tfletcher.com/>
2 %%
3 %% Permission is hereby granted, free of charge, to any person
4 %% obtaining a copy of this software and associated documentation
5 %% files (the "Software"), to deal in the Software without
6 %% restriction, including without limitation the rights to use,
7 %% copy, modify, merge, publish, distribute, sublicense, and/or sell
8 %% copies of the Software, and to permit persons to whom the
9 %% Software is furnished to do so, subject to the following
10 %% conditions:
11 %%
12 %% The above copyright notice and this permission notice shall be
13 %% included in all copies or substantial portions of the Software.
14 %%
15 %% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
16 %% EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
17 %% OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
18 %% NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
19 %% HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
20 %% WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
21 %% FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
22 %% OTHER DEALINGS IN THE SOFTWARE.
23
5b0e897 @cstar [TECH-1154] Integrated most of erlang-oauth lib from https://github.c…
cstar authored
24 -module(oauth_hmac_sha1).
25
26 -export([signature/3, verify/4]).
27
28 -spec signature(string(), string(), string()) -> string().
29 signature(BaseString, CS, TS) ->
30 Key = oauth_uri:calate("&", [CS, TS]),
31 base64:encode_to_string(crypto:sha_mac(Key, BaseString)).
32
33 -spec verify(string(), string(), string(), string()) -> boolean().
34 verify(Signature, BaseString, CS, TS) ->
35 Signature =:= signature(BaseString, CS, TS).
Something went wrong with that request. Please try again.