[오토핫키] 텍스트를 바이너리값 변환

;한글은 현재 깨짐.. 다른 방법으로 해야할 것 같은데

Binary=abcdefg가나다라마바사123456

Binary:=binary(Binary)

msgbox, %Binary%

Binary:=bin2txt(Binary)

msgbox, %Binary%

exitapp

binary(string) ;바이너리값으로 변환

{

Loop, parse, string

{

var=128

Transform, tobin, Asc, %A_LoopField%

loop, 8

{

oldtobin=%tobin%

tobin:=tobin-var

value=1

if tobin<0

{

tobin=%oldtobin%

value=0

}

var/=2

allvalues=%allvalues%%value%

}

}

return allvalues

}

bin2txt(binarystring) ;바이너리값을 텍스트로 변환

{

autotrim, off

loop

{

var=128

ascii=0

StringRight, byte, binarystring, 8

if byte=

break

StringTrimRight, binarystring, binarystring, 8

Loop, parse, byte

{

if a_loopfield = 1

ascii+=%var%

var/=2

}

transform, text, Chr, %ascii%

alltext=%text%%alltext%

}

autotrim, on

return alltext

}