控制項加密破解
① 如何破解加密文件
企業版加密軟體，被加密的文件帶回家打不開，效果是CAD圖紙顯示「圖形文件無效」、PDF顯示「格式錯誤」、office顯示亂碼等。還可以破解甲方發來的只讀、有次數限制、時間限制、不能列印、過期自動刪除的受限制文件或EXE格式的文件。
反老闆的加密軟體，hi我QQ（用戶名）
② delphi中有沒有什麼函數或控制項是直接進行數據加密、解密的
有.
uses IdHash,IdHashMessageDigest;
var mdA:TIdHashMessageDigest5; mdB:T4x4LongWordRecord;
begin
mdA:=TIdHashMessageDigest5.Create;
mdB:=mdA.HashValue('your string.');//加密
Result:=LowerCase(mdA.AsHex(mdB))
end;
③ 用vb編一個加密解密的程序
在窗體上至少添加文件控制項：Drive控制項，Dir控制項，File控制項，以及Command控制項，每次用Xor加密解密後，在文件名加上前綴X-，另外保存
其他控制項你可以添加，用來裝飾，比如Label，用做提示
■這已經是詳細完整的程序了，窗體添加控制項你自己應該會吧？添加後，把下面內容復制到代碼窗口就可以了■
Private Sub Command1_Click()
Dim oldFile As String, newfile As String, theByte As Byte
If File1.FileName = "" Then MsgBox "請選擇需要加密或解密的文件！": Exit Sub
oldFile = Dir1.Path & "\" & File1.FileName
newfile = Dir1.Path & "\X-" & File1.FileName
Open oldFile For Binary As #1 Len = 1
Open newfile For Binary As #2
Do
Get #1, , theByte
theByte = 7 Xor theByte
Put #2, , theByte
Loop Until EOF(1)
Close #1
Close #2
MsgBox "加密或解密後的文件存放在「" & newfile & "」中！"
File1.Refresh
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Form_Load()
File1.Pattern = "*.txt" '只列出txt文本文件，如果要列出全部文件，改成*.*
Command1.Caption = "加密解密"
End Sub
④ 怎樣破解OCX控制項
寫一個調用OCX控制的EXE程序,然後調試這個程序,調試時你會進入OCX中,找到要修改的關鍵點,記下機器碼,然後在OCX原始控制項找到這些關鍵處
⑤ 如何破解或模擬瀏覽器密碼控制項
1、瀏覽器禁用安裝Activex插件：解決的方法就是要把瀏覽器禁用的Activex插件設置為允許，首先打開瀏覽器，然後選擇菜單欄上工具選項；
2、選擇工具選項之後，選擇下拉菜單的Internet選項；
3、打開Internet選項之後，切換到安全選項卡，然後選擇安全選項卡下的自定義級別；
4、單擊自定義級別之後打開安全設置窗口，將重置為一欄的安全級別設置為安全級-中，然後勾選下載已簽名的Activex控制項一欄的啟用，再勾選運行Activex控制項和插件一欄的啟用，把該控制項和插件給啟用上來，然後單擊確定按鈕；
5、設置完成之後單擊確定按鈕，關閉瀏覽器，然後重新啟用瀏覽器，看一下這時候還會不會提示。
注意事項：
如果把瀏覽器的安全級別設置為高，不管你是否勾選運行Activex控制項，瀏覽器都會自動改其為禁用，所以需要將安全級設置為中
⑥ 文件加密了怎麼解開加密
以下不會的話我給你個破密工具!http://www.skycn.com/soft/26770.html
1用簡單的方法：
首先創建一個word文檔，使用窗體保護的方式保護文檔，工具->保護文檔->Check「僅允許在文檔中進行此類編輯」->Choose「填寫窗體」，此時會彈出一個密碼框，輸入2次密碼（我這里選擇123作為word文件密碼），這樣，該文檔就已經被保護起來了。
然我們來破解它，打開剛才創建的word文檔，文件->另存為->選擇HTML格式，存為一個HTML文檔，用記事本打開該HTML文件，搜索"<w:UnprotectPassword>"，你會看到5BCECF7A的字樣（如果你的密碼是用的123的話）。
接著我們用UltraEdit或其他類似的工具打開最初受保護的Word文檔，搜索7ACFCE5B，搜索到後，都用8個0來代替，存檔。
此時的Word文檔的密碼就被清空了，你就可以自己取消文檔保護了，密碼就不用輸入了，按個回車了事。
2、用編程的方法：
下面來看一看程序的具體編制過程。程序採用VB編程實現，需要機器安裝有VB應用程序及Microsoft Office組件。打開VB，新建一個VB工程，取名Proc_Word，將啟動窗體命名為FrmMain，選擇「工程」菜單中的「引用」，在「引用」對話框中選擇 「Microsoft Word8.0 Object Library」（這一步很重要，你必須選擇這一ActiveX部件，否則代碼不能正確運行，順便說一句，如果安裝的是Office2000，那麼應該選擇「Microsoft Word9.0 Object Library」）。同時在「工程」菜單中「部件」對話框中選擇添加「Microsoft Windows common controls -2.5(sp2)」，以便在窗體設計中可以使用微調控制項。
好了，現在可以動手編製程序了。在剛才FrmMain窗體的左側添加一個框架控制項，並在此控制項內加入一個驅動器列表框、一個目錄列表框和一個文件列表框控制項。在FrmMain窗體的右下側添加兩個命令按鈕，在右上側添加三個標簽控制項、兩個文本框控制項和一個微調控制項，你可以參考附圖來設計。接著，將框架的Caption屬性設置成「請選擇需要破譯的Word文檔」；保持目錄列表框、驅動器列表框、文件列表框、文本框、微調控制項預設名稱不變；將文件列表框的Pattern屬性設置成「*.DOC」，目的是只顯示目錄下的 Word文件；將第一個標簽控制項Caption屬性設置成「該程序破譯八位以下純數字組合Word文檔密碼」，將第二個標簽Caption屬性設置成「解密進度」，將第三個標簽Caption屬性設置成「請選擇破譯密碼位數」；將第二個文本框的Text屬性設置成「4」，這是預設密碼位數；將微調按鈕的 BuddyControl屬性設置成Text2就能和第二個文本框關聯，BuddyProperty 改成Text，Max、Min屬性分別設置成「8」和「1」，表示最長密碼位數和最短密碼位數，將Wrap屬性設置成True，將Increment屬性設置成「1」，以便每單擊一次加1或減1；將兩個命令按鈕的名稱分別改成 「cmdopendoc」和「cmdquit」，Caption屬性分別設置成「文件打開」、「系統退出」。以上就把各控制項的屬性設置完了，接著編寫代碼也就不是什麼難事兒了。
下面就是全部的源程序，適當的注釋有助於大家理解程序。你還可以通過設置斷點來跟蹤密碼生成部分，看看程序編制的原理。
Private Sub cmdopendoc_Click()
Dim wd As New Word.Application
Dim strpath As String
Dim pass As String
Dim J, K, Pass_long As Integer
Dim Max_num, Min_num, I As Long
strpath = File1.Path & "\" & File1.FileName
On Error Resume Next
'程序開始
Pass_long = Val(Text2.Text)
Max_num = 10 ^ Val(Text2.Text)
Min_num = 10 ^ (Val(Text2.Text) - 1)
Flag = 0
For K = 0 To Pass_long - 1
Max_num = 10 ^ (Pass_long - K)
Min_num = 10 ^ (Pass_long - (K + 1))
For J = 0 To Pass_long - 1
cmdopendoc.MousePointer = 11
For I = IIf(Pass_long - K = 1, 0, Min_num) + J To Max_num Step Pass_long
Text1.Text = pass
Text1.Refresh
pass = String(K, "0") & I
Flag = wd.Documents.Open(FileName:=strpath, passworddocument:=pass)
'如果解密成功,打開文檔,顯示密碼,退出過程
If Flag <> 0 Then
Label1.Caption = "文檔密碼"
Label1.Refresh
Text1.Text = pass
wd.Visible = True
cmdopendoc.MousePointer = 0
Exit Sub
End If
Next I
Next J
Next K
MsgBox "密碼位數不對,請重新輸入"
End Sub
Private Sub cmdquit_Click()
End
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Call cmdopendoc_Click
End Sub
幾點說明：
需要說明的是，窮舉法解密對系統資源的耗用是十分驚人的，在解密的過程中最好不要運行其他應用程序。針對其巨大的資源耗用量，我在程序中採用了一個小技巧，那就是用密碼位數作為循環的步長進行刺探。也就是說如果你的密碼是3位的話，那麼程序將依次嘗試100、103、106……997、 101、104……998、102、105……999結束，加快了查找密碼的速度（東漸: 其實大家可以動手算一算，到底是快了許多，還是快了一點，還是根本沒有提高速度^_^）。
該程序在Win98/NT＋VB6.0環境下測試通過，我只是隨便試了一個5位數密碼，在PⅡ300、128MB內存的機器上，10分鍾左右即可解開。
⑦ c#中利用Spire.pdf控制項加密解密都不讓超過10頁,怎麼處理，才能加密解密任意大小的文件
1、創建一個只有一頁的PDF，用Acrobat打開。
2、使用「文檔->插入頁面」，把有數字簽名的文檔插入到那一頁後面。
3、使用「文檔->刪除頁面」，刪除第一頁，然後保存文檔。
⑧ 用VB寫個簡單加密/解密程序
'圖上的控制項,你就照著擺上去,然後再把以下代碼拷進去,就OK了
Dim lg As Integer
'加密
Private Sub Command1_Click()
Text2 = ""
Dim a(), b() As String
lg = Len(Text1)
ReDim a(lg), b(lg)
For i = 1 To lg
a(i) = Mid(Text1, i, 1)
b(i) = AscW(a(i)) Xor 4
Text2 = Text2 & ChrW(b(i))
Next
End Sub
'解密
Private Sub Command2_Click()
Text3 = ""
Dim a(), b() As String
lg = Len(Text2)
ReDim a(lg), b(lg)
For i = 1 To lg
a(i) = Mid(Text2, i, 1)
b(i) = AscW(a(i)) Xor 4
Text3 = Text3 & ChrW(b(i))
Next
End Sub
⑨ 文件加密後如何解密
安例名稱:文件加密,解密系統的實現
系統功能:
1.編寫一加密,解密的程序,要求在選定文本件後中,可以 對文件中所有字元進行加密,加密後文件保存為另外一個文本文件,
2.也可以選擇被加密後的文件進行逆向解密.
要求要求提示:
1.要求不得採用例題中所採用演算法,不需要採用運算符XOR,至少要比原程序中拉架使用三個控制項對象.
2.綜合運用多種文件控制項
3.對文件中的字元採用逐個加密,解密的方法.
課文
例題:
Dim strInput$,code$,c as string * 1
dim i % , length%, iasc%
private sub cmdcls_Click()
txtCode.Text=""
txtRecode.Text=""
txtInput.Text=""
End Sub
Private Sub cmdcode_click()
dim strinput$,Code$,Record$,c As string *1
dim i% ,length%,iAsc%
strInput=txtInput.Text
length= le (RTrim(strInput))
Code=""
For i = 1 To length
c=mid$ (strinput,i,1)
select Case c
case"A" To "Z"
iasc = asc(c)+5
if iasc>asc("Z")Then iasc = iasc-26
Code= Code=Chr$(iasc)
Case"a"to "z"
iasc=asc(c)+5
if iasc>asc("z")Then iasc = iasc-26
code = code + chr$(iasc)
case Else
Code = Code +c
End Select
Next i
txtCode.Text= Code
End Sub