100元人民币求bat或Powershell处理文本内容【已解决】

WHY · 发表于 2019-5-23 11:23:53

本帖最后由 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()

复制代码

smss · 发表于 2019-5-23 13:03:46

本帖最后由 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>

smss · 发表于 2019-5-23 15:09:53

回复 smss

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

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

netbenton · 发表于 2019-5-23 15:15:25

本帖最后由 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 :eof

复制代码

523066680 · 发表于 2019-5-23 15:37:27

回复 30# WHY

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

smss · 发表于 2019-5-23 15:52:27

本帖最后由 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);

复制代码

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"
pause

复制代码

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()

复制代码

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);^
};^
}
pause

复制代码

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);^
};^
}
pause

复制代码

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);^
};^
}
pause

复制代码

523066680 · 发表于 2019-5-23 16:14:19

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

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

smss · 发表于 2019-5-23 16:26:02

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

zaqmlp · 发表于 2019-5-23 16:37:25

回复 36# smss

“中伤”是你的用词，我只是说了会乱码的事实，而且你自己23楼也验证了;需求一再变动，加价很合理，买卖不成，仁义要在，你在这煽动情绪也没用

netbenton · 发表于 2019-5-23 16:38:46

<Text name="QA">

复制代码

找到出现替换错误的原因了，"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 :eof

复制代码

smss · 发表于 2019-5-23 17:12:30

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

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

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

zaqmlp · 发表于 2019-5-23 17:31:40

回复 41# smss

事实你最初的方式就是不行呀，如果只按你最初的需求，替换后为什么你要一再变更需求，而且我让你找出替换后不对的地方，你一直跟我扯手机不行有什么用，你要告诉我哪里替换不对

xczxczxcz · 发表于 2019-5-23 20:37:06

回复 35# 523066680

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

xczxczxcz · 发表于 2019-5-23 20:43:18

回复 41# smss

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

smss · 发表于 2019-5-23 20:47:29

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

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

100元人民币求bat或Powershell处理文本内容【已解决】

评分

浏览过的版块

100元人民币 求bat或Powershell处理文本内容【已解决】

评分

浏览过的版块

100元人民币求bat或Powershell处理文本内容【已解决】