? ?廣州龍躍自動化專業(yè)破解解密各類plc加密，全國24小時聯(lián)系手機(jī)：18520649527 【關(guān)技術(shù)】 微信：guanshiyou009如有任何問題請打手機(jī)或者添加微信，謝謝支持

PLC解密,全國上門PLC解密維修找龍躍自動化PLC解密網(wǎng)vb編寫plc解密程序,專業(yè)PLC解密師傅電話18520649527;提供三菱plc解密,臺達(dá)plc解密,西門子plc解密,信捷plc解密等各類PLC解密plc破解密碼是什么原理及觸摸屏解密維修服務(wù), 【加微信：guanshiyou009】或者致電PLC解密師傅電話18520649527

vb 暴力破解密碼程序的過程？

工作繁忙難免產(chǎn)生意外，比如對重要的word文檔加密之后卻把密碼忘得一干二凈，這幾乎會發(fā)生在每個人的身上。這時你可能會焦急萬分，不過我勸你不要太緊張，有空來程序谷坐坐，一定會有好的答案的。下面我們就來看看用窮舉法暴力破解word密碼的程序，當(dāng)然，為了簡單起見，程序只針對密碼是數(shù)字的情況做了處理，字符型的密碼與此類似，不再多說了。

一、引言

大家都知道，office家族跟VB有千絲萬縷的聯(lián)系，Microsoft office組件中的所有應(yīng)用程序都內(nèi)建有VBA，這樣就可以通過VB或VBA操作word 應(yīng)用程序中的對象，用窮舉測試的辦法達(dá)到找回丟失密碼的目的，非常簡單吧！

二、實現(xiàn)過程

下面來看一看程序的具體編制過程。程序采用VB編程實現(xiàn)，需要機(jī)器安裝有VB應(yīng)用程序及Microsoft office組件。打開VB，新建一個VB工程，取名Proc_word，將啟動窗體命名為FrmMain，選擇“工程”菜單中的“引用”，在“引用”對話框中選擇 “Microsoft word8.0 Object Library”（這一步很重要，你必須選擇這一ActiveX部件，否則代碼不能正確運(yùn)行，順便說一句，如果安裝的是office2000，那么應(yīng)該選擇“Microsoft word9.0 Object Library”）。同時在“工程”菜單中“部件”對話框中選擇添加“Microsoft Windows common controls -2.5(sp2)”，以便在窗體設(shè)計中可以使用微調(diào)控件。

好了，現(xiàn)在可以動手編制程序了。在剛才FrmMain窗體的左側(cè)添加一個框架控件，并在此控件內(nèi)加入一個驅(qū)動器列表框、一個目錄列表框和一個文件列表框控件。在FrmMain窗體的右下側(cè)添加兩個命令按鈕，在右上側(cè)添加三個標(biāo)簽控件、兩個文本框控件和一個微調(diào)控件，你可以參考附圖來設(shè)計。接著，將框架的Caption屬性設(shè)置成“請選擇需要破譯的word文檔”；保持目錄列表框、驅(qū)動器列表框、文件列表框、文本框、微調(diào)控件缺省名稱不變；將文件列表框的Pattern屬性設(shè)置成“*.DOC”，目的是只顯示目錄下的 word文件；將第一個標(biāo)簽控件Caption屬性設(shè)置成“該程序破譯八位以下純數(shù)字組合word文檔密碼”，將第二個標(biāo)簽Caption屬性設(shè)置成“解密進(jìn)度”，將第三個標(biāo)簽Caption屬性設(shè)置成“請選擇破譯密碼位數(shù)”；將第二個文本框的Text屬性設(shè)置成“4”，這是缺省密碼位數(shù)；將微調(diào)按鈕的 BuddyControl屬性設(shè)置成Text2就能和第二個文本框關(guān)聯(lián)，BuddyProperty 改成Text，Max、Min屬性分別設(shè)置成“8”和“1”，表示最長密碼位數(shù)和最短密碼位數(shù)，將Wrap屬性設(shè)置成True，將Increment屬性設(shè)置成“1”，以便每單擊一次加1或減1；將兩個命令按鈕的名稱分別改成 “cmdopendoc”和“cmdquit”，Caption屬性分別設(shè)置成“文件打開”、“系統(tǒng)退出”。以上就把各控件的屬性設(shè)置完了，接著編寫代碼也就不是什么難事兒了。

