gpggraph.lpr


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

program gpggraph;

{$R *.res}

uses
  mystringlistunit;

var
  lKeys,kKeys: tMyStringList;

begin
  lKeys:=tMyStringList.create;
  kKeys:=tMyStringList.create;

  lKeys.loadFromPipe('gpg --list-keys --no-auto-check-trustdb --fast-list-mode --fixed-list-mode');
  lKeys.grep('^pub');
  lKeys.replace('^\S+\s+[^ /]+/([0-9A-F]{8}) .*$','$1');
  kKeys.loadFromPipe('gpg --homedir /var/cache/kernelKeys/.gnupg --list-keys --no-auto-check-trustdb --fast-list-mode --fixed-list-mode');
  kKeys.grep('^pub');
  kKeys.replace('^\S+\s+[^ /]+/([0-9A-F]{8}) .*$','$1');

//  kSigs.loadFromPipe('gpg --homedir /var/cache/kernelKeys/.gnupg --list-sigs --no-auto-check-trustdb --fast-list-mode --fixed-list-mode');
//  kSigs.grep('^(pub|sig)');

  lKeys.sort;
  kKeys.sort;
  lKeys.uniq('-');
  kKeys.uniq('-');

  writeln(lKeys.count,' ',length(lKeys.text));
  writeln(kKeys.count,' ',length(kKeys.text));

  kKeys.append(lKeys);
  kKeys.sort;
  kKeys.uniq('d');

  write(kKeys.text);

  lKeys.free;
  kKeys.free;
end.