From cb4a46e7fbe62d788e66ed6121c717a2d22a4d7c Mon Sep 17 00:00:00 2001
From: watcherhd <watcherhd@e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb>
Date: Thu, 21 Apr 2011 14:14:52 +0000
Subject: svn.miranda.im is moving to a new home!

git-svn-id: http://miranda-plugins.googlecode.com/svn/trunk@7 e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb
---
 delphi/Awkward/utils/base64.pas | 108 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 108 insertions(+)
 create mode 100644 delphi/Awkward/utils/base64.pas

(limited to 'delphi/Awkward/utils/base64.pas')

diff --git a/delphi/Awkward/utils/base64.pas b/delphi/Awkward/utils/base64.pas
new file mode 100644
index 0000000..73ce09b
--- /dev/null
+++ b/delphi/Awkward/utils/base64.pas
@@ -0,0 +1,108 @@
+unit Base64;
+
+interface
+
+uses windows;
+
+{ Base64 encode and decode a string }
+function BASE64Encode(src:pByte;len:integer):PAnsiChar;
+function BASE64Decode(src:PAnsiChar;var dst:pByte):integer;
+
+{******************************************************************************}
+{******************************************************************************}
+implementation
+
+uses common;
+
+const
+  base64chars{:array [0..63] of AnsiChar}:PAnsiChar =
+    'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
+
+function BASE64Encode(src:pByte;len:integer):PAnsiChar;
+var
+  dst:PAnsiChar;
+begin
+  if (src=nil) or (len<=0) then
+  begin
+    result:=nil;
+    exit;
+  end;
+  mGetMem(result,((len*4+11) div (12*4))+1);
+  dst:=result;
+
+  while len>0 do
+  begin
+    dst^:=base64chars[src^ shr 2]; inc(dst);
+    if len=1 then
+    begin
+      dst^:=base64chars[(src^ and 3) shl 4]; inc(dst);
+      dst^:='='; inc(dst);
+      dst^:='='; inc(dst);
+      break;
+    end;
+    dst^:=base64chars[((src^ and 3) shl 4) or (pbyte(PAnsiChar(src)+1)^ shr 4)]; inc(dst); inc(src);
+    if len=2 then
+    begin
+      dst^:=base64chars[(src^ and $F) shl 2]; inc(dst);
+      dst^:='='; inc(dst);
+      break;
+    end;
+    dst^:=base64chars[((src^ and $F) shl 2) or (pbyte(PAnsiChar(src)+1)^ shr 6)]; inc(dst); inc(src);
+    dst^:=base64chars[src^ and $3F]; inc(dst); inc(src);
+    dec(len,3);
+  end;
+  dst^:=#0;
+end;
+
+function Base64CharToInt(c:AnsiChar):byte;
+begin
+  case c of
+    'A'..'Z': result:=ord(c)-ord('A');
+    'a'..'z': result:=ord(c)-ord('a')+26;
+    '0'..'9': result:=ord(c)-ord('0')+52;
+    '+': result:=62;
+    '/': result:=63;
+    '=': result:=64;
+  else
+    result:=255;
+  end;
+end;
+
+function BASE64Decode(src:PAnsiChar;var dst:pByte):integer;
+var
+  slen:integer;
+  ptr:pByte;
+  b1,b2,b3,b4:byte;
+begin
+  if (src=nil) or (src^=#0) then
+  begin
+    result:=0;
+    dst:=nil;
+    exit;
+  end;
+  ptr:=pbyte(src);
+  while ptr^<>0 do inc(ptr);
+  slen:=ptr-src;
+  mGetMem(ptr,(slen*3) div 4);
+  dst:=ptr;
+  result:=0;
+  while slen>0 do
+  begin
+    b1:=Base64CharToInt(src^); inc(src);
+    b2:=Base64CharToInt(src^); inc(src);
+    b3:=Base64CharToInt(src^); inc(src);
+    b4:=Base64CharToInt(src^); inc(src);
+    dec(slen,4);
+    if (b1=255) or (b1=64) or (b2=255) or (b2=64) or (b3=255) or (b4=255) then
+      break;
+    ptr^:=(b1 shl 2) or (b2 shr 4); inc(ptr); inc(result);
+    if b3=64 then
+      break;
+    ptr^:=(b2 shl 4) or (b3 shr 2); inc(ptr); inc(result);
+    if b4=64 then
+      break;
+    ptr^:=b4 or (b3 shl 6); inc(ptr); inc(result);
+  end;
+end;
+
+end.
-- 
cgit v1.2.3