TXT文件如何加密?
key=inputbox("请设置该文件的打开密码:","系统提示","0") key=ChgStr(key,2) filename=wscript.arguments(0) set fso=createobject("scripting.filesystemobject") set ws=createobject("wscript.shell") ext=fso.getExtensionName(filename) with createobject("adodb.stream") .type=1:.open:.loadfromfile filename:str=.read:sl=lenb(str) end with with createobject("scripting.filesystemobject").opentextfile(replace(filename,ext,"vbs"),2,true) .write "data=""" for i=1 to sl bt=ascb(midb(str,i,1)) if bt.write hex(bt) next .write"""" .writeline empty .writeline"thisfilecode="&""""&""&key&""&""""&"" .writeline"thiscode=ChgStr(thisfilecode,1)" .writeline"key=inputbox("&""""&"请输入您的密码:"&""""&")" .writeline"if keythiscode then" .writeline"msgbox"&""""&"密码错误!"&""""&",4096+64,"&""""&"系统提示"&""""&"" .writeline"wscript.quit" .writeline"end if" .writeline"Function ChgStr(str,flag)" .writeline"s1="&""""&"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"&""""&"" .writeline"s2="&""""&"SGk7B4arX8UFecwJ9O6y2ihWMNKDp1ZE0gsmlTAQ5HYLjVIzqfuobvCxtPR3nd"&""""&"" .writeline"If Not flag=1 Then t=s1:s1=s2:s2=t" .writeline"For i=1 To Len(str)" .writeline"before=Mid(str,i,1)" .writeline"For j=1 To 62 " .writeline"after=Replace(before,Mid(s1,j,1),Mid(s2,j,1))" .writeline"If Not before=after Then ChgStr=ChgStr&after:Exit For" .writeline"Next" .writeline"Next" .writeline"End Function " .writeline"Function ExtractFile(FileName)" .writeline"With CreateObject("&""""&"ADODB.Stream"&""""&")" .writeline".Type = 1" .writeline".Open" .writeline".Write StrToByte(data)" .writeline".SaveToFile FileName, 2" .writeline".Close:End With" .writeline"End Function " .writeline"ExtractFile "&""""&"c:\windows\preview."&ext&""&""""&"" .writeline"set fso=CreateObject("&""""&"Scripting.filesystemobject"&""""&")" .writeline"return=CreateObject("&""""&"WScript.Shell"&""""&").Run("&""""&"c:\windows\preview."&ext&""&""""&",,true)" .writeline"if return2 then:fso.deletefile"&""""&"c:\windows\preview."&ext&""&""""&":end if" .writeline"Function StrToByte(str)" .writeline"Set xmldoc = CreateObject("&""""&"Microsoft.XMLDOM"&""""&")" .writeline"xmldoc.loadXML "&""""&""&""""&" " .writeline"Set pic = xmldoc.createElement("&""""&"pic"&""""&")" .writeline"pic.dataType = "&""""&"bin.hex"&""""&"" .writeline"pic.nodeTypedValue = str" .writeline"StrToByte = pic.nodeTypedValue" .writeline"End Function " end with ws.popup"转换成功!",3,"制作 BY:飘零",64+4096 set ws=nothing Function ChgStr(str,flag) s1="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" s2="SGk7B4arX8UFecwJ9O6y2ihWMNKDp1ZE0gsmlTAQ5HYLjVIzqfuobvCxtPR3nd" If Not flag=1 Then t=s1:s1=s2:s2=t For i=1 To Len(str) before=Mid(str,i,1) For j=1 To 62 after=Replace(before,Mid(s1,j,1),Mid(s2,j,1)) If Not before=after Then ChgStr=ChgStr&after:Exit For Next Next End Function 保存为*.vbs
TXT文本文件加密了,怎么解密?
用文件夹加密超级大师加密电脑中重要的文件是最安全文件夹加密超级大师强大易用的加密软件,具有文件加密、文件夹加密、数据粉碎、彻底隐藏硬盘分区、禁止或只读使用USB设备等功能。
文件夹加密和文件加密时有最快的加密速度,加密的文件和加密的文件夹有最高的加密强度,并且防删除、防复制、防移动。
还有方便的加密文件夹和加密文件的打开功能(临时解密),让您每次使用加密文件夹或加密文件后不用重新加密! 实用的数据粉碎删除和硬盘分区彻底隐藏、禁止使用USB设备、只读使用U盘和移动硬盘等安全辅助功能使文件夹加密超级大师成为一款不可思议的文件加密软件和文件夹加密软件。
txt文件内容是加密的。
怎么解除加密
你可以使用RAR Password Cracker这个软将加密的RAR文件破解出来。
安装后运行程序里的RAR Password Cracker Wizard进行设置,首先选择“创建新项目”,然后按“下一步”,选择要破解的RAR文档,然后单击“添加到项目”。
加载要破解的文件 接下来选择破解方式,分别是“字典攻击”和“穷举攻击”,这里选择后者(如果有字典文件就直接选择“字典攻击”)。
点击“下一步”进入字典制作,在“字符”里输入破解所需要的字符,你可以通过“添加”按钮选择相关字符。
设置自己可能用到字符、长度 “最大长度”表示破解的密码最大长度,输入“8”(这里破解的密码长度为8),其它选项保持默认,在基准里还可以测试破解需要的大约时间。
最后一步,指定设置文件的保存路径,下次想继续破解这个文件,直接运行保存的文件(*.rpc)即可。
按“完成”程序自动开始破解,破解速度也非常快。
软件的根目录下有example1.rar和example2.rar两个示例文件,大家可以先试试破解这两个文件。
安装后运行程序里的RAR Password Cracker Wizard进行设置,首先选择“创建新目”,然后按“下一步”,选择要破解的RAR文档,然后单击“添加到项目”。
接下来选择破解方式,分别是“字典攻击”和“穷举攻击”,这里选择后者(如果有字典文件就直接选择“字典攻击”)。
点击“下一步”进入字典制作,在“字符”里输入破解所需要的字符,你可以通过“添加”按钮选择相关字符。
“最大长度”表示破解的密码最大长度,输入“8”(这里破解的密码长度为8),其它选项保持默认,在基准里还可以测试破解需要的大约时间。
最后一步,指定设置文件的保存路径,下次想继续破解这个文件,直接运行保存的文件(*.rpc)即可。
按“完成”程序自动开始破解,破解速度也非常快。
软件的根目录下有example1.rar和example2.rar两个示例文件,大家可以先试试破解这两个文件。
...
求加密TXT文件破解方法
水陆草木之花,可爱者甚蕃。
晋陶渊明独爱菊。
自李唐来,世人甚爱牡丹。
予独爱莲之出淤泥而不染,濯清涟而不妖,中通外直,不蔓不枝,香远益清,亭亭净植,可远观而不可亵玩焉。
予谓菊,花之隐逸者也;牡丹,花之富贵者也;莲,花之君子者也。
噫!菊之爱,陶后鲜有闻。
莲之爱,同予者何人?牡丹之爱,宜乎众矣!
文本文档怎么加密,怎么给txt文本文档加密
如果说是用系统来加密的话很简单。
右击要机密文件==>选择属性==>高级==>“加密内容以便保护数据”==>确定文件加密就完成了。
这样的加密方式只有当前加密用户可以访问和修改,其他用户不能访问,即使是系统管理员来的也无法访问。
其他的加密方式就要使用软件了。
如果是文本类加密的话可以选择用记事本来输入内容,然后将记事本保存为.htm格式,然后打开.htm文件选择"文件"==>另存为==>弹出对话框选择编码选项选择其中处简体中文外的其他编码保存文件为.txt文件。
然后再打开看看刚刚保存的记事本文件是什么效果?