base64 & uuencode

7 files changed, 321 insertions, 0 deletions

diff --git a/b.c b/b.c
new file mode 100644
index 0000000..1f08f1f
--- /dev/null
+++ b/b.c
@@ -0,0 +1,83 @@
+#include <stdio.h>

+#include <stdlib.h>

+#include <stdint.h>

+

+int char_index(int c){

+    if(c <= 25) return 65 + c;

+    if(c <= 51) return 71 + c;

+    if(c <= 61) return (c - 52)+48;

+    if(c == 62) return 43;

+    if(c == 63) return 47;

+    return 61;

+}

+

+int ichar_index(int c){

+    if(65 <= c && c <= 90) return c - 65;

+    if(97 <= c && c <= 122) return c - 97 + 26;

+    if(48 <= c && c <= 57) return c - 48 + 52;

+    if(c == 47) return 63;

+    return 0;

+}

+

+int de_base64(char* in, char* out){

+    int len = 0;

+    for(int i = 0; in[i]!='\0'; i++) len++;

+    

+    //char out[len];

+    for(int i = 0; i < len; i+=4){

+        uint8_t u1 = i>len?0:in[i];

+        uint8_t u2 = i+1>len?0:in[i+1];

+        uint8_t u3 = i+2>len?0:in[i+2];

+        uint8_t u4 = i+3>len?0:in[i+3];

+        

+        u1 = ichar_index(u1);

+        u2 = ichar_index(u2);

+        u3 = ichar_index(u3);

+        u4 = ichar_index(u4);

+        

+        uint8_t left = u1 << 2 | u2 >> 4;

+        uint8_t middle = u2 << 4 | u3 >> 2;

+        uint8_t right = u3 << 6 | u4;

+        

+        if(u4==0) sprintf(out,"%s%c%c",out,left,middle);

+        else if(u3==0) sprintf(out,"%s%c",out,left);

+        else sprintf(out,"%s%c%c%c",out,left,middle,right);

+        

+    }

+    return 0;

+}

+int en_base64(char* in, char* out){

+    int len = 0;

+    for(int i = 0; in[i]!='\0'; i++) len++;

+

+    //char out[(len+1)*3];

+    for(int i = 0; i < len; i+=3){

+        uint8_t f = i>len?0:in[i];

+        uint8_t s = i+1>len?0:in[i+1];

+        uint8_t t = i+2>len?0:in[i+2];

+        

+        uint8_t i1 = f>>2;

+        uint8_t i2 = (uint8_t)(f<<6)>>2 | (s>>4);

+        uint8_t i3 = (uint8_t)(s<<4)>>2 | (t>>6);

+        uint8_t i4 = t & 0x3f;

+        

+        if(t==0)i4 = 64;

+        if(s==0)i3 = 64;

+        sprintf(out,"%s%c%c%c%c",out,char_index(i1),char_index(i2),

+                char_index(i3),char_index(i4));

+    }

+    return 0;

+}

+

+int main(){

+    char* uwu = "Many hands make light work.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA";

+    char uwue[20*8000];

+    char uwud[20*8000];

+    

+    en_base64(uwu, uwue);

+    de_base64(uwue, uwud);

+    

+    printf("%s\n%s\n%s",uwu,uwue,uwud);

+}

+

+

diff --git a/e.lua b/e.lua
new file mode 100644
index 0000000..20ed603
--- /dev/null
+++ b/e.lua
@@ -0,0 +1,5 @@
+require "llib"
+local wow = llib.crypto.uuencode("wowa wowa wowa WQHOIDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA")
+print(wow)
+print(llib.crypto.uudecode(wow))
+
diff --git a/src/crypto.h b/src/crypto.h
index 27dca51..eff9ffe 100644
--- a/src/crypto.h
+++ b/src/crypto.h
@@ -4,6 +4,9 @@
 #include "hash/sha01.h"
 #include "hash/sha2xx.h"
 
+#include "encode/uuencode.h"
+#include "encode/base64.h"
+
 unsigned i_lr(unsigned, unsigned);
 unsigned i_rr(unsigned, unsigned);
 
@@ -14,6 +17,13 @@ static const luaL_Reg crypto_function_list [] = {
       {"sha256",l_sha256},
       {"sha224",l_sha224},
 
+      {"uuencode",l_uuencode},
+      {"uudecode",l_uudecode},
+
+      {"base64encode",l_base64encode},
+      {"base64decode",l_base64decode},
+
+
       {NULL,NULL}
 };
 
