AutoHotkey Community

#singleinstance force
Chars = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+ƒ  ;i rearranged the chars so "0000 00" = 0 and "1111 11" = ƒ

test1 = ff7e4c3bc023
test2 = 8ca9d
test3 = f001

msgbox, % "string:`t" test1 "`nencoded:`t" HextoBase64(test1) "`ndecoded:`t" Base64toHex(HextoBase64(test1))
msgbox, % "string:`t" test2 "`nencoded:`t" HextoBase64(test2) "`ndecoded:`t" Base64toHex(HextoBase64(test2))
msgbox, % "string:`t" test3 "`nencoded:`t" HextoBase64(test3) "`ndecoded:`t" Base64toHex(HextoBase64(test3))

StringCaseSense On

;msgbox, % "encoding:`n`n" In "`n`nInto: " HextoBase64(In)"`n`nstring was " strlen(in) " long and is now " strlen(HextoBase64(In))

HextoBase64(string) {
   Loop Parse, string
   {
      m := Mod(A_Index,3)
      IfEqual      m,1, SetEnv buffer, % Dec("0x" A_loopfield) << 8
      Else IfEqual m,2, EnvAdd buffer, % Dec("0x" A_loopfield) << 4
      Else {
         buffer += Dec("0x" A_loopfield)
         out := out Code(buffer>>6) code(buffer)
      }
   }
   IfEqual m,0, Return out
   IfEqual m,1, Return out Code(buffer) "=="
   Return out Code(buffer>>6) Code(buffer) "="
}

Base64toHex(code) {
   stringreplace,code,code,=,,all
   Loop Parse, code
   {
      m := Mod(A_index,2)
      IfEqual m,0, {
         buffer += DeCode(A_LoopField)
         out := out Trim(Hex(buffer>>8)) Trim(Hex(15 & buffer>>4)) Trim(Hex(15 & buffer))
      }
      Else SetEnv buffer, % DeCode(A_LoopField) << 6
   }
   IfEqual m,0, return out
   IfEqual m,1, Return out Trim(Hex(15 & buffer>>8))
   Return out Trim(Hex(15 & buffer>>8)) Trim(Hex(15 & buffer>>4))
}

Code(i) {   ; <== Chars[i & 63], 0-base index
   Global Chars
   StringMid i, Chars, (i&63)+1, 1
   Return i
}

DeCode(c) { ; c = a char in Chars ==> position [0,63]
   Global Chars
   Return InStr(Chars,c,1) - 1
}

Dec(hexin) {
   currentformat := A_formatinteger
   setformat,integer,d
   hexin += 0
   setformat,integer, %currentformat%
   return hexin
}

Hex(decin) {
   currentformat := A_formatinteger
   setformat,integer,h
   decin += 0
   setformat,integer, %currentformat%
   return decin
}

Trim(hexin) {
   stringleft,beg,hexin,2
   if beg = 0x
      stringtrimleft,hexin,hexin,2
   return hexin
}

Hex2Bin(bin,"0123456789")
MsgBox % Bin2Hex(bin)

Bin2Hex(ByRef b, n=0)            ; n bytes binary data -> stream of 2-digit hex
{                                ; n = 0: all (SetCapacity can be larger than used!)
   format = %A_FormatInteger%    ; save original integer format
   SetFormat Integer, Hex        ; for converting bytes to hex

   m := VarSetCapacity(b)
   If n not between 1 and %m%    ; invalid length -> all allocated
       n = %m%
   Loop %n%
      h := h 256+*(&b+A_Index-1) ; concatenate  0x1xx
   StringReplace h, h, 0x1,,All  ; remove every 0x1

   SetFormat Integer, %format%   ; restore original format
   Return h
}

