base64Decode neu lowlevelunit.pas

1 files changed, 16 insertions, 0 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 7543006..3e1911f 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -80,6 +80,7 @@ procedure fehler(s: string);
 
 function hexDump(p: pointer; cnt: longint): string;
 function base64ToBin(var s: string): boolean;
+function base64Decode(const s: string; out i: int64): boolean;
 
 var
   base64Chars: array[0..63] of char;
@@ -681,6 +682,21 @@ begin
   result:=true;
 end;
 
+function base64Decode(const s: string; out i: int64): boolean;
+var
+  j: longint;
+  b: byte;
+begin
+  i:=0;
+  result:=false;
+  for j:=1 to length(s) do begin
+    b:=base64CharsInvers[s[j]];
+    if b=255 then exit;
+    i:=(i shl 6) or b;
+  end;
+  result:=true;
+end;
+
 var b: byte;
 
 begin