diff --git a/src/encode/base64.c b/src/encode/base64.c
new file mode 100644
index 0000000..2cdda7e
--- /dev/null
+++ b/src/encode/base64.c
@@ -0,0 +1,102 @@
+#include <stdio.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <string.h>
+#include "../crypto.h"
+
+int char_index(int c){
+    if(c <= 25) return 65 + c;
+    if(c <= 51) return 71 + c;
+    if(c <= 61) return (c - 52)+48;
+    if(c == 62) return 43;
+    if(c == 63) return 47;
+    return 61;
+}
+
+int ichar_index(int c){
+    if(65 <= c && c <= 90) return c - 65;
+    if(97 <= c && c <= 122) return c - 97 + 26;
+    if(48 <= c && c <= 57) return c - 48 + 52;
+    if(c == 47) return 63;
+    return 0;
+}
+
+int de_base64(char* in, char* out){
+    int len = 0;
+    for(int i = 0; in[i]!='\0'; i++) len++;
+    
+    //char out[len];
+    for(int i = 0; i < len; i+=4){
+        uint8_t u1 = i>len?0:in[i];
+        uint8_t u2 = i+1>len?0:in[i+1];
+        uint8_t u3 = i+2>len?0:in[i+2];
+        uint8_t u4 = i+3>len?0:in[i+3];
+        
+        u1 = ichar_index(u1);
+        u2 = ichar_index(u2);
+        u3 = ichar_index(u3);
+        u4 = ichar_index(u4);
+        
+        uint8_t left = u1 << 2 | u2 >> 4;
+        uint8_t middle = u2 << 4 | u3 >> 2;
+        uint8_t right = u3 << 6 | u4;
+        
+        if(u4==0) sprintf(out,"%s%c%c",out,left,middle);
+        else if(u3==0) sprintf(out,"%s%c",out,left);
+        else sprintf(out,"%s%c%c%c",out,left,middle,right);
+        
+    }
+    return 0;
+}
+int en_base64(char* in, char* out){
+    int len = 0;
+    for(int i = 0; in[i]!='\0'; i++) len++;
+
+    //char out[(len+1)*3];
+    for(int i = 0; i < len; i+=3){
+        uint8_t f = i>len?0:in[i];
+        uint8_t s = i+1>len?0:in[i+1];
+        uint8_t t = i+2>len?0:in[i+2];
+        
+        uint8_t i1 = f>>2;
+        uint8_t i2 = (uint8_t)(f<<6)>>2 | (s>>4);
+        uint8_t i3 = (uint8_t)(s<<4)>>2 | (t>>6);
+        uint8_t i4 = t & 0x3f;
+        
+        if(t==0)i4 = 64;
+        if(s==0)i3 = 64;
+        sprintf(out,"%s%c%c%c%c",out,char_index(i1),char_index(i2),
+                char_index(i3),char_index(i4));
+    }
+    return 0;
+}
+
+int l_base64encode(lua_State* L){  
+  size_t len;
+  const char* _a = lua_tolstring(L, 1, &len);
+  char *a = calloc(len, sizeof * a);
+  memcpy(a, _a, len);
+  
+  char* encode = calloc(len * 3,sizeof * encode);
+  en_base64(a, encode);
+  lua_pushstring(L, encode);
+
+  free(a);
+  free(encode);
+  return 1;
+};
+
+int l_base64decode(lua_State* L){
+  size_t len;
+  const char* _a = lua_tolstring(L, 1, &len);
+  char *a = calloc(len,sizeof *a);
+  memcpy(a, _a, len);
+
+  char* encode = calloc(len, sizeof *encode);
+  de_base64(a, encode);
+  lua_pushstring(L, encode);
+ 
+  free(a);
+  free(encode);
+  return 1;
+};
diff --git a/src/encode/base64.h b/src/encode/base64.h
new file mode 100644
index 0000000..216d5e2
--- /dev/null
+++ b/src/encode/base64.h
@@ -0,0 +1,4 @@
+#include "../lua.h"
+
+int l_base64encode(lua_State*);
+int l_base64decode(lua_State*);
diff --git a/src/encode/uuencode.c b/src/encode/uuencode.c
new file mode 100644
index 0000000..6f92fb0
--- /dev/null
+++ b/src/encode/uuencode.c
@@ -0,0 +1,113 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdint.h>
+#include <string.h>
+#include "../crypto.h"
+
+int uuechar_index(int c){
+    return c + 32;
+}
+
+int uueichar_index(int c){
+    return c - 32;
+}
+
+int de_uu(char* in2, char* out){
+    int len = 0;
+    for(int i = 0; in2[i]!='\0'; i++) len++;
+    char in[len*2];
+    sprintf(in," %s",in2); //padding byte to make things cleaner
+
+    //char out[len];
+    int skipped = 0;
+    for(int i = 0; i<len; i+=4){
+        if((i - skipped*2)%60==0){
+            i+=2;
+            skipped+=1;
+        };
+
+        uint8_t u1 = i>len?0:in[i];
+        uint8_t u2 = i+1>len?0:in[i+1];
+        uint8_t u3 = i+2>len?0:in[i+2];
+        uint8_t u4 = i+3>len?0:in[i+3];
+        
+        u1 = uueichar_index(u1);
+        u2 = uueichar_index(u2);
+        u3 = uueichar_index(u3);
+        u4 = uueichar_index(u4);
+        
+        uint8_t left = u1 << 2 | u2 >> 4;
+        uint8_t middle = u2 << 4 | u3 >> 2;
+        uint8_t right = u3 << 6 | u4;
+        if(u1 < 64 && u2 < 64){
+            sprintf(out,"%s%c",out,left);
+        }
+        if(u2 < 64 && u3 < 64){
+            sprintf(out,"%s%c",out,middle);
+        }
+        if(u3 < 64 && u4 < 64){
+            sprintf(out,"%s%c",out,right);
+        }
+        
+    }
+    return 0;
+}
+int en_uu(char* in, char* out){
+    int len = 0;
+    for(int i = 0; in[i]!='\0'; i++) len++;
+
+    for(int i = 0; i < len; i+=3){
+        uint8_t f = i>len?0:in[i];
+        uint8_t s = i+1>len?0:in[i+1];
+        uint8_t t = i+2>len?0:in[i+2];
+        
+        uint8_t i1 = f>>2;
+        uint8_t i2 = (uint8_t)(f<<6)>>2 | (s>>4);
+        uint8_t i3 = (uint8_t)(s<<4)>>2 | (t>>6);
+        uint8_t i4 = t & 0x3f;
+        
+        if(t==0)i4 = 64;
+        if(s==0)i3 = 64;
+        if(i / 3 * 4 % 60 == 0){
+            if(i==0) sprintf(out,"%c",(len - i >= 45) ? 'M':uuechar_index(len - i));
+            else sprintf(out,"%s\n%c",out,(len - i >= 45) ? 'M':uuechar_index(len - i));
+        }
+        sprintf(out,"%s%c%c%c%c",out,uuechar_index(i1),uuechar_index(i2),
+                uuechar_index(i3),uuechar_index(i4));
+    }
+    sprintf(out,"%s\n`",out);
+    
+    return 0;
+}
+
+
+
+int l_uuencode(lua_State* L){  
+  size_t len;
+  const char* _a = lua_tolstring(L, 1, &len);
+  char *a = calloc(len, sizeof * a);
+  memcpy(a, _a, len);
+  
+  char* encode = calloc(len * 3,sizeof * encode);
+  en_uu(a, encode);
+  lua_pushstring(L, encode);
+
+  free(a);
+  free(encode);
+  return 1;
+};
+
+int l_uudecode(lua_State* L){
+  size_t len;
+  const char* _a = lua_tolstring(L, 1, &len);
+  char *a = calloc(len, sizeof * a);
+  memcpy(a, _a, len);
+  
+  char* encode = calloc(len,sizeof * encode);
+  de_uu(a, encode);
+  lua_pushstring(L, encode);
+
+  free(a);
+  free(encode);
+  return 1; 
+};
diff --git a/src/encode/uuencode.h b/src/encode/uuencode.h
new file mode 100644
index 0000000..115dbd3
--- /dev/null
+++ b/src/encode/uuencode.h
@@ -0,0 +1,4 @@
+#include "../lua.h"
+
+int l_uuencode(lua_State*);
+int l_uudecode(lua_State*);