软件加密1

最新推荐文章于 2024-07-25 17:38:25 发布

小雪110

最新推荐文章于 2024-07-25 17:38:25 发布

阅读量198

点赞数

文章标签：加密 include

本文链接：https://blog.csdn.net/liuwenf110/article/details/5276139

版权

#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