global encoding
gui,1:font,s8,Tahoma
Gui,1:Add,Radio,Checked vChoice w100 gsubm,utf-16
Gui,1:Add,Radio,xp y+10 w100 gsubm,utf-8
gui,1:add,text,,Вставь сюда текст:
gui,1:add,edit,vintext w400 h100 gConvert,
gui,1:add,text,,Вставь сюда HEX:
gui,1:add,edit,vouttext w400 h100 gConvert2,
gui,show
return
Convert:
gui,1:submit,nohide
size:=STRToDATA(intext,tmp1,encoding)
HEXText:=DATAtoHEX(&tmp1,0,size)
GuiControl,,outtext,%HEXText%
return
Convert2:
gui,1:submit,nohide
size:=HEXstrToDATA(outtext,tmp1,0)
StrText:=DATAtoSTR(&tmp1,encoding,size)
GuiControl,,intext,%StrText%
return
subm:
gui,1:submit,nohide
encoding:=Choice-1
gosub,Convert
return
STRToDATA(str,byref var,enc)
{
size:=enc?strlen(str):strlen(str)*2
varsetcapacity(var,size)
StrPut(str,&var,enc?"utf-8":"utf-16")
return size
}
DATAtoHEX(var,st,size,sw=0)
{
loop,% size
{
hex.=format("{:02X},",numget(var+0,(sw?(size-a_index):(st+a_index-1)),"uchar"))
if (!mod(a_index,23) and a_index!=size)
hex.="\`n"
}
stringtrimright,hex,hex,1
return hex
}
HEXstrToDATA(str,byref var,swap=0)
{
stringreplace,str,str,%a_space%,,all
stringreplace,str,str,`\,,all
stringreplace,str,str,`n,,all
if RegExMatch(str,"00")
encoding:=0
stringreplace,str,str,`,,,all
size:=ceil(strlen(str)/2)
varsetcapacity(var,size+2)
loop,% size
{
stringright,tmp2,str,2
if !swap
NumPut("0x"tmp2,var,size-a_index,"Uchar")
else
NumPut("0x"tmp2,var,a_index-1,"Uchar")
StringTrimRight,str,str,2
}
return size
}
DATAtoSTR(var,enc,size,sw=0)
{
return StrGet(var,enc?size:size/2,enc?"utf-8":"utf-16")
}Gui, Add, Radio, vMyRadioGroup, Wait for all items to be in stock before shipping.
Convert:
GuiControlGet, Source
If RegExMatch(Source, "^\h*(\d\d,|\d\w,)+"){
GetTxt()
}
Else {
GetHex()
}Но на двух цифрах с запятой дает сбой.
Либо шаблон нужно сделать крутой, либо что-то придумать другое - без RegEx
gui,1:font,s8,Tahoma
gui,1:add,edit,vintext w400 h100 gConvert,
gui,1:add,edit,vouttext w400 h100 gConvert2,
gui,show
return
Convert:
gui,1:submit,nohide
size:=STRToDATA(intext,tmp1,0)
HEXText:=DATAtoHEX(&tmp1,0,size)
GuiControl,,outtext,%HEXText%
return
Convert2:
gui,1:submit,nohide
size:=HEXstrToDATA(outtext,tmp1,0)
StrText:=DATAtoSTR(&tmp1,0,size)
GuiControl,,intext,%StrText%
return
STRToDATA(str,byref var,swap=0)
{
size:=strlen(str)
varsetcapacity(var,size+2)
loop,parse,str
{
if !swap
NumPut(asc(a_loopfield),var,a_index-1,"Uchar")
else
NumPut(asc(a_loopfield),var,size-a_index,"Uchar")
}
return size
}
DATAtoHEX(var,st,size,sw=0)
{
loop,% size
{
hex.=format("{:02X},",numget(var+0,(sw?(size-a_index):(st+a_index-1)),"uchar"))
if (!mod(a_index,23) and a_index!=size)
hex.="\`n"
}
stringtrimright,hex,hex,1
return hex
}
HEXstrToDATA(str,byref var,swap=0)
{
stringreplace,str,str,%a_space%,,all
stringreplace,str,str,`\,,all
stringreplace,str,str,`n,,all
stringreplace,str,str,`,,,all
size:=ceil(strlen(str)/2)
varsetcapacity(var,size+2)
loop,% size
{
stringright,tmp2,str,2
if !swap
NumPut("0x"tmp2,var,size-a_index,"Uchar")
else
NumPut("0x"tmp2,var,a_index-1,"Uchar")
StringTrimRight,str,str,2
}
return size
}
DATAtoSTR(var,st,size,sw=0)
{
loop,% size
str.=chr(numget(var+0,(sw?(size-a_index):(st+a_index-1)),"uchar"))
return str
}
22,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,69,00,6c,\
00,65,00,73,00,25,00,5c,00,4e,00,6f,00,74,00,65,00,70,00,61,00,64,00,2b,00,\
2b,00,5c,00,6e,00,6f,00,74,00,65,00,70,00,61,00,64,00,2b,00,2b,00,2e,00,65,\
00,78,00,65,00,22,00,20,00,22,00,25,00,31,00,22,00,00,00