? ?廣州龍躍自動(dòng)化專業(yè)破解解密各類plc加密，全國(guó)24小時(shí)聯(lián)系手機(jī)：18520649527 【關(guān)技術(shù)】 微信：guanshiyou009如有任何問(wèn)題請(qǐng)打手機(jī)或者添加微信，謝謝支持
PLC解密,全國(guó)上門PLC解密維修找龍躍自動(dòng)化PLC解密網(wǎng)用VB編PLC解密軟件,專業(yè)PLC解密師傅電話153 8444 7766;提供三菱plc解密,臺(tái)達(dá)plc解密,西門子plc解密,信捷plc解密等各類PLC解密PLC解密軟件及觸摸屏解密維修服務(wù),【加微信：guanshiyou009】
如何用VB編制與FX系列PLC編程口的通信程序?-
1.VB軟件里面有個(gè)控件mscomm.可以通過(guò)設(shè)置，串口號(hào)，波特率。等
2用VB編輯畫(huà)面，
3.就可以進(jìn)行輸入，輸出的控制，
[img]用VB寫(xiě)個(gè)簡(jiǎn)單加密/解密程序
'圖上的控件,你就照著擺上去,然后再把以下代碼拷進(jìn)去,就OK了
Dim lg As Integer
'加密
Private Sub Command1_Click()
Text2 = ""
Dim a(), b() As String
lg = Len(Text1)
ReDim a(lg), b(lg)
For i = 1 To lg
a(i) = Mid(Text1, i, 1)
b(i) = AscW(a(i)) Xor 4
Text2 = Text2 ChrW(b(i))
Next
End Sub
'解密
Private Sub Command2_Click()
Text3 = ""
Dim a(), b() As String
lg = Len(Text2)
ReDim a(lg), b(lg)
For i = 1 To lg
a(i) = Mid(Text2, i, 1)
b(i) = AscW(a(i)) Xor 4
Text3 = Text3 ChrW(b(i))
Next
End Sub
怎樣用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盤根目錄下任意建立一個(gè)文本文件（假設(shè)為文件名為aaa.txt），其中的內(nèi)容任意（可以包括字母、漢字、數(shù)字、回車符、換行符等）。運(yùn)行本程序后，在輸入文件名的對(duì)話框中輸入文件名（如：“C:\aaa.txt”）后回車，即可完成對(duì)文件的加密。文件加密后，可以在記事本中打開(kāi)該文件查看加密效果。如果想解密，可再次運(yùn)行該程序并輸入相同文件名。
? ?廣州龍躍自動(dòng)化專業(yè)破解解密各類plc加密，全國(guó)24小時(shí)聯(lián)系手機(jī)：18520649527 【關(guān)技術(shù)】 微信：guanshiyou009如有任何問(wèn)題請(qǐng)打手機(jī)或者添加微信，謝謝支持
