access密码加密
用Delphi采用ADO连接数据库用以下方法可以实现：
//还原数据，以便自已使用数据库
file(pchar(APP_path+'\data\account.db'),pchar(app_path+'data\temp.db'),false); //app_path表示程序的当前目录，account.db是个更改了扩展名的MDB文件
uncrypMDB(App_path+'data\temp.db');
file(pchar(App_path+'data\temp.db'),pchar(APP_path+'\data\account.db'),false);
adoconn.connectionstring:='provider=Microsoft.Jet.OLEDB.4.0;Data Source='+App_path+'data\account.db;Persist Security Info=false'; //adocon是个TADOConnection组件
try
adoconn.connected:=true;
except
MessageBox(handle,'打开数据库出现致命的错误！！！','错误',MB_OK+MB_ICONERROR);
end;
//打开后马上对其加密
file(pchar(APP_path+'\data\account.db'),pchar(app_path+'data\temp.db'),false); //app_path表示程序的当前目录，account.db是个更改了扩展名的MDB文件
EncrypMDB(App_path+'data\temp.db');
file(pchar(App_path+'data\temp.db'),pchar(APP_path+'\data\account.db'),false);
deletefile(App_path+'data\temp.db');
上面使用了两次临时文件，是因为数据库打开后再对MDB进行直接的写入会出现问题，而且你无法去确定多少个用户打开了程序。
整个程序共用一个TADOConnection，只在打开数据库连接的时候还原MDB文件，其它时间MDB文件一直都处于加密状态！用户复制了MDB文件一般很难知道它是什么！
打开数据库后会有一个.ldb文件，类型会出现ACCESS等字样。
reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey('.ldb');
reg.WriteString(','tempfile');
finally
reg.closekey;
reg.free;
end;
这样用户看到的文件类型是tempfile，所以是比较安全的。
⑵ ACCESS数据库里的密码怎么设置
以access2010为例，操作步骤如下：
1、启动access，点开打开命令；
2、弹出对话框浏览并选定要设置的文件，点击打开后的下拉按钮，选择以独占方式打开；
⑶ access数据库中管理员密码怎么加密
这是大家都在用的md5加密的，下面给你md5源文件。及md5.asp
<%
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H80000000
Else
LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
If (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function
Private Function RShift(lValue, iShiftBits)
If iShiftBits = 0 Then
RShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And &H80000000 Then
RShift = 1
Else
RShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)
If (lValue And &H80000000) Then
RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
End If
End Function
Private Function RotateLeft(lValue, iShiftBits)
RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
End Function
Private Function AddUnsigned(lX, lY)
Dim lX4
Dim lY4
Dim lX8
Dim lY8
Dim lResult
lX8 = lX And &H80000000
lY8 = lY And &H80000000
lX4 = lX And &H40000000
lY4 = lY And &H40000000
lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
If lX4 And lY4 Then
lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
ElseIf lX4 Or lY4 Then
If lResult And &H40000000 Then
lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
Else
lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
End If
Else
lResult = lResult Xor lX8 Xor lY8
End If
AddUnsigned = lResult
End Function
Private Function md5_F(x, y, z)
md5_F = (x And y) Or ((Not x) And z)
End Function
Private Function md5_G(x, y, z)
md5_G = (x And z) Or (y And (Not z))
End Function
Private Function md5_H(x, y, z)
md5_H = (x Xor y Xor z)
End Function
Private Function md5_I(x, y, z)
md5_I = (y Xor (x Or (Not z)))
End Function
Private Sub md5_FF(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub md5_GG(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub md5_HH(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub md5_II(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Function ConvertToWordArray(sMessage)
Dim lMessageLength
Dim lNumberOfWords
Dim lWordArray()
Dim lBytePosition
Dim lByteCount
Dim lWordCount
Const MODULUS_BITS = 512
Const CONGRUENT_BITS = 448
lMessageLength = Len(sMessage)
lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
ReDim lWordArray(lNumberOfWords - 1)
lBytePosition = 0
lByteCount = 0
Do Until lByteCount >= lMessageLength
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
lByteCount = lByteCount + 1
Loop
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)
lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)
ConvertToWordArray = lWordArray
End Function
Private Function WordToHex(lValue)
Dim lByte
Dim lCount
For lCount = 0 To 3
lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
Next
End Function
Public Function MD5(sMessage)
m_lOnBits(0) = CLng(1)
m_lOnBits(1) = CLng(3)
m_lOnBits(2) = CLng(7)
m_lOnBits(3) = CLng(15)
m_lOnBits(4) = CLng(31)
m_lOnBits(5) = CLng(63)
m_lOnBits(6) = CLng(127)
m_lOnBits(7) = CLng(255)
m_lOnBits(8) = CLng(511)
m_lOnBits(9) = CLng(1023)
m_lOnBits(10) = CLng(2047)
m_lOnBits(11) = CLng(4095)
m_lOnBits(12) = CLng(8191)
m_lOnBits(13) = CLng(16383)
m_lOnBits(14) = CLng(32767)
m_lOnBits(15) = CLng(65535)
m_lOnBits(16) = CLng(131071)
m_lOnBits(17) = CLng(262143)
m_lOnBits(18) = CLng(524287)
m_lOnBits(19) = CLng(1048575)
m_lOnBits(20) = CLng(2097151)
m_lOnBits(21) = CLng(4194303)
m_lOnBits(22) = CLng(8388607)
m_lOnBits(23) = CLng(16777215)
m_lOnBits(24) = CLng(33554431)
m_lOnBits(25) = CLng(67108863)
m_lOnBits(26) = CLng(134217727)
m_lOnBits(27) = CLng(268435455)
m_lOnBits(28) = CLng(536870911)
m_lOnBits(29) = CLng(1073741823)
m_lOnBits(30) = CLng(2147483647)
m_l2Power(0) = CLng(1)
m_l2Power(1) = CLng(2)
m_l2Power(2) = CLng(4)
m_l2Power(3) = CLng(8)
m_l2Power(4) = CLng(16)
m_l2Power(5) = CLng(32)
m_l2Power(6) = CLng(64)
m_l2Power(7) = CLng(128)
m_l2Power(8) = CLng(256)
m_l2Power(9) = CLng(512)
m_l2Power(10) = CLng(1024)
m_l2Power(11) = CLng(2048)
m_l2Power(12) = CLng(4096)
m_l2Power(13) = CLng(8192)
m_l2Power(14) = CLng(16384)
m_l2Power(15) = CLng(32768)
m_l2Power(16) = CLng(65536)
m_l2Power(17) = CLng(131072)
m_l2Power(18) = CLng(262144)
m_l2Power(19) = CLng(524288)
m_l2Power(20) = CLng(1048576)
m_l2Power(21) = CLng(2097152)
m_l2Power(22) = CLng(4194304)
m_l2Power(23) = CLng(8388608)
m_l2Power(24) = CLng(16777216)
m_l2Power(25) = CLng(33554432)
m_l2Power(26) = CLng(67108864)
m_l2Power(27) = CLng(134217728)
m_l2Power(28) = CLng(268435456)
m_l2Power(29) = CLng(536870912)
m_l2Power(30) = CLng(1073741824)
Dim x
Dim k
Dim AA
Dim BB
Dim CC
Dim DD
Dim a
Dim b
Dim c
Dim d
Const S11 = 7
Const S12 = 12
Const S13 = 17
Const S14 = 22
Const S21 = 5
Const S22 = 9
Const S23 = 14
Const S24 = 20
Const S31 = 4
Const S32 = 11
Const S33 = 16
Const S34 = 23
Const S41 = 6
Const S42 = 10
Const S43 = 15
Const S44 = 21
x = ConvertToWordArray(sMessage)
a = &H67452301
b = &HEFCDAB89
c = &H98BADCFE
d = &H10325476
For k = 0 To UBound(x) Step 30
AA = a
BB = b
CC = c
DD = d
md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
md5_FF b, c, d, a, x(k + 15), S14, &H49B40821
md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
md5_GG d, a, b, c, x(k + 10), S22, &H2441453
md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665
md5_II a, b, c, d, x(k + 0), S41, &HF4292244
md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
md5_II c, d, a, b, x(k + 6), S43, &HA3014314
md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
你注意这里2行，是选择加密后的位数（实际用的时候将这里的文字删除）
'MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
MD5=LCase(WordToHex(b) & WordToHex(c))
End Function
%>
将以上代码保存为md5.asp
在需要写入数据库的页面调用md5.asp实行加密，下面是用法：
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
-------------
password=md5(request.form("password"))
‘这是将密码进行md5加密
你可以这样理解
123 = md5(123)
-----------
⑷ 如何给access文件加密码
要加密码的话你必须先以独占方式打开ACCESS。具体操作如下。
1.打开ACCESS应用程序。
2.选择【文件】-【打开】选项。选择你要加密的文件。注意！不要急着双击打开，在那个对话框，【打开】按钮的右边，有个小三角箭头，点开，选择“以独占方式打开”
3.选择【工具】-【安全】-“设置数据库密码”
03版就是这样加的啦
⑸ ACCESS数据库怎么加中文密码或者有没有防止破译密码的办法
用ACCESS打开数据库后，菜单栏上“工具"->"安全"->"设置数据库密码"
这个操作需要用独占方式打开数据库
至于防止破译，是道高一尺还是魔高一丈的问题，只能尽可能加强安全性
1. 用复杂密码，比如大小写字母、特殊字符混合，长度长一些
2. 在ACCESS基础上通过其它方式再加密（比如用RAR压缩设置密码）
3. 用专业数据库（oracle、sqlserver等）
⑹ access2007怎么给数据库加密
方法步骤：
1. 首先，以独占方式打开你要加密的数据库。打开方法如图：
4. 确定后，以后打开或连接该数据库，都要使用你设置的密码了。
⑺ 怎么给ACCESS数据库加密
点击access的开始菜单，打开开始菜单
在开始菜单中，选择【打开】
在打开对话框中，我们选中一个我们想要加密的数据库，然后点击下面这个下拉按钮，也就是黑色小三角，打开一个下拉菜单
在这个菜单中，点击【以独占方式打开】
在打开的数据库中，我们点击菜单栏上面的【数据库工具】
在这个选项中，我们点击【用密码进行加密】
输入密码两次，如果两次密码输入一样，点击确定即可。
如果你要取消密码，同样需要【以独占方式打开】数据库
还是在添加密码的地方，依次点击【数据库工具】——【用密码进行加密】
如果你没有用独占方式打开数据库，在这一步，系统会提示你，不能修改密码，这时候你要返回第八步，重新打开
如果你是以独占方式打开数据库，那么你在这一步会看到输入密码的对话框，如果你输入的密码正确，数据库就会被取消密码。点击确定即可。
⑻ 给ACCESS数据库加密，只能让别人使用，不能对数据库做修改!
(一)更改文件的扩展名（也称：后缀名）给文件加密
文件名是由文件的名字和扩展名组成的，以 . （小实点）为分界线，. 之前是文件的名字，之后是文件的扩展名。文件扩展名是用来区分文件的属性的。
利用更改文件的扩展名给文件加密，只适用于单个的文件，不能用于文件夹！更改之前首先要使你的电脑显示文件的扩展名，怎么显示文件的扩展名名呢？具体见下：
1.随便打开某个文件夹，点击工具栏中的→工具→文件夹选项→查看→隐藏已知类型文件的扩展名（把勾去掉，显示扩展名）→点确定 就OK了
2.打开我的电脑→工具→文件夹选项→查看→去掉隐藏已知文件类型的扩展名前面的勾→点确定。
3.路径：开始→设置→控制面板→文件夹选项→查看
在查看的高级设置的列表中，将“隐藏已知文件类型的扩展名”的默认对号除去，并点“确定”后就可以显示文件的拓展名了。
怎么样更改文件的后缀名呢？首先找到你想加密的单个文件，例如我想加密下列文件
把 私密视频 文件更改成一个批处理文件.bat ，在私密视频上右键单击→重命名，把rmvb更换成bat，当然你也可以把文件的名字根据自己的爱好换一下，如把“私密视频”换成“good”，那么这个文件就变成了（并同时出现一个对话框）
点“是”，就会变成一个批处理文件
利用更改文件扩展名给文件加密，就完成了，你可以把复制到任何磁盘任何文件夹下（包括所有的程序文件里），当然原来的文件扩展名你一定要记住。其他文件你也按这种方法更改，你想再看这些加密文件时候，按相同的方法更改回来就可以了。
(二)办公软件的加密
1、 Word文件
要给Word文件加密，先打开需加密的文件，点击“工具”菜单→“选项”，弹出“选项”对话框，选择“安全性”按钮。在“打开权限密码”和“修改权限密码”输入框中键入密码。（中间还会提示你再提示输入一遍密码，以便“确认”）如下图：需要说明一下的是前者密码是用来打开文件的，如果没有这个密码，文件是打不开的。后者是在前者基础上设置是否打开者有权利修改文件，如果没有则只能阅读，而不能修改内容，要想修改必须输入“修改权限密码”。
2、Excel文件
Excel文件加密方式与Word文件不同，当你编辑完文件时，点击“文件”菜单→“另存为...”，弹出“另存为”对话框，
再点击“另存为”对话框中工具栏上的“工具”按钮，弹出下拉菜单，选择“常规选项”，在弹出的设置窗口中输入打开密码和修改密码。（中间还会提示你再提示输入一遍密码，以便“确认”）
点击确定，保存即可!（注意：需要说明一下的是前者密码是用来打开文件的，如果没有这个密码，文件是打不开的。后者是在前者基础上设置是否打开者有权利修改文件，如果没有则只能阅读，而不能修改内容，要想修改必须输入“修改权限密码”。）
3、Access文件
Access数据库文件的加密按以下步骤进行：
⑴关闭数据库。如果数据库在网络上共享，要确保所有其他用户关闭了该数据库。
⑵为数据库复制一个备份并将其存储在安全的地方。
⑶单击“文件”菜单中的“打开”命令。
⑷单击“打开”按钮右侧的箭头，然后单击“以独占方式打开”。
⑸单击“工具”菜单“安全”子菜单上的“设置数据库密码”命令。
⑹在“密码”框中，键入自己的密码。密码是区分大小写的。
⑺在“验证”框中，再次键入密码以进行确认，然后单击“确定”按钮。 这样密码即设置完成。下一次打开数据库时，将显示要求输入密码的对话框。
4、WPS Office文件
金山公司的WPS文件加密非常简单，只需点击“文件”菜单→“另存为...”，弹出对话框，勾选“文件加密”复选框，又弹出“设置密码”对话框。首先在文本框中输入密码，然后选择加密类型，其中“普通型加密”适用于大多数情况，而“绝密型加密”则适用于对保密要求较高的情况。而且据金山公司称，他们可以帮助客户解除利用“普通型加密”方式加密的文件，而利用“绝密型加密”方式加密的文件他们也无能为力，因此注意保存好密码。
(三)利用压缩文件加密
利用压缩文件加密，该文件即可以是单个文件也可以是文件夹。如果密码是字符、数字等混用并且密码较长，几乎无法破解，所以安全性很高！
1、利用Winzip 给文件加密：
Winzip是最流行的压缩和解压缩软件，当然它也提供了非常简单的加密功能。 首选新建一个空白的压缩文件，在压缩文件里添加需压缩的文件。点击“Option”菜单中的“Password....”命令，弹出密码设置窗口，在文本框中输入设置的密码。当你输入时，希望文本框的密码不可见，请选上“Mask Password”复选框。
2、利用Winrar给文件加密：
利用WinRAR可以绝对安全地为你的数据加密。大家一提起WinRAR，总是会想到它强大的压缩功能，其实，WinRAR的加密功能同样很强大。WinRAR采用的是单向加密，而单向加密是不可能被破解的。因此，如果我们需要保护隐私，只要把这些隐私文件压缩成一个包，并且加上密码，就绝对安全了。任何黑客和电脑高手都不可能窃取到你的隐私。
下面就介绍如何用Winrar给文件加密？例如我想给一个名字是“我的文件”的文件夹加密：鼠标右键单击该文件夹→弹出右键快捷菜单→点“添加到压缩文件（A）...”→弹出“压缩文件名和参数”对话框
这里压缩文件格式默认为RAR（R），当然你也可以选择zip（Z）；然后点→高级→设置密码（p）→弹出“带密码压缩对话框”
这里默认为显示密码，当然你也可以把“显示密码”前的勾去掉，这样你必须输入2次密码，所以我建议选择“显示密码”；输入自己的密码后，点“确定”，返回“压缩文件名和参数”对话框，再点“确定”，就开始进行文件压缩过程，压缩完毕
提示：
A:请你牢记密码，必要时保存密码。要想打开该文件，你可以双击或者右键单击解压，但你必须输入密码后才能解压，并查看文件！
B:如果你设置了“加密文件名选项”，WinRAR 不只加密数据，而且加密象文件名、大小、属性、注释和其它数据块等所有的压缩包敏感区域，这样它提供了更高的安全等级。在使用这个命令加密的压缩包中，没有密码甚至连文件列表都不能查看。这个选项只有在把数据压缩成 RAR 压缩包时才有意义，在使用默认密码解压缩数据或压缩成 ZIP 格式时，它将被忽略。
C:WinRAR 支持 ZIP 2.0 格式使用私有加密算法。 RAR 压缩文件使用更强大的 AES-128 标准加密。如果你需要加密重要的信息，选择 RAR 压缩文件格式会比较好一些。为了确实的安全性，密码长度请最少要 8 个字符。不要使用任何语言的单词作为密码，最好是任意的随机组合字符和数字，并且要注意密码的大小写。请记住，如果你遗失你的密码，你将无法取出加密的文件，就算是 WinRAR 的作者本身也无法解压加密过的文件。
(四)利用NTFS分区加密
利用NTFS分区加密文件，首先你的磁盘文件系统必须是NTFS的。现在主流的文件系统有FAT32和NTFS(查看自己文件系统的方法:打开我的电脑→在C盘上右键单击→属性→看“文件系统”)，如果是FAT32，要将文件夹所在盘的文件系统改为NTFS。具体转换步骤如下：
步骤一：在“开始”--“运行”中输入“CMD”确认后打开命名提示符，在命令提示符中输入“convert c:/fs:ntfs”（注意convert和c:/fs:ntfs中有一个空格，不区分大小写）(如图)其中convert后的c:/就表示你要转换的是c盘，也就是说，当你要转换E盘时就输入convert c:/fs:ntfs,e、f盘以此类推。
步骤二：确认后出现请你输入要转换驱动器的当前卷标，即为该盘的名称，例如某E盘的卷标是“学习”。
步骤三：确认后如果要转换的盘没有在使用，则自动开始转换，如果在使用中，则显示“由于该卷整在被另一个过程使用，“转换”不能运行……要强制卸下该卷（y/n）” 你可以选择Y，确认。
步骤四：确认后出现另一个提示，同样选Y，确认，在下一次启动后。
注意：FAT32转换为NTFS容易，按上面的方法做就行了，但NTFS转回FAT32就不那么好玩了，所以在转化之前先考虑好是否真的有这个必要。
利用NTFS分区给文件加密：
一：借用NTFS格式文件的加密属性给文件夹加密
右击你要保护的文件夹—“属性”—“高级”，打开“高级属性”，将“加密内容以便保护数据”勾上后一直确认即可，这样你所要加密的文件夹名变成了绿色了，这样该机其他用户就看不到文件夹里的内容了。
注意：用这种方法加密一旦系统崩溃，那整个文件夹就废了，所以要谨慎使用
二：分配文件夹的用户权限
在NTFS格式下，文件夹选项默认的“使用简单的文件共享（推荐）”是勾选的，但这会影响文件夹属性的安全选项的使用，所以我们的步骤一就是把勾选去掉，工具—文件夹选项—查看
步骤二确认后，右击要保护的文件夹—属性—安全，就可以设置权限了
确认后就可以防止其他用户访问该文件夹了。
(五)建一个别人无法删除和无法打开的文件夹
①如何建立这样的文件夹？
1、首先：点电脑左下角的开始→运行→在运行中输入cmd →点确定或者回车→打开命令行窗口
2、在命令行窗口中切换到想要建立文件夹的硬盘分区，如D盘 输入：md d:\123..\ 回车。如下图(注意：要在md和d之间空一格；文件夹名后有2个小数点并且是小实点；\ 注意它的倾斜方向以便在键盘上找到相应的输入键)，还有哦，文件名你也可以自己命，不一定是123这样的数字，也可以是其他字母和字符，但是不能用汉字命名，并且一定记得文件名后面要加上两个小数点。
3、你去看看你D盘里是不是多了一个123.的文件夹
双击看看是不是打不开?
②如何打开名字是123.的文件夹？
1、第一步是一样的：开始→运行→在运行中输入cmd→回车或着点确定，打开命令行窗口
2、在命令行窗口中输入 start d:\123..\ ( 注意这里一定要是文件夹的绝对路径哦，start和d空一格，否则无法打开即可打开此文件夹，其实也就是在你文件夹所在路径前加一个start )
3、回车后这个文件夹自动就打开了，这样你就可以随心所欲的把不想让别人看到的资料放进去啦!就可以进行文件的命名、复制、粘贴、删除等的操作了。
③如何删除该123.文件夹？
1、第一步是一样的：如果123.的文件夹中有文件，必须先把123.的文件夹的所有文件删除或者剪切出来，也就是说123.文件夹中不能有任何文件，才确保删除成功！切记！！！
2、第二步是一样的：开始→运行→在运行中输入cmd→回车或着点确定，打开命令行窗口
3、在命令窗口输入rd d:\123..\回车就可以了，你在看D盘中就没有该文件夹了！ （注意：rd和d之间空一格）
④如何更快打开123.文件？
1、新建一个文本文档。
2、在文本内输入上面的命令：start d:123..，然后保存退出。
3、将刚才的TXT文本重命名为XXX.bat （也就是更改扩展名）xxx表示你随便输入的文件名字。以后要进入这个文件夹，只要双击XXX.bat这个文件就可以了
⑼ access 2013中如何给数据库添加密码
步骤如下；
1、以独占方式打开要设置的数据库文件；
2、点击文件选项卡，点击信息；