[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 WHY 于 2019-5-25 12:32 编辑
  1. $global:n = 0; $Hash = @{};
  2. $str = [IO.File]::ReadAllText('a.txt',[Text.Encoding]::Default);
  3. #修改name属性的值,如果name属性值以music_prev或music_display或music_next等开头,或者节点名为Extra,则不修改
  4. #如果command与target同时出现,command="play",则修改target属性值,
  5. $reg1 = '(?<=<(?!Extra\s)[^<>]*\sname=")(?!music_(?:prev|display|next|play|pause))[^"]+(?=")';
  6. $reg2 = '(?<=\starget=")[^"]+(?="[^<>]*\scommand="play")|(?<=\scommand="play"[^<>]*\starget=")[^"]+(?=")';
  7. $str = [regex]::Replace($str, $reg1 + '|' + $reg2, {
  8.     param($m);
  9.     $key = $m.Value;
  10.     if( !$Hash.ContainsKey($key) ){
  11.         $x = [Math]::floor( $global:n / 26 );
  12.         if($x) { $chr1 = [char]( 64 + [int]$x ) } else { $chr1 = '' }
  13.         $Hash[$key] = $chr1 + [char]( 65 + $global:n++ % 26 );
  14.     }
  15.     $Hash[$key];
  16. })
  17. $arrKey = $Hash.Keys | sort -Desc {$_.Length};
  18. #如果属性值包含@#字符,或者属性值以 .animation或.visibility 结尾,则修改
  19. $str = [regex]::Replace($str, '(?<==")([^"@#]*[@#][^"]+|[^"]+(?:\.animation|\.visibility))(?=")', {
  20.     param($m);
  21.     $s = $m.Groups[1].Value;
  22.     forEach( $key In $arrKey ) {
  23.         $s = $s.Replace( '@' + $Key, '@' + $Hash[$Key] );
  24.         $s = $s.Replace( '#' + $Key, '#' + $Hash[$Key] );
  25.         $s = $s.Replace( $Key + '.animation', $Hash[$Key] + '.animation' );
  26.         $s = $s.Replace( $Key + '.visibility', $Hash[$Key] + '.visibility' );
  27.     }
  28.     $s;
  29. })
  30. [IO.File]::WriteAllText('b.txt', $str, [Text.Encoding]::UTF8);
  31. echo 'Done';
  32. [Console]::ReadKey()
复制代码
1

评分人数

    • smss: 太好啦 我来测试下能正常不技术 + 1

TOP

本帖最后由 smss 于 2019-5-23 15:12 编辑

回复 31# WHY
目前有这么个问题 当名字后有个数字时无法正确替换 如图

下面name="BallAniAlpha"已替换为name="EE" alpha="#BallAniAlpha*255"却被替换成了alpha="#EFAlpha*255" 应该为alpha="#EE*255"

例子<AnimationCommand target="BallAniAlpha" command="play"/>需替换为<AnimationCommand target="EE" command="play"/> 特点是包含command="play"target="变量名"

<Var name="BallAni" >被替换成了EF alpha="#BallAniAlpha*255"却被替换成了alpha="#EFAlpha*255"


还有一个是 文本c中关联文本a中变量名,希望也同步替换,生成文本d
文本c特点如下 id="Paper"  如果文本a中的 name="Paper"替换成了name="A" 那么文本c中id="Paper" 也需同步变更为id="A"
<Config>
<Group text="功能选项">
<CheckBox text="随机壁纸" summary="" id="Paper" default="1"/>
<CheckBox text="系统壁纸" summary="" id="Using" default="0"/>
<CheckBox text="重力壁纸" summary="" id="bg" default="0"/>
</Group>
</Config>

TOP

回复  smss


1. "XML中含有数组的代码被替换后无法工作" 这个问题你没有举例说明;
2. 中文字符乱码问 ...
WHY 发表于 2019-5-23 11:22

我先处理简单的再处理包含数组的,任何事都是由简入繁吧

TOP

本帖最后由 netbenton 于 2019-5-23 16:11 编辑

1,编码问题已经解决,批处理文本和要处理的文本必须是使用相同的编码
2,多出的“=“号问题已经解决
3,可指定例外固定的字符串列表
  1. goto :ansi
  2. rem UTF-8 编码支持
  3. chcp 65001
  4. cls
  5. :ansi
  6. @echo off
  7. setlocal enabledelayedexpansion
  8. set /p "strFile=请拖入处理文本:"
  9. if not exist !strFile! (
  10. echo;"!strFile!" 文件不找不到!!
  11. exit /b
  12. )
  13. rem 定义用于命名的字符表
  14. set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
  15. set n=0
  16. rem 例外情况定义
  17. set exception=Extra Button
  18. (
  19. for /f "tokens=1* delims==" %%a in (!strFile!) do (
  20. set s1=%%a
  21. set s2=%%b
  22. set z=
  23. for %%k in (%exception%) do (if "!s1:%%k=!" neq "!s1!" (set z=y))
  24. if "!z!!s1:~-5!" equ " name" (
  25. for /f "tokens=1*" %%c in ("%%b") do (
  26. if defined #%%~c (
  27. echo;!s1!="!#%%~c!" %%d
  28. ) else (
  29. call :getn !n! ss
  30. set sa=%%~c
  31. rem 保留"."后面的尾巴
  32. if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!
  33. echo;!s1!="!ss!" %%d
  34. set $!n!=!ss!囧%%~c
  35. set #%%~c=!ss!
  36. set /a n+=1
  37. )
  38. )
  39. ) else (
  40. if defined s2 (echo;!s1!=%%b) else (echo;!s1!)
  41. )
  42. )
  43. ) >temp.txt
  44. set/a n-=1
  45. (
  46. for /f "tokens=*" %%a in (temp.txt) do (
  47. set str=%%a
  48. for /l %%1 in (0,1,!n!) do (
  49. for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
  50. set str=!str:@%%c=@%%b!
  51. set str=!str:#%%c=#%%b!
  52. )
  53. )
  54. echo;!str!
  55. )
  56. ) > 结果.txt
  57. type 结果.txt
  58. rem 查看有多少个更改
  59. set $
  60. pause
  61. exit /b
  62. rem 计算临名字,可加上前缀
  63. :getn
  64. (set L=%1
  65. set M=%1
  66. set %2=)
  67. :loop
  68. set /a M=L %% 26
  69. set %2=!%2!!ASC:~%M%,1!
  70. if !M! neq !L! set /a L=L/26&goto :loop
  71. goto :eof
