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

豐煒PLC破解 VB系類！您是怎么破解的？可否賜教？

讀串口通訊字串，與正常使用所顯示的字符對應，找出需要的數(shù)值。

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

擴展資料：

注意事項

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

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

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

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

空格用@代替,句號以#代替,其它字符用句點代替。

函數(shù)原型：

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

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

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

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

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

[img]

用vb編一個加密解密的程序

在窗體上至少添加文件控件：Drive控件，Dir控件，F(xiàn)ile控件，以及Command控件，每次用Xor加密解密后，在文件名加上前綴X-，另外保存

其他控件你可以添加，用來裝飾，比如Label，用做提示

■這已經(jīng)是詳細完整的程序了，窗體添加控件你自己應該會吧？添加后，把下面內(nèi)容復制到代碼窗口就可以了■

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

vb怎么控制plc

vb控制plc的方法：首先必須知道PLC的通訊協(xié)議，然后通過系統(tǒng)語言將這個協(xié)議以字符串的形式發(fā)往計算機的RS-232口，這樣計算機通過PLC就可以控制執(zhí)行機構(gòu)了。

VB是一種由?Microsoft?公司開發(fā)的結(jié)構(gòu)化的、模塊化的、面向?qū)ο蟮?、包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動為機制的可視化程序設計語言。從任何標準來說，VB都是世界上使用人數(shù)最多的語言——不管是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數(shù)量。它源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應用程序。

PLC是一種可編程邏輯控制器，它采用一類可編程的存儲器，用于其內(nèi)部存儲程序，執(zhí)行邏輯運算、順序控制、定時、計數(shù)與算術(shù)操作等面向用戶的指令，并通過數(shù)字或模擬式輸入/輸出控制各種類型的機械或生產(chǎn)過程。

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

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

一、引言

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

二、實現(xiàn)過程

下面來看一看程序的具體編制過程。程序采用VB編程實現(xiàn)，需要機器安裝有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)”，以便在窗體設計中可以使用微調(diào)控件。

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

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

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