eeva/home-manager
1
0
Fork 0
mirror of https://github.com/nix-community/home-manager synced 2024-12-02 16:09:46 +01:00
Code Issues Releases Wiki Activity

gpg-agent: rewrite hash algo in Nix to avoid IFD

Browse source
This commit is contained in:
oxalica 2021-11-26 03:47:45 +08:00 committed by Robert Helgesson
parent 78ff6b851c
commit 736581f113
No known key found for this signature in database
GPG key ID: 36BDAA14C2797E89
1 changed files with 30 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
modules/services/gpg-agent.nix
View file

@ -21,18 +21,39 @@ let
# state, but we need the values at build time. original: # state, but we need the values at build time. original:
# https://github.com/gpg/gnupg/blob/c6702d77d936b3e9d91b34d8fdee9599ab94ee1b/common/homedir.c#L672-L681 # https://github.com/gpg/gnupg/blob/c6702d77d936b3e9d91b34d8fdee9599ab94ee1b/common/homedir.c#L672-L681
gpgconf = dir: gpgconf = dir:
if homedir == options.programs.gpg.homedir.default then let
hash = substring 0 24 (hexStringToBase32 (builtins.hashString "sha1" homedir));
in if homedir == options.programs.gpg.homedir.default then
"%t/gnupg/${dir}" "%t/gnupg/${dir}"
else else
builtins.readFile (pkgs.runCommand dir {} '' "%t/gnupg/d.${hash}/${dir}";
PATH=${pkgs.xxd}/bin:$PATH
hash=$(echo -n ${homedir} | sha1sum -b | xxd -r -p | base32 | \ # Act like `xxd -r -p | base32` but with z-base-32 alphabet and no trailing padding.
cut -c -24 | tr '[:upper:]' '[:lower:]' | \ # Written in Nix for purity.
tr abcdefghijklmnopqrstuvwxyz234567 \ hexStringToBase32 = let
ybndrfg8ejkmcpqxot1uwisza345h769) mod = a: b: a - a / b * b;
echo -n "%t/gnupg/d.$hash/${dir}" > "$out" pow2 = elemAt [ 1 2 4 8 16 32 64 128 256 ];
''); splitChars = s: init (tail (splitString "" s));
base32Alphabet = splitChars "ybndrfg8ejkmcpqxot1uwisza345h769";
hexToIntTable = listToAttrs (genList (x: { name = toLower (toHexString x); value = x; }) 16);
initState = { ret = ""; buf = 0; bufBits = 0; };
go = { ret, buf, bufBits }: hex:
let
buf' = buf * pow2 4 + hexToIntTable.${hex};
bufBits' = bufBits + 4;
extraBits = bufBits' - 5;
in if bufBits >= 5 then {
ret = ret + elemAt base32Alphabet (buf' / pow2 extraBits);
buf = mod buf' (pow2 extraBits);
bufBits = bufBits' - 5;
} else {
ret = ret;
buf = buf';
bufBits = bufBits';
};
in hexString: (foldl' go initState (splitChars hexString)).ret;
in in