diff options
| author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-11-05 20:05:12 +1000 |
|---|---|---|
| committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-11-05 20:07:38 +1000 |
| commit | a87b47536143d706e84d9bcb792832b1986f6493 (patch) | |
| tree | 6d20a26435a62f70a33455868e2e11589eb410c4 /test | |
| parent | Fix some type errors (diff) | |
Do not use functions from crypto module wherever possible
Diffstat (limited to 'test')
| -rw-r--r-- | test/suite.erl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/suite.erl b/test/suite.erl index 8104df75e..c35592c80 100644 --- a/test/suite.erl +++ b/test/suite.erl @@ -254,11 +254,11 @@ response(User, Passwd, Nonce, AuthzId, Realm, CNonce, DigestURI, NC, QOP, A2Prefix) -> A1 = case AuthzId of <<"">> -> - <<((crypto:md5(<<User/binary, ":", Realm/binary, ":", + <<((erlang:md5(<<User/binary, ":", Realm/binary, ":", Passwd/binary>>)))/binary, ":", Nonce/binary, ":", CNonce/binary>>; _ -> - <<((crypto:md5(<<User/binary, ":", Realm/binary, ":", + <<((erlang:md5(<<User/binary, ":", Realm/binary, ":", Passwd/binary>>)))/binary, ":", Nonce/binary, ":", CNonce/binary, ":", AuthzId/binary>> @@ -270,10 +270,10 @@ response(User, Passwd, Nonce, AuthzId, Realm, CNonce, <<A2Prefix/binary, ":", DigestURI/binary, ":00000000000000000000000000000000">> end, - T = <<(hex((crypto:md5(A1))))/binary, ":", Nonce/binary, + T = <<(hex((erlang:md5(A1))))/binary, ":", Nonce/binary, ":", NC/binary, ":", CNonce/binary, ":", QOP/binary, - ":", (hex((crypto:md5(A2))))/binary>>, - hex((crypto:md5(T))). + ":", (hex((erlang:md5(A2))))/binary>>, + hex((erlang:md5(T))). my_jid(Config) -> jlib:make_jid(?config(user, Config), |