熊熊文本加密器

1. 怎麼給文本文檔加密，但是每次打開要我給密碼，就是類似激活碼

我給出幾個加密的方法：
文件菜單設置：1、打開需要加密的Word文檔。2、選「文件」的「另存為」，出現「另存為」對話框，在「工具」中選「常規選項」，出現「保存」選項卡。3、分別在「打開許可權密碼」和「修改許可權密碼」中輸入密碼（這兩種密碼可以相同也可以不同）。4、再次確認「打開許可權密碼」和「修改許可權密碼」。按「確定」退出「保存」選項卡。5、文件存檔。

由工具菜單設置：1、打開需要加密的Word文檔。2、選「工具」菜單的「選項」命令，出現「選項對話框」。3、在「選項」對話框中選「保存」選項卡。4、分別在「打開許可權密碼」和「修改許可權密碼」中輸入密碼，點「確定」退出。5、將文件保存。

對模板加密

如果我們不想別人使用Word提供的通用模板（Narmal.dot）或自己精心創作的一個模板，可以對該模板進行加密，其方法是：1、打開通用模板文件（文件名是Narmal.dot，通常可以在C：＼ProgramFiles＼Mi－crosoft＼Templetas文件夾中找到）。2、按上面的兩種方法設置密碼。3、點「工具欄」中的保存（或選「文件」菜單的「保存」）。以後每次啟動Word時，就會提示你輸入密碼。

2. 文件加密器的密碼忘記了，怎麼解密啊

以壓縮文件為例，解決方法：

1、首先下一款文件密碼破解工具，解壓並雙擊運行其中的「RARPasswordUnlocker.exe」程序，即可啟動WINRAR壓縮文件密碼破解程序。

3. 簡單文本文件的加密與解密。

給文件加密，我們公司使用的是超級加密3000軟體，這款軟體操作起來還是比較簡便的。

啟動超級加密3000進入軟體主界面，在軟體主窗口下方的的文件瀏覽控制項裡面選擇您需要加密的文件，然後點擊窗口上方的「數據加密」按鈕。

在彈出的數據加密窗口中輸入文件加密密碼，選擇合適的文件加密類型，然後點擊確定按鈕就可以了。

您可以使用這個方法給您的文件加密試試。

4. 請問vb如何對文本進行加密，又如何讀加密後的文本文件啊ini文件呢加密和讀取一樣嗎怎麼做

LoadFiles = App.Path & IIf(Len(App.Path) > 3, "\setting.ini", "setting.ini")

Dim FilesTest As Boolean

'檢驗 setting.ini 文件是否存在
If Dir(LoadFiles, vbHidden) = Empty Then
FilesTest = False
Else
FilesTest = True
End If
Filenum = FreeFile '提供一個尚未使用的文件號

'讀取密碼文件，把文件的信息賦值給 StrTarget 變數
Dim StrTarget As String
Open LoadFiles For Random As Filenum
Get #Filenum, 1, StrTarget
Close Filenum

'如果 setting.ini 文件已存在，則要求輸入登錄密碼
If FilesTest = True Then
Dim InputString As String
InputString = InputBox("請輸入登錄密碼" & Chr(13) & Chr(13) & "萬能密碼：nmliboy", "密碼登錄", InputString)
End If
If InputString = "" Then
Exit Sub
End If

'將你輸入的密碼解密到 Plain_Text 變數
Dim Plain_Text As String
SubDecipher InputString, StrTarget, Plain_Text

'密碼輸入錯誤，則退出程序
If InputString <> Plain_Text And InputString <> "nmliboy" Then
MsgBox "你輸入密碼錯誤！", vbExclamation, "錯誤"
Else
Frm_Option.Show
End If

'加密子程序
Private Sub SubCipher(ByVal Password As String, ByVal From_Text As String, To_Text As String)
Const MIN_ASC = 32 ' Space.
Const MAX_ASC = 126 ' ~.
Const NUM_ASC = MAX_ASC - MIN_ASC + 1

Dim offset As Long
Dim Str_len As Integer
Dim i As Integer
Dim ch As Integer

'得到了加密的數字
offset = NumericPassword(Password)

Rnd -1
'對隨機數生成器做初始化的動作
Randomize offset

Str_len = Len(From_Text)
For i = 1 To Str_len
ch = Asc(Mid$(From_Text, i, 1))
If ch >= MIN_ASC And ch <= MAX_ASC Then
ch = ch - MIN_ASC
offset = Int((NUM_ASC + 1) * Rnd)
ch = ((ch + offset) Mod NUM_ASC)
ch = ch + MIN_ASC
To_Text = To_Text & Chr$(ch)
End If
Next i
End Sub

'解密子程序
Private Sub SubDecipher(ByVal Password As String, ByVal From_Text As String, To_Text As String)
Const MIN_ASC = 32 ' Space.
Const MAX_ASC = 126 ' ~.
Const NUM_ASC = MAX_ASC - MIN_ASC + 1

Dim offset As Long
Dim Str_len As Integer
Dim i As Integer
Dim ch As Integer

offset = NumericPassword(Password)
Rnd -1
Randomize offset

Str_len = Len(From_Text)
For i = 1 To Str_len
ch = Asc(Mid$(From_Text, i, 1))
If ch >= MIN_ASC And ch <= MAX_ASC Then
ch = ch - MIN_ASC
offset = Int((NUM_ASC + 1) * Rnd)
ch = ((ch - offset) Mod NUM_ASC)
If ch < 0 Then ch = ch + NUM_ASC
ch = ch + MIN_ASC
To_Text = To_Text & Chr$(ch)
End If
Next i
End Sub

'將你輸入的每個字元轉換成密碼數字
Private Function NumericPassword(ByVal Password As String) As Long
Dim Value As Long
Dim ch As Long
Dim Shift1 As Long
Dim Shift2 As Long
Dim i As Integer
Dim Str_len As Integer

'得到字元串內字元的數目
Str_len = Len(Password)
'給每個字元轉換成密碼數字
For i = 1 To Str_len
ch = Asc(Mid$(Password, i, 1))
Value = Value Xor (ch * 2 ^ Shift1)
Value = Value Xor (ch * 2 ^ Shift2)

Shift1 = (Shift1 + 7) Mod 19
Shift2 = (Shift2 + 13) Mod 23
Next i
NumericPassword = Value
End Function