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

如何用VB編程破解WinRAR壓縮文件的密碼 用窮舉法

1、用Shell調(diào)用Winrar，網(wǎng)上有winrar參數(shù)說明

2、生成窮舉字典，網(wǎng)上有VB窮舉法函數(shù)

3、循環(huán)執(zhí)行解壓命令，直到返回正確信息，或窮舉完成。

4、不用什么控件，只要有裝winrar就行

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

擴展資料：

注意事項

編寫加密程序，將用戶輸入的一個英文句子加密為加密字符串，然后輸出加密字符串。假設(shè)句子長度不超過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編制與FX系列PLC編程口的通信程序?-

1.VB軟件里面有個控件mscomm.可以通過設(shè)置，串口號，波特率。等

2用VB編輯畫面，

3.就可以進行輸入，輸出的控制，

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