? ?廣州龍躍自動化專業(yè)破解解密各類plc加密，全國24小時聯(lián)系手機：18520649527 【關(guān)技術(shù)】 微信：guanshiyou009如有任何問題請打手機或者添加微信，謝謝支持
PLC解密,全國上門PLC解密維修找龍躍自動化PLC解密網(wǎng)VB制作plc解密軟件,專業(yè)PLC解密師傅電話153 8444 7766;提供三菱plc解密,臺達plc解密,西門子plc解密,信捷plc解密等各類PLC解密plc VB及觸摸屏解密維修服務(wù),【加微信：guanshiyou009】
用VB寫個簡單加密/解密程序
'圖上的控件,你就照著擺上去,然后再把以下代碼拷進去,就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
[img]我想做一個加密解密文件的VB程序！用des加密解密方法?。?！ 希望高手解答！
vb.net code注意隨機密碼按鈕在沒用，調(diào)試時你自己輸入密碼，一定為8位，我是將文件存在D盤，你自己在修改一下，那個就很簡單
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sSecretKey As String = Me.TextBox2.Text
EncryptFile(Me.TextBox1.Text, "D:\JMtest.txt", sSecretKey)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sSecretKey As String = Me.TextBox2.Text
DecryptFile("D:\JMtest.txt", "D:\Decrypted.txt", sSecretKey)
End Sub
Sub EncryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String)
Dim fsInput As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
Dim fsEncrypted As New FileStream(sOutputFilename, FileMode.Create, FileAccess.Write)
Dim DES As New DESCryptoServiceProvider
DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey)
DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
Dim desencrypt As ICryptoTransform = DES.CreateEncryptor()
Dim cryptostream As New CryptoStream(fsEncrypted, desencrypt, CryptoStreamMode.Write)
Dim byteArrayInput(fsInput.Length - 1) As Byte
fsInput.Read(byteArrayInput, 0, byteArrayInput.Length)
cryptostream.Write(byteArrayInput, 0, byteArrayInput.Length)
cryptostream.Close()
End Sub
Sub DecryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String)
Dim DES As New DESCryptoServiceProvider
DES.Key() = ASCIIEncoding.ASCII.GetBytes(sKey)
DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
Dim fsread As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor
Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)
Dim fsDecrypted As New StreamWriter(sOutputFilename)
fsDecrypted.Write(New StreamReader(cryptostreamDecr, System.Text.ASCIIEncoding.Default).ReadToEnd)
fsDecrypted.Flush()
fsDecrypted.Close()
End Sub
Private Sub BtnChoose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnChoose.Click
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "txt files (*.txt)|*.txt"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName "" Then
Me.TextBox1.Text = OpenFileDialog1.FileName
End If
End Sub
End Class
vb 暴力破解密碼程序的過程？
工作繁忙難免產(chǎn)生意外，比如對重要的word文檔加密之后卻把密碼忘得一干二凈，這幾乎會發(fā)生在每個人的身上。這時你可能會焦急萬分，不過我勸你不要太緊張，有空來程序谷坐坐，一定會有好的答案的。下面我們就來看看用窮舉法暴力破解word密碼的程序，當(dāng)然，為了簡單起見，程序只針對密碼是數(shù)字的情況做了處理，字符型的密碼與此類似，不再多說了。
一、引言
大家都知道，office家族跟VB有千絲萬縷的聯(lián)系，Microsoft office組件中的所有應(yīng)用程序都內(nèi)建有VBA，這樣就可以通過VB或VBA操作word 應(yīng)用程序中的對象，用窮舉測試的辦法達到找回丟失密碼的目的，非常簡單吧！
二、實現(xiàn)過程
下面來看一看程序的具體編制過程。程序采用VB編程實現(xiàn)，需要機器安裝有VB應(yīng)用程序及Microsoft office組件。打開VB，新建一個VB工程，取名Proc_word，將啟動窗體命名為FrmMain，選擇“工程”菜單中的“引用”，在“引用”對話框中選擇 “Microsoft word8.0 Object Library”（這一步很重要，你必須選擇這一ActiveX部件，否則代碼不能正確運行，順便說一句，如果安裝的是office2000，那么應(yīng)該選擇“Microsoft word9.0 Object Library”）。同時在“工程”菜單中“部件”對話框中選擇添加“Microsoft Windows common controls -2.5(sp2)”，以便在窗體設(shè)計中可以使用微調(diào)控件。
好了，現(xiàn)在可以動手編制程序了。在剛才FrmMain窗體的左側(cè)添加一個框架控件，并在此控件內(nèi)加入一個驅(qū)動器列表框、一個目錄列表框和一個文件列表框控件。在FrmMain窗體的右下側(cè)添加兩個命令按鈕，在右上側(cè)添加三個標(biāo)簽控件、兩個文本框控件和一個微調(diào)控件，你可以參考附圖來設(shè)計。接著，將框架的Caption屬性設(shè)置成“請選擇需要破譯的word文檔”；保持目錄列表框、驅(qū)動器列表框、文件列表框、文本框、微調(diào)控件缺省名稱不變；將文件列表框的Pattern屬性設(shè)置成“*.DOC”，目的是只顯示目錄下的 word文件；將第一個標(biāo)簽控件Caption屬性設(shè)置成“該程序破譯八位以下純數(shù)字組合word文檔密碼”，將第二個標(biāo)簽Caption屬性設(shè)置成“解密進度”，將第三個標(biāo)簽Caption屬性設(shè)置成“請選擇破譯密碼位數(shù)”；將第二個文本框的Text屬性設(shè)置成“4”，這是缺省密碼位數(shù)；將微調(diào)按鈕的 BuddyControl屬性設(shè)置成Text2就能和第二個文本框關(guān)聯(lián)，BuddyProperty 改成Text，Max、Min屬性分別設(shè)置成“8”和“1”，表示最長密碼位數(shù)和最短密碼位數(shù)，將Wrap屬性設(shè)置成True，將Increment屬性設(shè)置成“1”，以便每單擊一次加1或減1；將兩個命令按鈕的名稱分別改成 “cmdopendoc”和“cmdquit”，Caption屬性分別設(shè)置成“文件打開”、“系統(tǒng)退出”。以上就把各控件的屬性設(shè)置完了，接著編寫代碼也就不是什么難事兒了。
下面就是全部的源程序，適當(dāng)?shù)淖⑨層兄诖蠹依斫獬绦?。你還可以通過設(shè)置斷點來跟蹤密碼生成部分，看看程序編制的原理。
plc解密軟件是怎樣寫出來的
然后把PLC連接到電腦上，打開解密軟件，在軟件里選擇PLC連接到電腦的串口（COM 口），然后軟件就自動給你解密，并把密碼給你顯示出來。再把GPPW軟件打開，指定串口（ 也就是解密軟件所選的那個串口），可以先做個通信測試，看看串口選擇的是否正確。然后執(zhí)行程序讀取，這時就會要求要登陸口令，這時就把解密軟件所顯示的密碼輸入就可以了，全部程序就讀出來了。如果要把程序?qū)懭胄碌腜LC中，就在GPPW軟件的“在線”可以執(zhí)行“讀出”，“寫入”等操作！
? ?廣州龍躍自動化專業(yè)破解解密各類plc加密，全國24小時聯(lián)系手機：18520649527 【關(guān)技術(shù)】 微信：guanshiyou009如有任何問題請打手機或者添加微信，謝謝支持
