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、點擊文件選項卡，點擊信息；