统计文本中字符出现的个数，频率法破解密码 - 中国DOS联盟论坛

可以用于解码。。。这些天看到前辈们喜欢加密，而我的爱好是解码。根据字符出现的概率破解也算是解码的一种方法，但一个一个数太麻烦了，所以就写了这么一个小小程序。。。思路来自于http://www.cn-dos.net/forum/viewthread.php?tid=38030&fpage=1&highlight=
PS。。。也可以说是抄袭 ^_^

@echo off&setlocal enabledelayedexpansion
for /f "tokens=*" %%a in (Scrambled.txt) do (
	set str=%%a
	set str=!str: =!
	call :lp
)
echo 共%x%个字符。。。
for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z 1 2 3 4 5 6 7 8 9 0) do (
	set/a xy+=1
	if defined .%%a (
	set/p= %%a: !.%%a!/%x%  <nul
	) else (
	set/p= %%a: 0/%x%  <nul
	)
	if !xy! equ 2 echo.&set xy=0
)
pause>nul&exit/b



:lp
if defined str (
	set var=!str:~,1!
	if "!var!" neq "" if "!var!" neq " " (
	set/a .%var%+=1
	set/a x+=1
)
	set str=!str:~1!
	goto lp
)

[ Last edited by pusofalse on 2008-6-26 at 07:01 PM ]

第1楼　pusofalse	发表于 2008-06-26 18:46
银牌会员　发帖 646　积分 1,604
统计文本中字符出现的个数，频率法破解密码可以用于解码。。。这些天看到前辈们喜欢加密，而我的爱好是解码。根据字符出现的概率破解也算是解码的一种方法，但一个一个数太麻烦了，所以就写了这么一个小小程序。。。思路来自于http://www.cn-dos.net/forum/viewthread.php?tid=38030&fpage=1&highlight= PS。。。也可以说是抄袭 ^_^ @echo off&setlocal enabledelayedexpansion for /f "tokens=" %%a in (Scrambled.txt) do ( set str=%%a set str=!str: =! call :lp ) echo 共%x%个字符。。。 for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z 1 2 3 4 5 6 7 8 9 0) do ( set/a xy+=1 if defined .%%a ( set/p= %%a: !.%%a!/%x% <nul ) else ( set/p= %%a: 0/%x% <nul ) if !xy! equ 2 echo.&set xy=0 ) pause>nul&exit/b :lp if defined str ( set var=!str:~,1! if "!var!" neq "" if "!var!" neq " " ( set/a .%var%+=1 set/a x+=1 ) set str=!str:~1! goto lp ) [ Last edited by pusofalse on 2008-6-26 at 07:01 PM* ]

第2楼　moniuming	发表于 2008-06-26 21:02
银牌会员　发帖 574　积分 1,335　来自广西
无法处理特殊字符,要知道一个批处理中的特殊字符可不少喔