下面就是全部的源程序，適當(dāng)?shù)淖⑨層兄诖蠹依斫獬绦?。你還可以通過設(shè)置斷點(diǎn)來跟蹤密碼生成部分，看看程序編制的原理。

VB 加密與解密的程序代碼

加密：

Private?Function JiaMi(ByVal varPass As String) As String '參數(shù)varPass是需要加密的文本內(nèi)容

Dim varJiaMi As String * 20

Dim varTmp As Double

Dim strJiaMi As String

Dim I

For I = 1 To Len(varPass)

varTmp = AscW(Mid$(varPass, I, 1))

varJiaMi = Str$(((((varTmp * 1.5) / 5.6) * 2.7) * I))

strJiaMi = strJiaMi varJiaMi

Next?I

JiaMi = strJiaMi

End?Function

解密函數(shù)：

Private?Function JieMi(ByVal varPass As String) As String '參數(shù)varPass是需要解密的密文內(nèi)容

Dim varReturn As String * 20

Dim varConvert As Double

Dim varFinalPass As String

Dim varKey As Integer

Dim varPasslenth As Long

varPasslenth = Len(varPass)

For I = 1 To varPasslenth / 20

varReturn = Mid(varPass, (I - 1) * 20 + 1, 20)

varConvert = Val(Trim(varReturn))

varConvert = ((((varConvert / 1.5) * 5.6) / 2.7) / I)

varFinalPass = varFinalPass ChrW(Val(varConvert))

Next?I

JieMi = varFinalPass

End?Function

擴(kuò)展資料：

注意事項

編寫加密程序，將用戶輸入的一個英文句子加密為加密字符串，然后輸出加密字符串。假設(shè)句子長度不超過100個字符。

根據(jù)給定的句子加密函數(shù)原型SentenceEncoding，編寫函數(shù)SentenceEncoding調(diào)用給定的字符加密函數(shù)CharEncoding完成句子加密。

然后，編寫主程序提示用戶輸入英文句子，然后調(diào)用函數(shù)SentenceEncoding對句子加密，最后輸出加密后的句子。

字符加密規(guī)則為大寫字母和小寫字母均加密為其補(bǔ)碼, 我們定義ASCII碼值相加為’A’+’Z’即155的兩個大寫字母互為補(bǔ)碼，ASCII碼值相加為’a’+’z’即219的兩個小寫字母互為補(bǔ)碼。

空格用@代替,句號以#代替,其它字符用句點(diǎn)代替。

函數(shù)原型：

void SentenceEncoding(char *soure,char *code);

功能：對待加密字符串source加密后保存加密字符串到code.

參數(shù)：char *soure，指向待加密句子的字符串指針；

char *code 指向加密字符串的字符串指針；

字符加密函數(shù)代碼。

[img]

vb 解密碼程序

另一個程序中的代碼

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Command2_Click()

Dim hwnd As Long, t As Long, s As String * 100‘聲明變量hwnd、t為長整形，s為 100個字符的字符型變量，把句柄保存在hwnd中

hwnd = FindWindow(vbNullString, "HJonny")'尋找名為HJonny的窗體標(biāo)題，這里就比如你的第一個密碼程序。

t = FindWindowEx(hwnd, 0, "ThunderRT6TextBox", vbNullString)'這個是尋找其中的一個文本框，也就是迷得密碼框的句柄，保存在t中

SendMessage t, 13, 100, s'sendmassage取t句柄，也就是你的密碼框中的文本內(nèi)容。

MsgBox s'彈出提示

End Sub

自己寫不復(fù)制，人品好，希望能幫到你

怎樣用VB編寫一個文件加密程序？

字節(jié)逐位倒排序加密法是以比特為單位的換位加密方法，用VB實現(xiàn)的具體算法是：

(1) 以二進(jìn)制模式打開源文件；

(2) 從源文件第I位讀取一個字節(jié)，假設(shè)為字母“A”，得到“A”的ASCII值為65；

(3) 將65轉(zhuǎn)換成八位二進(jìn)制串為“01000001”；

(4) 將“01000001”按字節(jié)逐位倒排序得另一個八位二進(jìn)制串“10000010”；

(5) 將“10000010”轉(zhuǎn)換成十進(jìn)制再寫回源文件第I位置，完成一個字節(jié)的加密；

