返回列表 发帖
本帖最后由 WHY 于 2019-5-25 12:32 编辑
$global:n = 0; $Hash = @{};
$str = [IO.File]::ReadAllText('a.txt',[Text.Encoding]::Default);
#修改name属性的值,如果name属性值以music_prev或music_display或music_next等开头,或者节点名为Extra,则不修改
#如果command与target同时出现,command="play",则修改target属性值,
$reg1 = '(?<=<(?!Extra\s)[^<>]*\sname=")(?!music_(?:prev|display|next|play|pause))[^"]+(?=")';
$reg2 = '(?<=\starget=")[^"]+(?="[^<>]*\scommand="play")|(?<=\scommand="play"[^<>]*\starget=")[^"]+(?=")';
$str = [regex]::Replace($str, $reg1 + '|' + $reg2, {
    param($m);
    $key = $m.Value;
    if( !$Hash.ContainsKey($key) ){
        $x = [Math]::floor( $global:n / 26 );
        if($x) { $chr1 = [char]( 64 + [int]$x ) } else { $chr1 = '' }
        $Hash[$key] = $chr1 + [char]( 65 + $global:n++ % 26 );
    }
    $Hash[$key];
})
$arrKey = $Hash.Keys | sort -Desc {$_.Length};
#如果属性值包含@#字符,或者属性值以 .animation或.visibility 结尾,则修改
$str = [regex]::Replace($str, '(?<==")([^"@#]*[@#][^"]+|[^"]+(?:\.animation|\.visibility))(?=")', {
    param($m);
    $s = $m.Groups[1].Value;
    forEach( $key In $arrKey ) {
        $s = $s.Replace( '@' + $Key, '@' + $Hash[$Key] );
        $s = $s.Replace( '#' + $Key, '#' + $Hash[$Key] );
        $s = $s.Replace( $Key + '.animation', $Hash[$Key] + '.animation' );
        $s = $s.Replace( $Key + '.visibility', $Hash[$Key] + '.visibility' );
    }
    $s;
})
[IO.File]::WriteAllText('b.txt', $str, [Text.Encoding]::UTF8);
echo 'Done';
[Console]::ReadKey()COPY
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,可指定例外固定的字符串列表
goto :ansi
rem UTF-8 编码支持
chcp 65001
cls
:ansi
@echo off
setlocal enabledelayedexpansion
set /p "strFile=请拖入处理文本:"
if not exist !strFile! (
echo;"!strFile!" 文件不找不到!!
exit /b
)
rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0
rem 例外情况定义
set exception=Extra Button
(
for /f "tokens=1* delims==" %%a in (!strFile!) do (
set s1=%%a
set s2=%%b
set z=
for %%k in (%exception%) do (if "!s1:%%k=!" neq "!s1!" (set z=y))
if "!z!!s1:~-5!" equ " name" (
for /f "tokens=1*" %%c in ("%%b") do (
if defined #%%~c (
echo;!s1!="!#%%~c!" %%d
) else (
call :getn !n! ss
set sa=%%~c
rem 保留"."后面的尾巴
if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!
echo;!s1!="!ss!" %%d
set $!n!=!ss!%%~c
set #%%~c=!ss!
set /a n+=1
)
)
) else (
if defined s2 (echo;!s1!=%%b) else (echo;!s1!)
)
)
) >temp.txt
set/a n-=1
(
for /f "tokens=*" %%a in (temp.txt) do (
set str=%%a
for /l %%1 in (0,1,!n!) do (
for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
set str=!str:@%%c=@%%b!
set str=!str:#%%c=#%%b!
)
)
echo;!str!
)
) > 结果.txt
type 结果.txt
rem 查看有多少个更改
set $
pause
exit /b
rem 计算临名字,可加上前缀
:getn
(set L=%1
set M=%1
set %2=)
:loop
set /a M=L %% 26
set %2=!%2!!ASC:~%M%,1!
if !M! neq !L! set /a L=L/26&goto :loop
goto :eofCOPY

TOP

回复 30# WHY

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

TOP

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

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

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

TOP

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

这样的问题,加价很合理啊。
[url=][/url]

TOP

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

TOP

回复 36# smss

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

TOP

<Text name="QA">COPY
找到出现替换错误的原因了,"QA"之后不是空格,而是其它字符的时,会出错,以下代码已经处理好
goto :ansi
rem UTF-8 编码支持
chcp 65001
cls
:ansi
@echo off
setlocal enabledelayedexpansion
set /p "strFile=请拖入处理文本:"
if not exist !strFile! (
echo;"!strFile!" 文件不找不到!!
exit /b
)
rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0
rem 例外情况定义
set exception=Extra Button
(
for /f "tokens=1* delims==" %%a in (!strFile!) do (
set s1=%%a
set s2=%%b
set z=
for %%k in (%exception%) do (if "!s1:%%k=!" neq "!s1!" (set z=y))
if "!z!!s1:~-5!" equ " name" (
set s3=!s2:^"= !
for /f "tokens=1* delims= " %%c in ("!s3!") do (
if defined #%%~c (
echo;!s1!="!#%%~c!" %%d
) else (
call :getn !n! ss
set sa=%%~c
rem 保留"."后面的尾巴
if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!
echo;!s1!="!ss!" %%d
set $!n!=!ss!%%~c
set #%%~c=!ss!
set /a n+=1
)
)
) else (
if defined s2 (echo;!s1!=%%b) else (echo;!s1!)
)
)
) >temp.txt
set/a n-=1
(
for /f "tokens=*" %%a in (temp.txt) do (
set str=%%a
for /l %%1 in (0,1,!n!) do (
for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
set str=!str:@%%c=@%%b!
set str=!str:#%%c=#%%b!
)
)
echo;!str!
)
) > 结果.txt
type 结果.txt
rem 查看有多少个更改
set $
pause
exit /b
rem 计算临名字,可加上前缀
:getn
(set L=%1
set M=%1
set %2=)
:loop
set /a M=L %% 26
set %2=!%2!!ASC:~%M%,1!
if !M! neq !L! set /a L=L/26&goto :loop
goto :eofCOPY

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

返回列表