复制代码

TOP

回复 30# WHY

欢迎过来写感慨:
    提问题的正确方式(反面教材)
    http://www.bathome.net/viewthread.php?tid=51315

TOP

本帖最后由 smss 于 2019-5-23 20:49 编辑

回复 34# netbenton
不要替换成运算符号 无法识别这个 效率是个大问题

PS 1~2秒 电脑好像没费什么事 BAT开了CPU和风扇都感觉有压力 可以想像 两者有很大差距的
还有我已支付 zaqmlp一半钱 但过程不完美 而且他还要加价 在期间还有中伤WHY代码因为没有加UTF8 而乱码的行为 而在那WHY发贴之前zaqmlp给的代码同样效率低下 因此放弃zaqmlp的任何方式方法
以下放上代码 有心可以比对 供交流 不涉及人身攻击 善恶自有分辨
WHY 5.22
  1. $global:n = 65; $h = @{};
  2. $s = [IO.File]::ReadAllText('manifest.xml', [Text.Encoding]::UTF8);
  3. $s = [regex]::Replace($s, '(?<=\bname=")[^"]+(?=")',{param($m);$a=$m.Value; if(!$h.ContainsKey($a)){$h[$a]=[char]($global:n++)}; $h[$a]});
  4. $s = [regex]::Replace($s, '(?<=")[^@#]*[@#][^"]+(?=")',{param($m);$a=$m.Value;forEach($k In $h.Keys){$a=$a.Replace('@'+$k,'@'+$h[$k]).Replace('#'+$k,'#'+$h[$k])};$a});
  5. [IO.File]::WriteAllText('manifest2.xml', $s, [Text.Encoding]::UTF8);
复制代码
WHY5.22 15:10
  1. @echo off
  2. PowerShell "$h=@{};$s=[regex]::Replace([IO.File]::ReadAllText('manifest.xml',[Text.Encoding]::UTF8),'(?<=\bname=\")[^^\"]+(?=\")',{param($m);$a=$m.Value;if(!$h.ContainsKey($a)){$x=[Math]::floor($global:n/26);if(!$x){$c=''}else{$c=[char](64+[int]$x)};$h[$a]=$c+[char](65+$global:n++%%26)};$h[$a]});$s=[regex]::Replace($s, '(?^<=\")[^\"@#]*[@#][^^\"]+(?=\")',{param($m);$a=$m.Value;forEach($k In $h.Keys){$a=$a.Replace('@'+$k,'@'+$h[$k]).Replace('#'+$k,'#'+$h[$k])};$a});sc b.txt -Value $s -Enc utf8"
  3. pause
