오토핫키
[오토핫키] 텍스트를 바이너리값 변환
징쟝
2018. 4. 2. 11:08
;한글은 현재 깨짐.. 다른 방법으로 해야할 것 같은데
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
}