Can you please share a working Binary to Base64 Encode function? Topic is solved

Get help with using AutoHotkey and its commands and hotkeys
murataygun
Posts: 26
Joined: 07 Aug 2015, 15:53

Can you please share a working Binary to Base64 Encode function?

15 Dec 2019, 06:38

I'm endlessly searching forum for simple Binary (exe file) to Base64 encoded txt file converting function. I found lots of examples but lots of them are String to Base64 encoders. Some of them Binary2base64 but not able to decode back. Some of them not universal base64's cant decode back in other patforms.

Some people refer to https://github.com/ahkscript/libcrypt.ahk but that example over there is out of my understanding level.
Just want to chose a binary file and get the txt file and decode it anywhere.

Thank for helping.
murataygun
Posts: 26
Joined: 07 Aug 2015, 15:53

Re: Can you please share a working Binary to Base64 Encode function?

15 Dec 2019, 07:20

It doesnt work universally. See the last three answers in refered post. It add spaces between lines and the solution mentioned there is not solving the problem.

So my search continues..
tmplinshi
Posts: 1561
Joined: 01 Oct 2013, 14:57

Re: Can you please share a working Binary to Base64 Encode function?  Topic is solved

15 Dec 2019, 08:05

Works fine here. The following example will encode AutoHotkey.exe to base64, and then decode it to ahkCopy.exe. I've also tried a command line tool base64, it can decode it back.

Code: Select all

b64 := Base64Enc_FromFile(A_AhkPath)
Base64Dec_ToFile(b64, "ahkCopy.exe")
Run, cmd /c echo MsgBox hello | ahkCopy.exe *

; FileOpen("B64Data.txt", "w").Write(b64)
; RunWait, base64.exe --decode B64Data.txt ahkCopy2.exe
ExitApp

Base64Enc( ByRef Bin, nBytes, LineLength := 64, LeadingSpaces := 0 ) { ; By SKAN / 18-Aug-2017
Local Rqd := 0, B64, B := "", N := 0 - LineLength + 1  ; CRYPT_STRING_BASE64 := 0x1
  DllCall( "Crypt32.dll\CryptBinaryToString", "Ptr",&Bin ,"UInt",nBytes, "UInt",0x1, "Ptr",0,   "UIntP",Rqd )
  VarSetCapacity( B64, Rqd * ( A_Isunicode ? 2 : 1 ), 0 )
  DllCall( "Crypt32.dll\CryptBinaryToString", "Ptr",&Bin, "UInt",nBytes, "UInt",0x1, "Str",B64, "UIntP",Rqd )
  If ( LineLength = 64 and ! LeadingSpaces )
    Return B64
  B64 := StrReplace( B64, "`r`n" )        
  Loop % Ceil( StrLen(B64) / LineLength )
    B .= Format("{1:" LeadingSpaces "s}","" ) . SubStr( B64, N += LineLength, LineLength ) . "`n" 
Return RTrim( B,"`n" )    
}

Base64Dec( ByRef B64, ByRef Bin ) {  ; By SKAN / 18-Aug-2017
Local Rqd := 0, BLen := StrLen(B64)                 ; CRYPT_STRING_BASE64 := 0x1
  DllCall( "Crypt32.dll\CryptStringToBinary", "Str",B64, "UInt",BLen, "UInt",0x1
         , "UInt",0, "UIntP",Rqd, "Int",0, "Int",0 )
  VarSetCapacity( Bin, 128 ), VarSetCapacity( Bin, 0 ),  VarSetCapacity( Bin, Rqd, 0 )
  DllCall( "Crypt32.dll\CryptStringToBinary", "Str",B64, "UInt",BLen, "UInt",0x1
         , "Ptr",&Bin, "UIntP",Rqd, "Int",0, "Int",0 )
Return Rqd
}

Base64Enc_FromFile(FileName) {
	FileGetSize, nBytes, %FileName%
	FileRead, Bin, *c %FileName%
	return Base64Enc(Bin, nBytes)
}

Base64Dec_ToFile(ByRef B64, FileName) {
	nBytes := Base64Dec(B64, Bin)
	FileOpen(FileName, "w").RawWrite(Bin, nBytes)
}
teadrinker
Posts: 1643
Joined: 29 Mar 2015, 09:41
Contact:

Re: Can you please share a working Binary to Base64 Encode function?

15 Dec 2019, 11:52

tmplinshi wrote:

Code: Select all

B64 := StrReplace( B64, "`r`n" )
This is a bit weird approach. There is CRYPT_STRING_NOCRLF flag.

Return to “Ask For Help”

Who is online

Users browsing this forum: azik0244, Robbl and 61 guests