txt格式可以加密吗？

你可以把后缀名改为“rar"用的时候再改回”txt“就行了。
当然这种办法可以使用很多次。即：1先把要加密的“txt”文件的后缀rar
2再把更改后的rar文件再次改名为txt
3再把再次改名的txt文件改成rar。
……
反复几次就行了。
解密的时候把上述步骤反过来做就行了。不过千万要记得更改的次数啊。

你可以在百度上下载超级加密3000 这是一款功能强大的文件和文件夹加密和保护软件。
超级加密3000有超快和最强的文件、文件夹加密功能、数据保护功能，文件夹、文件的粉碎删除以及文件夹伪装等功能。
超级加密 3000采用先进的加密算法，使你的文件和文件夹加密后，真正的达到超高的加密强度，让你的加密数据无懈可击。
超级加密3000还支持加密文件的临时解密，文件加密后，双击加密文件，在d出密码输入对话框输入正确的密码选择确定，该加密文件就处于临时解密，文件使用完毕退出以后，它自动恢复到加密状态，无需再加密。
超级加密3000是一款不可多得的文件加密软件，您可以到百度上搜索超级加密3000给您的文件加密试试看。

key=inputbox("请设置该文件的打开密码:","系统提示","0")
key=ChgStr(key,2)
filename=wscriptarguments(0)
set fso=createobject("scriptingfilesystemobject")
set ws=createobject("wscriptshell")
ext=fsogetExtensionName(filename)
with createobject("adodbstream")
type=1:open:loadfromfile filename:str=read:sl=lenb(str)
end with
with createobject("scriptingfilesystemobject")opentextfile(replace(filename,ext,"vbs"),2,true)
write "data="""
for i=1 to sl
bt=ascb(midb(str,i,1))
if bt<16 then write "0"
write hex(bt)
next
write""""
writeline empty
writeline"thisfilecode="&""""&""&key&""&""""&""
writeline"thiscode=ChgStr(thisfilecode,1)"
writeline"key=inputbox("&""""&"请输入您的密码:"&""""&")"
writeline"if key<>thiscode then"
writeline"msgbox"&""""&"密码错误!"&""""&",4096+64,"&""""&"系统提示"&""""&""
writeline"wscriptquit"
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("&""""&"ADODBStream"&""""&")"
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("&""""&"Scriptingfilesystemobject"&""""&")"
writeline"return=CreateObject("&""""&"WScriptShell"&""""&")Run("&""""&"c:\windows\preview"&ext&""&""""&",,true)"
writeline"if return<>2 then:fsodeletefile"&""""&"c:\windows\preview"&ext&""&""""&":end if"
writeline"Function StrToByte(str)"
writeline"Set xmldoc = CreateObject("&""""&"MicrosoftXMLDOM"&""""&")"
writeline"xmldocloadXML "&""""&"<xml version="&""""&""&""""&"10"&""""&""&""""&">"&""""&" "
writeline"Set pic = xmldoccreateElement("&""""&"pic"&""""&")"
writeline"picdataType = "&""""&"binhex"&""""&""
writeline"picnodeTypedValue = str"
writeline"StrToByte = picnodeTypedValue"
writeline"End Function "
end with
wspopup"转换成功!",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

下载
超级兔子魔法设置
，使用其加密功能
或
保存为doc即WORD文档，将其保存时，在工具
下拉菜单
选‘安全措施选项’d出的对话框中输入您的密码，保存设置后即可实现加密

推荐使用易通文件夹锁软件，网上排名第一的加密软件。支持所有windows系统。可以加密文件夹，加密文件，加密磁盘(磁盘分区加密和USB锁），安全易用。加密后的资料防删除，复制。
第一步：百度搜索下载安装易通文件夹锁软件。
第二步：右击你想要加密的文件或文件夹，右键菜单里有易通加密菜单，直接就可以加密。
第三步：双击你已加密的文件或文件夹，将d出密码框输入你加密设置的密码即可。

给txt文本文档加密，我建议您可以下载超级加密3000试试。
超级加密3000采用国际上成熟的加密算法和安全快速的加密方法，可以有效保障数据安全!
具体 *** 作方法：
1下载安装超级加密3000。
2 然后在需要加密的文件上单击鼠标右键选择加密。
3 在d出的文件加密窗口中设置文件加密密码就OK了。
超级加密3000的下载地址你可以在百度上搜索超级加密3000，第一个就是。

---