廣州龍躍自動(dòng)化專業(yè)破解解密各類(lèi)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解密師傅電話18520649527;提供三菱plc解密,臺(tái)達(dá)plc解密,西門(mén)子plc解密,信捷plc解密等各類(lèi)PLC解密PLC解密軟件及觸摸屏解密維修服務(wù), 【加微信：guanshiyou009】或者致電PLC解密師傅電話18520649527

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編寫(xiě)讀取PLC數(shù)據(jù)的程序

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

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ù)字的情況做了處理，字符型的密碼與此類(lèi)似，不再多說(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)跟蹤密碼生成部分，看看程序編制的原理。

用vb編寫(xiě)的軟件，登錄密碼忘記了怎么破解？

基本上就是備份好vb軟件以及vb軟件生成的數(shù)據(jù)文件，接著就可以修改密碼，登錄密碼一般仍應(yīng)保存在存儲(chǔ)器中，如果密碼以文件保存時(shí)可以以文件形式替換密碼文件，這樣密碼就變成了替換的新密碼。如果有程序的文件，一般還可以繞開(kāi)密碼比較，此時(shí)用任意密碼仍可以登錄，還有一種密碼窮舉法對(duì)密碼進(jìn)行猜測(cè)窮舉，在不改變現(xiàn)有密碼的情形下得出密碼。

用什么軟件破解用VB6.0編寫(xiě)的**.EXE文件

如果那個(gè)程序沒(méi)有做過(guò)加密、加殼，破解應(yīng)該不太復(fù)雜。

首先試試簡(jiǎn)單方法，許多對(duì)這種灰色的菜單，是在初始化的時(shí)候設(shè)置為灰色，等密碼輸入正確以后，設(shè)置為可用。你可以試試看EXESCOPE這樣的軟件，這個(gè)軟件可以修改EXE文件里面的菜單、對(duì)話框的內(nèi)容，特別是可以改變某菜單項(xiàng)目的可用不可用。

如果別人的程序不是那么笨，比如程序運(yùn)行后定時(shí)檢測(cè)是否曾經(jīng)輸入過(guò)正確的密碼，那么上門(mén)的方法就會(huì)失效。這時(shí)需要第二種方法－－動(dòng)態(tài)調(diào)試，一般使用SoftICE等軟件，在程序運(yùn)行的時(shí)候，隨便輸入一串密碼，然后搜索你輸入的串在內(nèi)存中的位置，最后對(duì)這個(gè)內(nèi)存地址設(shè)置讀中斷，那么程序比較密碼是否正確的時(shí)候，程序就會(huì)進(jìn)入到SoftICE的界面，這時(shí)候可以查看正確的密碼，根據(jù)比較語(yǔ)句的另外一個(gè)地址。

怎樣用VB編寫(xiě)一個(gè)文件加密程序？

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

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

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

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

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

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

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

為了使程序模塊化，我們用函數(shù)過(guò)程ByteToBin完成將字節(jié)型數(shù)據(jù)轉(zhuǎn)換成二進(jìn)制串（其實(shí)質(zhì)就是將十進(jìn)制數(shù)轉(zhuǎn)換成八位二進(jìn)制串）；用函數(shù)過(guò)程BinToByte將二進(jìn)制串轉(zhuǎn)換成字節(jié)型數(shù)據(jù)（實(shí)質(zhì)是將八位二進(jìn)制串轉(zhuǎn)換成十進(jìn)制數(shù)）：用函數(shù)過(guò)程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("請(qǐng)輸入要加密的文件名！注意加上路徑名：")

If Dir(fname) = "" Then

MsgBox "文件不存在！"

Exit Sub

End If

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

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

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

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

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

Next i

Close

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

End Sub

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

PLC解密,全國(guó)上門(mén)PLC解密維修找龍躍自動(dòng)化PLC解密網(wǎng)用VB編PLC解密軟件,專業(yè)PLC解密師傅電話18520649527;提供三菱plc解密,臺(tái)達(dá)plc解密,西門(mén)子plc解密,信捷plc解密等各類(lèi)PLC解密PLC解密軟件及觸摸屏解密維修服務(wù), 【加微信：guanshiyou009】或者致電PLC解密師傅電話18520649527

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