(6) 重復(fù)(2)、(3)、(4)和(5)，直到所有字節(jié)加密結(jié)束。

為了使程序模塊化，我們用函數(shù)過程ByteToBin完成將字節(jié)型數(shù)據(jù)轉(zhuǎn)換成二進(jìn)制串（其實質(zhì)就是將十進(jìn)制數(shù)轉(zhuǎn)換成八位二進(jìn)制串）；用函數(shù)過程BinToByte將二進(jìn)制串轉(zhuǎn)換成字節(jié)型數(shù)據(jù)（實質(zhì)是將八位二進(jìn)制串轉(zhuǎn)換成十進(jìn)制數(shù)）：用函數(shù)過程Reverse將八位二進(jìn)制串逐位倒排序。具體程序如下：

Function ByteToBin(m As Byte) As String ' 將字節(jié)型數(shù)據(jù)轉(zhuǎn)換成八位二進(jìn)制字符串

Dim c$

c$ = ""

Do While m 0

r = m Mod 2

m = m \ 2

c$ = r c$

Loop

c$ = Right("00000000" c$, 8)

ByteToBin = c$

End Function

Function Reverse(m As String) As String ' 將八位二進(jìn)制字符串顛倒順序

Dim i%, x$

x = ""

For i = 1 To 8

x = Mid(m, i, 1) x

Next i

Reverse = x

End Function

Function BinToByte(m As String) As Byte ' 將八位二進(jìn)制串轉(zhuǎn)換成十進(jìn)制

Dim x As String * 1, y%, z%

z = 0

For i = 1 To 8

x = Mid(m, i, 1)

y = x * 2 ^ (8 - i)

z = z + y

Next i

BinToByte = z

End Function

Private Sub Command1_Click()

Dim x As Byte, i%, fname$

fname = InputBox("請輸入要加密的文件名！注意加上路徑名：")

If Dir(fname) = "" Then

MsgBox "文件不存在！"

Exit Sub

End If

Open fname For Binary As #1 ' 以二進(jìn)制訪問模式打開待加密文件

For i = 1 To LOF(1) ' LOF函數(shù)是求文件長度的內(nèi)部函數(shù)

Get #1, i, x ' 取出第i個字節(jié)

x = BinToByte(Reverse(ByteToBin(x))) ' 這里調(diào)用了三個自定義函數(shù)

Put #1, i, x ' 將加密后的這個字節(jié)寫回到文件原位置

Next i

Close

MsgBox "任務(wù)完成！"

End Sub

本例可以完成對任意文件的加密與解密，對同一文件作第一次處理為加密，第二次處理為解密。要調(diào)試本程序，可用記事本在C盤根目錄下任意建立一個文本文件（假設(shè)為文件名為aaa.txt），其中的內(nèi)容任意（可以包括字母、漢字、數(shù)字、回車符、換行符等）。運(yùn)行本程序后，在輸入文件名的對話框中輸入文件名（如：“C:\aaa.txt”）后回車，即可完成對文件的加密。文件加密后，可以在記事本中打開該文件查看加密效果。如果想解密，可再次運(yùn)行該程序并輸入相同文件名。

求助，用VB編寫讀取PLC數(shù)據(jù)的程序

硬件上一般是串口通訊，VB打開一個串口，知道plc編程口的協(xié)議就可以，按對應(yīng)格式發(fā)就好了，各個廠家不盡相同，如果帶485的口，支持MODBUS協(xié)議那就更好可，具體ir區(qū)是保持型的還是輸入型的測試一下就行，功能碼無非就是03或04

PLC解密,全國上門PLC解密維修找龍躍自動化PLC解密網(wǎng)vb編寫plc解密程序,專業(yè)PLC解密師傅電話18520649527;提供三菱plc解密,臺達(dá)plc解密,西門子plc解密,信捷plc解密等各類PLC解密plc破解密碼是什么原理及觸摸屏解密維修服務(wù), 【加微信：guanshiyou009】或者致電PLC解密師傅電話18520649527

? ?廣州龍躍自動化專業(yè)破解解密各類plc加密，全國24小時聯(lián)系手機(jī)：18520649527 【關(guān)技術(shù)】 微信：guanshiyou009如有任何問題請打手機(jī)或者添加微信，謝謝支持