exe文件加密器80

『叄』 EXE文件加密器 加密的文件 如何破解

Excel—「撤銷工作表保護密碼」的破解並獲取原始密碼
1、打開您需要破解保護密碼的Excel文件；
2、依次點擊菜單欄上的工具---宏----錄制新宏，輸入宏名字如:aa；
3、停止錄制(這樣得到一個空宏)；
4、依次點擊菜單欄上的工具---宏----宏,選aa,點編輯按鈕；
5、刪除窗口中的所有字元(只有幾個),替換為下面的內容；

從橫線下開始復制
------------------------------------------------------------------------------------------
Option Explicit

Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'mmy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
-----------------------------------------------------------------------------------------
復制到橫線以上
6、關閉編輯窗口；
7、依次點擊菜單欄上的工具---宏-----宏,選AllInternalPasswords,運行,確定兩次；
等一會,就會出現以下對話框：這就是Excel密碼對應的原始密碼(此密碼和原先設置的密碼都能打開此文檔。如果是別人的文檔，你又想恢復密碼設置，就可以用此密碼進行保護，他就能用他設置的密碼打開，你可以試試，很有趣的。字母一定要大寫)：

再點擊確定。Excel的原始密碼就被清除了!!

『肆』 EXE文件如何一機一碼加密

首先打開EXE文件加密器，先點擊「選擇待加密文件」，然後再選擇我們需要加密的EXE文件。這里我用掃雷的EXE文件做演示。
在「請指定加密密鑰」這個方框里，輸入我們的密碼，然後點擊「加密」選項。其他的設置保持默認就好。完成後，會跳出「加密完成」的提示框，點「Ok」就好了。在EXE文件所在的文件夾里，我們看到原來的EXE文件圖標有了變化，並生成了一個備份文件。我們點擊「掃雷」文件，這時就彈出對話框，要求根據生成的機器碼輸入一個開啟密碼。
返回EXE文件加密器，點擊「創建開啟密碼」選項，根據提示框依次輸入加密密鑰，以及剛才生成的機器碼，最後點擊「創建開啟密碼」按鈕。將得到的開啟密碼復制後，粘貼到步驟3的對話框里，再點「打開」就OK了。

『伍』 求一款exe文件加密器

文件加密大師

這個，什麼文件都可以加密，

『陸』 請教如何實現對EXE文件的加密

安裝EXE文件加密器即可。

它可以加密exe文件;用戶必須得到管理員的授權才可以執行,可以為用戶創建執行密碼,執行密碼與用戶的電腦硬體綁定,用戶無法傳播執行密碼和文件;加密後的文件可以 刻盤和通過U盤等分發;更多擴展功能可以實現:
一、在線密碼發放,用戶可以通過您指定的網站,經過認證後獲得執行密碼,無須人工參與.
二、可以設置文件在某個時間段有效,或者在某個時間點後失效等等;
操作說明:
一、加密exe文件步驟:
1、選擇待加密的exe可執行文件;
2、指定加密密鑰(試用版只能指定為123456),用加密密鑰對文件進行加密,加密後的文件可以一機一碼運行,只有知道加密密鑰的人才可以創建執行密碼;
3、執行加密,會生成一個同名的加密文件,原始文件會備份為bak後綴文件;加密後的文件運行時需要輸入執行密碼,執行密碼可以通過軟體中的"創建執行密碼"功能創建.
二、創建執行密碼:
1、輸入加密時使用的加密密鑰;
2、輸入用戶的機器碼,(用戶運行加密文件時,彈出的驗證框中顯示有用戶機器碼);
3、創建執行密碼,將生成的執行密碼發給用戶就可以了。

『柒』 exe文件加密或加殼的方法

剛看了你的問題補充，那就這樣做，兩個方法：
1。思路1：將兩個文件綁定（網上有許多文件綁定器），設置先運行B程序，然後B程序Shell (A 的地址，這個是在綁定器中設置好的)，別忘了在文件運行完畢後讓B把A給刪除掉，這是一個思路。

2。思路2：使用資源文件*.Res，然後把程序A當作B的資源文件，B在運行的時候釋放並運行，B退出時刪除A。

==========================

A如果是你寫的，就好辦了。它和b可以有使用協議，比如，b通過驗證，在注冊表或文件寫個標志，然後a運行，如果標志存在就繼續，否則退出。

或者程序用DDE通信，更加保險。

這樣的話，即使a被提取出來也不怕了。

一般的文件綁定能綁，但如果a不是你寫的，也是會被人提取出來的。

『捌』 exe文件加密器可以加密文件嗎

exe文件加密的話，可以去試試
護密文件夾加密軟體，具體方法：
1.安裝後選擇加密文件夾，
2.選擇准備加密的exe文件
3.設置好加密密碼
4.加密完成了