Local $string1=StringMid($ary[$i],1,StringInStr($ary[$i],'"',0,$j)-1)
Local $string2=StringMid($ary[$i],StringInStr($ary[$i],'"',0,$j+1)+1)
$stringmid=StringMid($stringmid,2,StringInStr($stringmid,'"',0,-1)-2)
$vvp=' BinaryToString("'&StringToBinary($stringmid,4)&'",4)'
$ary[$i]=$string1&$vvp&$string2
Next
FileWriteLine($filetext,$ary[$i])
Else
FileWriteLine($filetext,$ary[$i])
EndIf
Next
MsgBox(0,"软件加密器","加密成功!")