Hex2Bin(ByRef bin, hex) {        ; Convert hex and write as binary to bin
   VarSetCapacity(bin, StrLen(hex)//2)
   Loop Parse, hex
      If (A_Index & 1)           ; Odd index
         x = 0x%A_LoopField%     ; 1st hex digit of a Byte
      Else
         DllCall("RtlFillMemory",UInt,&bin+A_Index//2-1, UInt,1, UChar,x A_LoopField)
}

/*   Hex to Base64 encoder/decoder
         by Veovis
      Based off of Laszlos Ascii to Base64 encoder

   Example of how it works:

Hex:  f    f    7    e    4    c   
 
      1111 1111 0111 1110 0100 1100   transform to binary

      111111  110111 111001  001100   rearrange the bits into groups of 6

      (63)    (55)   (57)    (12)     (what those are in decimal)

      ƒ       t      v       C


becuase of half digits, i use the char "-" to represent that when you decode the string remove the last digit

So we get about 66% compression, but shorter string are less successful, especially if they have half digits
*/
     
#singleinstance force
Chars = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+ƒ  ;i rearranged the chars so "0000 00" = 0 and "1111 11" = ƒ
StringCaseSense On

test1 = ff7e4c8cba838d8e0c9
test2 = 8ca9dec
test3 = f0011e
test4 = c8ffc
test5 = ff00
test6 = 103
test7 = ff

loop 7
   msgbox, % "string:`t" test%A_index% "`nencoded:`t" HextoBase64(test%A_index%) "`ndecoded:`t" Base64toHex(HextoBase64(test%A_index%))

HextoBase64(string) {
   Loop Parse, string
   {
      m := Mod(A_Index,3)
      IfEqual      m,1, SetEnv buffer, % Dec("0x" A_loopfield) << 8
      Else IfEqual m,2, EnvAdd buffer, % Dec("0x" A_loopfield) << 4
      Else {
         buffer += Dec("0x" A_loopfield)
         out := out Code(buffer>>6) code(buffer)
      }
   }
   IfEqual, m, 0, return out
   IfEqual, m, 1, return out Code(buffer>>6)
   IfEqual, m, 2, return out Code(buffer>>6) Code(buffer) "-"
}

Base64toHex(code) {
   ifinstring,code,-,setenv,trim,1
   stringreplace,code,code,-,,a
   Loop Parse, code
   {
      m := Mod(A_index,2)
      IfEqual m,0, {
         buffer += DeCode(A_LoopField)
         out := out Trim(Hex(buffer>>8)) Trim(Hex(15 & buffer>>4)) Trim(Hex(15 & buffer))
      }
      Else SetEnv buffer, % DeCode(A_LoopField) << 6
   }
   IfEqual m,1, setenv,out,% out Trim(Hex(15 & buffer>>8))
   IfEqual trim,1, stringtrimright,out,out,1
   return out
}

Code(i) {   ; <== Chars[i & 63], 0-base index
   Global Chars
   StringMid i, Chars, (i&63)+1, 1
   Return i
}

DeCode(c) { ; c = a char in Chars ==> position [0,63]
   Global Chars
   Return InStr(Chars,c,1) - 1
}

Dec(hexin) {
   currentformat := A_formatinteger
   setformat,integer,d
   hexin += 0
   setformat,integer, %currentformat%
   return hexin
}

Hex(decin) {
   currentformat := A_formatinteger
   setformat,integer,h
   decin += 0
   setformat,integer, %currentformat%
   return decin
}

Trim(hexin) {      ;trims the 0x off of hex
   stringleft,beg,hexin,2
   if beg = 0x
      stringtrimleft,hexin,hexin,2
   return hexin
}

ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/

string:    ff7e4c8c       ;4 bytes of data
encoded:   /35MjA-
decoded:   ff7e4c8c

StringCaseSense On
Chars = ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/

MsgBox % HextoBase64("12")
MsgBox % Base64toHex("Eg==")

MsgBox % HextoBase64("1234")
MsgBox % Base64toHex("EjQ=")

MsgBox % HextoBase64("123456")
MsgBox % Base64toHex("EjRW")


HextoBase64(hex) { ; StrLen(hex) must be even
   Loop Parse, hex
   {
      m := Mod(A_Index,3)
      x  = 0x%A_loopfield%
      IfEqual      m,1, SetEnv z, % x << 8
      Else IfEqual m,2, EnvAdd z, % x << 4
      Else {
         z += x
         o := o Code(z>>6) code(z)
      }
   }
   IfEqual m,2, Return o Code(z>>6) Code(z) "=="
   IfEqual m,1, Return o Code(z>>6) "="
   Return o
}

Base64toHex(code) {
   StringReplace code, code, =,, All
   Loop Parse, code
      If (A_Index & 1)
         z := DeCode(A_LoopField) << 6
      Else {
         z += DeCode(A_LoopField)
         o := o H1(z>>8) H1(z>>4) H1(z)
      }
   If (StrLen(code)&3 = 3)
      Return o H1(z>>8)
   If (StrLen(code)&3 = 2)
      StringTrimRight o,o,1
   Return o
}

H1(x) {     ; LS hex digit
   Return Chr((x&15)+48 + 7*(x&15>9))
}

Code(i) {   ; <== Chars[i & 63], 0-base index
   Global Chars
   StringMid i, Chars, (i&63)+1, 1
   Return i
}

DeCode(c) { ; c = a char in Chars ==> position [0,63]
   Global Chars
   Return InStr(Chars,c,1) - 1
}