From a5253b3bc9bc2a0f75db8601346bb9ccdcc26ce2 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 5 Apr 2019 15:13:46 +0200
Subject: deencrypt.pas neu

---
 deencrypt.pas | 158 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 158 insertions(+)
 create mode 100644 deencrypt.pas

diff --git a/deencrypt.pas b/deencrypt.pas
new file mode 100644
index 0000000..3e30911
--- /dev/null
+++ b/deencrypt.pas
@@ -0,0 +1,158 @@
+unit deencrypt;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+// requires gpg
+
+function encrypt(content, recipient: string): string;
+function decrypt(content: string): string;
+
+implementation
+
+uses
+  Process, Math;
+
+function encrypt(content, recipient: string): string;
+var
+  p: tProcess;
+  s: string;
+begin
+  result:='';
+  p:=tProcess.create(nil);
+  with p do begin
+    executable:='gpg';
+    parameters.add('-e');
+    parameters.add('-q');
+    parameters.add('--batch');
+    parameters.add('--no-tty');
+    parameters.add('-r');
+    parameters.add(recipient);
+    parameters.add('-o');
+    parameters.add('-');
+    parameters.add('-');
+    options:=options + [poUsePipes];
+    execute;
+    closeStderr;
+  end;
+  while p.running or (p.output.numBytesAvailable>0) do begin
+    if p.output.numBytesAvailable>0 then begin
+      setLength(s,p.output.numBytesAvailable);
+      setLength(s,p.output.read(s[1],length(s)));
+      result:=result+s;
+      continue;
+    end;
+    if content<>'' then begin
+      delete(content,1,p.input.write(content[1],min(128,length(content))));
+      if content='' then
+        p.closeInput;
+      continue;
+    end;
+    sleep(10);
+  end;
+  p.waitOnExit;
+  p.free;
+
+  content:=result;
+  result:='';
+  p:=tProcess.create(nil);
+  with p do begin
+    executable:='base64';
+    parameters.add('-w');
+    parameters.add('0');
+    options:=options + [poUsePipes];
+    execute;
+    closeStderr;
+  end;
+  while p.running or (p.output.numBytesAvailable>0) do begin
+    if p.output.numBytesAvailable>0 then begin
+      setLength(s,p.output.numBytesAvailable);
+      setLength(s,p.output.read(s[1],length(s)));
+      result:=result+s;
+      continue;
+    end;
+    if content<>'' then begin
+      delete(content,1,p.input.write(content[1],min(128,length(content))));
+      if content='' then
+        p.closeInput;
+      continue;
+    end;
+    sleep(10);
+  end;
+  p.waitOnExit;
+  p.free;
+end;
+
+function decrypt(content: string): string;
+var
+  p: tProcess;
+  s: string;
+begin
+  result:='';
+  p:=tProcess.create(nil);
+  with p do begin
+    executable:='base64';
+    parameters.add('-d');
+    options:=options + [poUsePipes];
+    execute;
+    closeStderr;
+  end;
+  while p.running or (p.output.numBytesAvailable>0) do begin
+    if p.output.numBytesAvailable>0 then begin
+      setLength(s,p.output.numBytesAvailable);
+      setLength(s,p.output.read(s[1],length(s)));
+      result:=result+s;
+      continue;
+    end;
+    if content<>'' then begin
+      delete(content,1,p.input.write(content[1],min(128,length(content))));
+      if content='' then
+        p.closeInput;
+      continue;
+    end;
+    sleep(10);
+  end;
+  p.waitOnExit;
+  p.free;
+
+  content:=result;
+  result:='';
+  p:=tProcess.create(nil);
+  with p do begin
+    executable:='gpg';
+    parameters.add('-d');
+    parameters.add('-q');
+    parameters.add('--batch');
+    parameters.add('--no-tty');
+    parameters.add('-o');
+    parameters.add('-');
+    parameters.add('-');
+    options:=options + [poUsePipes];
+    execute;
+    closeStderr;
+  end;
+  while p.running or (p.output.numBytesAvailable>0) do begin
+    if p.output.numBytesAvailable>0 then begin
+      setLength(s,p.output.numBytesAvailable);
+      setLength(s,p.output.read(s[1],length(s)));
+      result:=result+s;
+      continue;
+    end;
+    if content<>'' then begin
+      delete(content,1,p.input.write(content[1],min(128,length(content))));
+      if content='' then
+        p.closeInput;
+      continue;
+    end;
+    sleep(10);
+  end;
+  p.waitOnExit;
+  p.free;
+end;
+
+end.
+
-- 
cgit v1.2.3-54-g00ecf