复制代码
WHY 5.23
  1. $global:n = 0; $Hash=@{};
  2. $str = [IO.File]::ReadAllText('manifest.xml',[Text.Encoding]::UTF8);
  3. #修改name属性的值
  4. #如果name属性的值以music_prev或music_display或music_next等开头,或者节点名为Extra,则排除
  5. $str = [regex]::Replace($str, '(?<=<(?!Extra)[^<>]*\sname=")(?!music_(?:prev|display|next|play|pause))[^"]+(?=")', {
  6.     param($m);
  7.     $key = $m.Value;
  8.     if( !$Hash.ContainsKey($key) ){
  9.         $x = [Math]::floor( $global:n / 26 );
  10.         if($x) { $chr1 = [char]( 64 + [int]$x ) } else { $chr1 = '' }
  11.         $Hash[$key] = $chr1 + [char]( 65 + $global:n++ % 26 );
  12.     }
  13.     $Hash[$key];
  14. })
  15. #如果属性值包含@#字符,或者属性值以 .animation或.visibility 结尾,则修改
  16. $str = [regex]::Replace($str, '(?<=")([^"@#]*[@#][^"]+|[^"]+(?:\.animation|\.visibility))(?=")', {
  17.     param($m);
  18.     $s = $m.Groups[1].Value;
  19.     forEach( $key In $Hash.Keys ) {
  20.         $s = $s.Replace( '@' + $key, '@' + $Hash[$key] );
  21.         $s = $s.Replace( '#' + $key, '#' + $Hash[$key] );
  22.         $s = $s.Replace( $key + '.animation', $Hash[$key] + '.animation' );
  23.         $s = $s.Replace( $key + '.visibility', $Hash[$key] + '.visibility' );
  24.     }
  25.     $s;
  26. })
  27. [IO.File]::WriteAllText('manifest2.xml', $str, [Text.Encoding]::UTF8);
  28. echo 'Done';
  29. [Console]::ReadKey()
