软件加密1

#Include <File.au3>
Dim $ary
_FileReadToArray(@ScriptDir&"/bublic.au3",$ary);源文件
$filetext=FileOpen(@ScriptDir&"/clle.au3",2+8);目标文件
For $i=1 To $ary[0]
 If StringInStr($ary[$i],'()')>0 Then
  FileWriteLine($filetext,$ary[$i])
  ContinueLoop
 EndIf
If StringInStr($ary[$i],'"')>0 Then
StringReplace($ary[$i],'"','"')
$bbnnmm=@extended
    For $j=1 To $bbnnmm Step 2
      Local $stringmid=StringMid($ary[$i],StringInStr($ary[$i],'"',0,$j),StringInStr($ary[$i],'"',0,$j+1)-StringInStr($ary[$i],'"',0,$j)+1)
      If StringInStr($stringmid,'""')>0 Then
        ContinueLoop
       EndIf