|
#
# crypting: Hashes and Crypto in GAP
#
# Implementations
#
BindGlobal("CRYPTING_SHA256_State_Family",
NewFamily("CRYPTING_SHA256_State_Family"));
BindGlobal("CRYPTING_SHA256_State_Type",
NewType(CRYPTING_SHA256_State_Family,
IsSHA256State) );
InstallGlobalFunction( CRYPTING_HexStringIntPad,
function(i, len, pad)
local result;
result := HexStringInt(i);
if Length(result) < len then
result := Concatenation(RepeatedString(pad,len - Length(result)), result);
fi;
return result;
end);
InstallGlobalFunction( CRYPTING_HexStringIntPad8,
i -> CRYPTING_HexStringIntPad(i, 8, '0'));
InstallMethod( ViewString, "for a SHA256 state",
[ IsSHA256State ], x -> "<sha256 state>");
InstallGlobalFunction( SHA256String,
function(str)
local s;
if not IsString(str) then
ErrorNoReturn("usage: str has to be a string");
fi;
str := CopyToStringRep(str);
s := CRYPTING_SHA256_INIT();
CRYPTING_SHA256_UPDATE(s, str);
return CRYPTING_SHA256_FINAL(s);
end);
InstallGlobalFunction( HMACSHA256,
function(key, str)
if not IsString(key) then
ErrorNoReturn("usage: key has to be a string");
fi;
if not IsString(str) then
ErrorNoReturn("usage: str has to be a string");
fi;
key := CopyToStringRep(str);
str := CopyToStringRep(str);
return CRYPTING_SHA256_HMAC(key, str);
end);
[ Dauer der Verarbeitung: 0.24 Sekunden
(vorverarbeitet)
]
|