复制代码
zaqmlp5.22
  1. @echo off
  2. cd /d "%~dp0"
  3. set "folder=结果"
  4. md "%folder%" 2>nul
  5. powershell -NoProfile -ExecutionPolicy bypass ^
  6.     $files=@(dir^|?{($_ -is [System.IO.FileInfo]) -and ($_.Extension -eq '.xml')});^
  7.     $arr='ABCDEFGHIJKLMNOPQRSTUVWXYZ'.toCharArray();^
  8.     for($i=0;$i -lt $files.length;$i++){^
  9.         write-host $files[$i].Name;^
  10.         $dic=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  11.         $list=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  12.         $text=[IO.File]::ReadAllText($files[$i].FullName, [Text.Encoding]::UTF8);^
  13.         $m=[regex]::matches($text,'name=\""([^^\""]+)\""');^
  14.         $n=65;^
  15.         $newtext=$text;^
  16.         if($m.Count -ge 1){^
  17.             for($j=0;$j -lt $m.Count;$j++){^
  18.                 $kw=$m[$j].groups[0].value;^
  19.                 if(-not $dic.ContainsKey($kw)){^
  20.                     $c=@(get-random -input $arr -count 3) -join '';^
  21.                     while($list.ContainsKey($c)){$c=@(get-random -input $arr -count 3) -join '';};^
  22.                     $list.add($c,'');^
  23.                     $newtext=$newtext.replace($kw,'name=\"'+$c+'\"');^
  24.                     $newtext=[regex]::replace($newtext,'(?^<==)\""[^^\""]+?\""',{param($a);if($a.value.Contains($m[$j].groups[1].value)){$a.value.replace($m[$j].groups[1].value,$c);}else{$a.value}});^
  25.                     $dic.add($kw,[char]$n);^
  26.                     $n++;^
  27.                 };^
  28.             };^
  29.             [IO.File]::WriteAllText(('%folder%\'+$files[$i].Name),  $newtext, [Text.Encoding]::UTF8);^
  30.         };^
  31.     }
  32. pause
复制代码
zaqmlp5.23
  1. @echo off
  2. cd /d "%~dp0"
  3. set "folder=结果"
  4. md "%folder%" 2>nul
  5. powershell -NoProfile -ExecutionPolicy bypass ^
  6.     $files=@(dir^|?{($_ -is [System.IO.FileInfo]) -and ($_.Extension -eq '.xml')});^
  7.     $arr='ABCDEFGHIJKLMNOPQRSTUVWXYZ'.toCharArray();^
  8.     for($i=0;$i -lt $files.length;$i++){^
  9.         write-host $files[$i].Name;^
  10.         $dic=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  11.         $list=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  12.         $text=[IO.File]::ReadAllText($files[$i].FullName, [Text.Encoding]::UTF8);^
  13.         $m=[regex]::matches($text,'name=\""([^^\""]+)\""');^
  14.         $n=65;^
  15.         $newtext=$text;^
  16.         if($m.Count -ge 1){^
  17.             for($j=0;$j -lt $m.Count;$j++){^
  18.                 $kw=$m[$j].groups[0].value;^
  19.                 if(-not $dic.ContainsKey($kw)){^
  20.                     $c=@(get-random -input $arr -count 3) -join '';^
  21.                     while($list.ContainsKey($c)){$c=@(get-random -input $arr -count 3) -join '';};^
  22.                     $list.add($c,'');^
  23.                     $newtext=$newtext.replace($kw,'name=\"'+$c+'\"');^
  24.                     $newtext=[regex]::replace($newtext,'(?^<==)\""[^^\""]+?\""',{param($a);if($a.value.Contains($m[$j].groups[1].value)){$a.value.replace($m[$j].groups[1].value,$c);}else{$a.value}});^
  25.                     $dic.add($kw,[char]$n);^
  26.                     $n++;^
  27.                 };^
  28.             };^
  29.             [IO.File]::WriteAllText(('%folder%\'+$files[$i].Name),  $newtext, [Text.Encoding]::UTF8);^
  30.         };^
  31.     }
  32. pause
复制代码
zaqmlp5.23
  1. @echo off
  2. cd /d "%~dp0"
  3. set "folder=结果"
  4. md "%folder%" 2>nul
  5. powershell -NoProfile -ExecutionPolicy bypass ^
  6.     $files=@(dir^|?{($_ -is [System.IO.FileInfo]) -and ($_.Extension -eq '.xml')});^
  7.     $arr='ABCDEFGHIJKLMNOPQRSTUVWXYZ'.toCharArray();^
  8.     for($i=0;$i -lt $files.length;$i++){^
  9.         write-host $files[$i].Name;^
  10.         $dic=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  11.         $list=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  12.         $text=[IO.File]::ReadAllText($files[$i].FullName, [Text.Encoding]::UTF8);^
  13.         $m=[regex]::matches($text,'(?^<!^<Extra )name=\""([^^\""]+)\""');^
  14.         $newtext=$text;^
  15.         if($m.Count -ge 1){^
  16.             for($j=0;$j -lt $m.Count;$j++){^
  17.                 $kw=$m[$j].groups[1].value;^
  18.                 if(@('=','%%') -notcontains $kw){^
  19.                     if(-not $dic.ContainsKey($kw)){^
  20.                         $c=@(get-random -input $arr -count 3) -join '';^
  21.                         while($list.ContainsKey($c)){$c=@(get-random -input $arr -count 3) -join '';};^
  22.                         $list.add($c,'');^
  23.                         $newtext=$newtext.replace($m[$j].groups[0].value,'name=\"'+$c+'\"');^
  24.                         $dic.add($kw,$c);^
  25.                         $n++;^
  26.                     };^
  27.                 };^
  28.             };^
  29.             $k=@($dic.keys^|sort {$_.length} -des);^
  30.             $newtext=[regex]::replace($newtext,'(?^<==)\""[^^\""]+?\""',{param($a);$b=$a.value;foreach($it in $k){$b=$b.replace(('@'+$it),('@'+$dic[$it])).replace(('#'+$it),('#'+$dic[$it])).replace(($it+'.animation'),($dic[$it]+'.animation')).replace(($it+'.visibility'),($dic[$it]+'.visibility'));};$b});^
  31.             [IO.File]::WriteAllText(('%folder%\'+$files[$i].Name), $newtext, [Text.Encoding]::UTF8);^
  32.         };^
  33.     }
  34. pause
复制代码

TOP

他这个多半是工作需求,商业用途,大概是抬高逆向门槛吧?
其中主要是 XML 的混淆。由于限制了批处理 和 PS,批处理正则不够强,还是 PS 划算。
但是即使用 PS,正则表达式要完美处理[后续可能产生的需求]也会让代码变得很复杂。所以建议是找一个 XML Parser(解析器)模块,PS肯定有,就是不知道需不需要额外安装。
让解析器去把XML变成数据结构,这样自由度就高了。

这样的问题,加价很合理啊。

TOP

回复 38# 523066680
是的 降低可读性并不能彻底阻断逆向 还需加密 有个矛盾在解读时就必然要提供个解密器 这是双向的
目前有一可用JAVA工具是不能适用包含数组的文本 所以另寻方法

TOP

回复 36# smss

“中伤”是你的用词,我只是说了会乱码的事实,而且你自己23楼也验证了;需求一再变动,加价很合理,买卖不成,仁义要在,你在这煽动情绪也没用
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

  1. <Text name="QA">
复制代码
找到出现替换错误的原因了,"QA"之后不是空格,而是其它字符的时,会出错,以下代码已经处理好
  1. goto :ansi
  2. rem UTF-8 编码支持
  3. chcp 65001
  4. cls
  5. :ansi
  6. @echo off
  7. setlocal enabledelayedexpansion
  8. set /p "strFile=请拖入处理文本:"
  9. if not exist !strFile! (
  10. echo;"!strFile!" 文件不找不到!!
  11. exit /b
  12. )
  13. rem 定义用于命名的字符表
  14. set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
  15. set n=0
  16. rem 例外情况定义
  17. set exception=Extra Button
  18. (
  19. for /f "tokens=1* delims==" %%a in (!strFile!) do (
  20. set s1=%%a
  21. set s2=%%b
  22. set z=
  23. for %%k in (%exception%) do (if "!s1:%%k=!" neq "!s1!" (set z=y))
  24. if "!z!!s1:~-5!" equ " name" (
  25. set s3=!s2:^"= !
  26. for /f "tokens=1* delims= " %%c in ("!s3!") do (
  27. if defined #%%~c (
  28. echo;!s1!="!#%%~c!" %%d
  29. ) else (
  30. call :getn !n! ss
  31. set sa=%%~c
  32. rem 保留"."后面的尾巴
  33. if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!
  34. echo;!s1!="!ss!" %%d
  35. set $!n!=!ss!囧%%~c
  36. set #%%~c=!ss!
  37. set /a n+=1
  38. )
  39. )
  40. ) else (
  41. if defined s2 (echo;!s1!=%%b) else (echo;!s1!)
  42. )
  43. )
  44. ) >temp.txt
  45. set/a n-=1
  46. (
  47. for /f "tokens=*" %%a in (temp.txt) do (
  48. set str=%%a
  49. for /l %%1 in (0,1,!n!) do (
  50. for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
  51. set str=!str:@%%c=@%%b!
  52. set str=!str:#%%c=#%%b!
  53. )
  54. )
  55. echo;!str!
  56. )
  57. ) > 结果.txt
  58. type 结果.txt
  59. rem 查看有多少个更改
  60. set $
  61. pause
  62. exit /b
  63. rem 计算临名字,可加上前缀
  64. :getn
  65. (set L=%1
  66. set M=%1
  67. set %2=)
  68. :loop
  69. set /a M=L %% 26
  70. set %2=!%2!!ASC:~%M%,1!
  71. if !M! neq !L! set /a L=L/26&goto :loop
  72. goto :eof
复制代码

TOP

本帖最后由 smss 于 2019-5-23 17:22 编辑

回复 39# zaqmlp
你给代码出错 导致测试手机无法开机 我没有说什么 又质疑这方法不行 而且问到你应该怎样改一个筛选条件都不说的 说的前提是加钱的(建议你以后加行代码加次价钱) 你上来说别和你扯这个 那请问不扯这个我花钱请你做什么 请不要在我的帖子下留言了

只怪自己问题没有解决就先打钱

TOP

回复 41# smss

事实你最初的方式就是不行呀,如果只按你最初的需求,替换后为什么你要一再变更需求,而且我让你找出替换后不对的地方,你一直跟我扯手机不行有什么用,你要告诉我哪里替换不对
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

回复 35# 523066680

PS 可以完全操控 XML 按节点操作。问题是楼主问题不详。不敢写,没完没了。他自己都没有一个完整的修改方案出来。不让人家累死。

TOP

回复 41# smss


    可以把你要解决的问题具有完整代表性发一份上来。还有完整的要求。本简单的事搞这么复杂。让大神们一次给你搞定。

TOP

回复 44# xczxczxcz
关键问题是不可能一下子知道全部要做具体哪些 只能说个大概 然后在发现问题的地方排查

TOP

返回列表