&&针对这一摩尔码加解密,本人弄了个vbs+批版的,当然为了方便先生成了一个list.txt。
该工具可以同时将转译结果显示出来并输入到剪贴板中,你只要在文本中右键或ctrl+v就
可以输出结果到文本。- dim path,strinput,stroutput,counter
- counter=2
- do
- on error resume next
- if counter=1 then
- exit do
- else
- strinput=inputbox("请输入要转译的文字或编码,退出请点取消","转译工具")
- if strinput=false then
- wscript.quit
- else
- set wshshell=createobject("wscript.shell")
- path=wshshell.currentdirectory
- set objie=createobject("internetexplorer.application")
- set objfso=createobject("scripting.filesystemobject")
- set objtext=objfso.opentextfile("temp.txt",2,true)
- objtext.write strinput
- objtext.close
- set objtext=objfso.opentextfile("temp.bat",2,true)
- objtext.writeline "@echo off&setlocal enabledelayedexpansion"
- objtext.writeline "set /p input=<temp.txt&del /q temp.txt&set "&chr(34)&"k= "&chr(34)
- objtext.writeline "if "&chr(34)&"%input:-=%"&chr(34)&" neq "&chr(34)&"%input%"&chr(34)&" set "&chr(34)&"k="&chr(34)&"&set "&chr(34)&"str=%input%"&chr(34)&"&goto next"
- objtext.writeline ":lp"
- objtext.writeline "set "&chr(34)&"str=%str% %input:~,1%"&chr(34)
- objtext.writeline "set "&chr(34)&"input=%input:~1%"&chr(34)
- objtext.writeline "if defined input goto lp"
- objtext.writeline ":next"
- objtext.writeline "for /f "&chr(34)&"tokens=1,2"&chr(34)&" %%a in ('findstr /r "&chr(34)&"%str%"&chr(34)&" list.txt') do ("
- objtext.writeline "if "&chr(34)&"%k%"&chr(34)&" equ "&chr(34)&""&chr(34)&" ("
- objtext.writeline "set "&chr(34)&"%%a=%%b"&chr(34)
- objtext.writeline ") else ("
- objtext.writeline "set "&chr(34)&"%%b=%%a"&chr(34)
- objtext.writeline "))"
- objtext.writeline "for %%a in (%str%) do set /p=!%%a!%k%<nul>>temp.txt"
- objtext.close
- wshshell.run "temp.bat",0
- wscript.sleep 1000
- set objtext=objfso.opentextfile("temp.txt",1)
- stroutput=objtext.readall
- objtext.close
- objie.navigate("about:blank")
- objie.document.parentwindow.clipboarddata.setdata "text", stroutput
- objie.quit
- wshshell.popup stroutput,2,"转译结果"
- objfso.deletefile("temp.bat")
- objfso.deletefile("temp.txt")
- set objfo=nothing
- set objie=nothing
- set swshshell=nothing
- end if
- end if
- loop
复制代码 注:转译的时间长是因为防出错加入了wscript.sleep 1000,你可以修改这个1000的值来加快速度 |