? ?廣州龍躍自動(dòng)化專業(yè)破解解密各類plc加密,全國(guó)24小時(shí)聯(lián)系手機(jī):18520649527 【關(guān)技術(shù)】 微信:guanshiyou009如有任何問(wèn)題請(qǐng)打手機(jī)或者添加微信,謝謝支持
PLC解密,全國(guó)上門(mén)PLC解密維修找龍躍自動(dòng)化PLC解密網(wǎng)vb解密plc密碼程序,專業(yè)PLC解密師傅電話153 8444 7766;提供三菱plc解密,臺(tái)達(dá)plc解密,西門(mén)子plc解密,信捷plc解密等各類PLC解密plc程序解密方法及觸摸屏解密維修服務(wù),【加微信:guanshiyou009】
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ò)展資料:
注意事項(xiàng)
編寫(xiě)加密程序,將用戶輸入的一個(gè)英文句子加密為加密字符串,然后輸出加密字符串。假設(shè)句子長(zhǎng)度不超過(guò)100個(gè)字符。
根據(jù)給定的句子加密函數(shù)原型SentenceEncoding,編寫(xiě)函數(shù)SentenceEncoding調(diào)用給定的字符加密函數(shù)CharEncoding完成句子加密。
然后,編寫(xiě)主程序提示用戶輸入英文句子,然后調(diào)用函數(shù)SentenceEncoding對(duì)句子加密,最后輸出加密后的句子。
字符加密規(guī)則為大寫(xiě)字母和小寫(xiě)字母均加密為其補(bǔ)碼, 我們定義ASCII碼值相加為’A’+’Z’即155的兩個(gè)大寫(xiě)字母互為補(bǔ)碼,ASCII碼值相加為’a’+’z’即219的兩個(gè)小寫(xiě)字母互為補(bǔ)碼。
空格用@代替,句號(hào)以#代替,其它字符用句點(diǎn)代替。
函數(shù)原型:
void SentenceEncoding(char *soure,char *code);
功能:對(duì)待加密字符串source加密后保存加密字符串到code.
參數(shù):char *soure,指向待加密句子的字符串指針;
char *code 指向加密字符串的字符串指針;
字符加密函數(shù)代碼。
[img]vb 暴力破解密碼程序的過(guò)程?
工作繁忙難免產(chǎn)生意外,比如對(duì)重要的word文檔加密之后卻把密碼忘得一干二凈,這幾乎會(huì)發(fā)生在每個(gè)人的身上。這時(shí)你可能會(huì)焦急萬(wàn)分,不過(guò)我勸你不要太緊張,有空來(lái)程序谷坐坐,一定會(huì)有好的答案的。下面我們就來(lái)看看用窮舉法暴力破解word密碼的程序,當(dāng)然,為了簡(jiǎn)單起見(jiàn),程序只針對(duì)密碼是數(shù)字的情況做了處理,字符型的密碼與此類似,不再多說(shuō)了。
一、引言
大家都知道,office家族跟VB有千絲萬(wàn)縷的聯(lián)系,Microsoft office組件中的所有應(yīng)用程序都內(nèi)建有VBA,這樣就可以通過(guò)VB或VBA操作word 應(yīng)用程序中的對(duì)象,用窮舉測(cè)試的辦法達(dá)到找回丟失密碼的目的,非常簡(jiǎn)單吧!
二、實(shí)現(xiàn)過(guò)程
下面來(lái)看一看程序的具體編制過(guò)程。程序采用VB編程實(shí)現(xiàn),需要機(jī)器安裝有VB應(yīng)用程序及Microsoft office組件。打開(kāi)VB,新建一個(gè)VB工程,取名Proc_word,將啟動(dòng)窗體命名為FrmMain,選擇“工程”菜單中的“引用”,在“引用”對(duì)話框中選擇 “Microsoft word8.0 Object Library”(這一步很重要,你必須選擇這一ActiveX部件,否則代碼不能正確運(yùn)行,順便說(shuō)一句,如果安裝的是office2000,那么應(yīng)該選擇“Microsoft word9.0 Object Library”)。同時(shí)在“工程”菜單中“部件”對(duì)話框中選擇添加“Microsoft Windows common controls -2.5(sp2)”,以便在窗體設(shè)計(jì)中可以使用微調(diào)控件。
好了,現(xiàn)在可以動(dòng)手編制程序了。在剛才FrmMain窗體的左側(cè)添加一個(gè)框架控件,并在此控件內(nèi)加入一個(gè)驅(qū)動(dòng)器列表框、一個(gè)目錄列表框和一個(gè)文件列表框控件。在FrmMain窗體的右下側(cè)添加兩個(gè)命令按鈕,在右上側(cè)添加三個(gè)標(biāo)簽控件、兩個(gè)文本框控件和一個(gè)微調(diào)控件,你可以參考附圖來(lái)設(shè)計(jì)。接著,將框架的Caption屬性設(shè)置成“請(qǐng)選擇需要破譯的word文檔”;保持目錄列表框、驅(qū)動(dòng)器列表框、文件列表框、文本框、微調(diào)控件缺省名稱不變;將文件列表框的Pattern屬性設(shè)置成“*.DOC”,目的是只顯示目錄下的 word文件;將第一個(gè)標(biāo)簽控件Caption屬性設(shè)置成“該程序破譯八位以下純數(shù)字組合word文檔密碼”,將第二個(gè)標(biāo)簽Caption屬性設(shè)置成“解密進(jìn)度”,將第三個(gè)標(biāo)簽Caption屬性設(shè)置成“請(qǐng)選擇破譯密碼位數(shù)”;將第二個(gè)文本框的Text屬性設(shè)置成“4”,這是缺省密碼位數(shù);將微調(diào)按鈕的 BuddyControl屬性設(shè)置成Text2就能和第二個(gè)文本框關(guān)聯(lián),BuddyProperty 改成Text,Max、Min屬性分別設(shè)置成“8”和“1”,表示最長(zhǎng)密碼位數(shù)和最短密碼位數(shù),將Wrap屬性設(shè)置成True,將Increment屬性設(shè)置成“1”,以便每單擊一次加1或減1;將兩個(gè)命令按鈕的名稱分別改成 “cmdopendoc”和“cmdquit”,Caption屬性分別設(shè)置成“文件打開(kāi)”、“系統(tǒng)退出”。以上就把各控件的屬性設(shè)置完了,接著編寫(xiě)代碼也就不是什么難事兒了。
下面就是全部的源程序,適當(dāng)?shù)淖⑨層兄诖蠹依斫獬绦?。你還可以通過(guò)設(shè)置斷點(diǎn)來(lái)跟蹤密碼生成部分,看看程序編制的原理。
怎么破解PLC的密碼?
您好,假若您擁有原始程式,您只要將PLC記憶體全部消除即可。清除方法如下:
1.若您使用掌上型程式書(shū)寫(xiě)器
當(dāng)書(shū)寫(xiě)器與PLC連接后選擇ONLINE模態(tài),按GO鍵,銀幕會(huì)要求您打入密碼,此時(shí)請(qǐng)您按SP鍵8次,再按 GO鍵 3次,如此一來(lái),您的PLC就恢復(fù)到出廠時(shí)的狀態(tài),您只要再將原始程式打入PLC 即可。
2.若您使用FXN,DOS版V2.0以上版本軟件
于MODE視窗中按7,5,3,再于出現(xiàn)的畫(huà)面中選項(xiàng),以上、下鍵選擇 "MEMORY ALL CLEAR"再按"Enter"鍵 ,如此,PLC內(nèi)部記憶體將全部被清除。使用者再將原始程序?qū)懭隤LC內(nèi)即可。
3.若您使用FXN Windows版V1.0以上版本軟件
首先將原始程序顯示余熒屏上,將PLC置于STOP狀態(tài),再于畫(huà)面上功能功能選擇列中選PLC,再選PLC memory clear…,跳出新畫(huà)面后,將三項(xiàng)選項(xiàng)全部選定,再按"Enter"鍵,畫(huà)面將出現(xiàn)"確定"及"取消"兩選擇讓 您做決定,此時(shí),選"確定",后按"Enter"鍵!該畫(huà)面若消失了,亦表示該P(yáng)LC已回復(fù)到出廠時(shí)的狀態(tài),您可以重新 寫(xiě)入程序了。
禾川plc解密方法
破解PLC密碼的方法步驟:
1、網(wǎng)上下載一個(gè)試用的PLC密碼讀取程序,同時(shí)也找一個(gè)串口監(jiān)視的程序。
2、連接PLC,運(yùn)行串口監(jiān)視程序,用試用的PLC密碼讀取程序讀取PLC的密碼。
3、在串口監(jiān)視的數(shù)據(jù)中,有一串?dāng)?shù)據(jù),你會(huì)找到PLC的密碼
vb 解密碼程序
另一個(gè)程序中的代碼
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為長(zhǎng)整形,s為 100個(gè)字符的字符型變量,把句柄保存在hwnd中
hwnd = FindWindow(vbNullString, "HJonny")'尋找名為HJonny的窗體標(biāo)題,這里就比如你的第一個(gè)密碼程序。
t = FindWindowEx(hwnd, 0, "ThunderRT6TextBox", vbNullString)'這個(gè)是尋找其中的一個(gè)文本框,也就是迷得密碼框的句柄,保存在t中
SendMessage t, 13, 100, s'sendmassage取t句柄,也就是你的密碼框中的文本內(nèi)容。
MsgBox s'彈出提示
End Sub
自己寫(xiě)不復(fù)制,人品好,希望能幫到你
? ?廣州龍躍自動(dòng)化專業(yè)破解解密各類plc加密,全國(guó)24小時(shí)聯(lián)系手機(jī):18520649527 【關(guān)技術(shù)】 微信:guanshiyou009如有任何問(wèn)題請(qǐng)打手機(jī)或者添加微信,謝謝支持