高分求助！帮忙翻译一下这段vb程序代码的中文意思

rivate Sub CmdSplit_Click()
私人次级CmdSplit_Click()

Dim sBmpFileName As String
昏暗的sBmpFileName字符串

Dim sFileName As String
昏暗的sFileName字符串

Dim sPassword As String
昏暗的sPassword字符串

Dim sfile
昏暗的sfile

'sBmpFileName = Text1.Text
sBmpFileName = Text1.Text '

sFileName = Text2.Text
sFileName = Text2.Text

sPassword = txtPassword.Text
sPassword = txtPassword.Text

'sfile = sBmpFileName
sfile = sBmpFileName的

If sPassword = "" Then
如果sPassword =”“那么

MsgBox " 请输入密码 ！ ", vbOKOnly + vbExclamation, " 注意 "
“请输入密码MsgBox !”,vbOKOnly + vbExclamation注意“,”

Timer1.
Timer1。

Enabled = True
=真正使

Exit Sub
退出子

End If
结束

If OptionJ1.
如果OptionJ1。

Value = True Then
价值=如此,那

sBmpFileName = CD1.FileName
sBmpFileName = CD1.FileName

Call splitotherfileJ(sBmpFileName, sFileName, sPassword)
(sBmpFileName splitotherfileJ,sFileName打电话,sPassword)

' 调用分离出密文的子程序
'调用分离出密文的子程序

MsgBox " 文件解密完毕，请选择适当方式查看密文！ ", vbOKOnly + vbInformation, " 祝贺你 "
“文件解密完毕MsgBox,请选择适当方式查看密文!”,vbOKOnly + vbInformation”,祝贺你”

Text4.
Text4。

BackColor = &HFFC0C0
&HFFC0C0 BackColor =

Text4.
Text4。

Font = "楷体"
字体= "楷体”

Open (CommonDialog2.FileName) For Output Access Write As #4
开放的(CommonDialog2.FileName)输出接入写4号

Print #4, Text4.
打印# 4,Text4。

Text '将rich1.Text的内容写入文件号为4的文件
将rich1.Text的内容写入文件号为4的文件文本'

Close #4
关闭# 4

End If
结束

If OptionJ2.
如果OptionJ2。

Value = True Then
价值=如此,那

If rich1.
如果rich1。

Text = "" Then ' 判断密文是否为空
文本= " "然后'判断密文是否为空

MsgBox " 文件为空,请选择有效文件！ ", vbOKOnly + vbExclamation, " 注意 "
“文件为空MsgBox,请选择有效文件!”,vbOKOnly + vbExclamation注意“,”

Exit Sub
退出子

End If
结束

If rich1.
如果rich1。

Text <> "" Then
文本< >”“那么

Text4.
Text4。

Text = DES.DecryptString(rich1.Text, txtPassword.Text)
(rich1.Text = DES.DecryptString文本,txtPassword.Text)

Text4.
Text4。

BackColor = &HFFC0C0
&HFFC0C0 BackColor =

Text4.
Text4。

Font = "楷体"
字体= "楷体”

End If
结束

Open (CommonDialog2.FileName) For Output Access Write As #4
开放的(CommonDialog2.FileName)输出接入写4号

Print #4, Text4.
打印# 4,Text4。

Text '将rich1.Text的内容写入文件号为4的文件
将rich1.Text的内容写入文件号为4的文件文本'

Close #4
关闭# 4

MsgBox "文件解密完毕！ ", vbOKOnly + vbInformation, " 祝贺你 "
“文件解密完毕MsgBox !”,vbOKOnly + vbInformation”,祝贺你”

End If
结束

Dim FileName As String
昏暗的文件名字符串

Dim pass() As Byte
昏暗的传球()为字节

Dim KeyBits As Long
昏暗的KeyBits一样长

Dim BlockBits As Long
昏暗的BlockBits一样长

If OptionJ3.
如果OptionJ3。

Value = True Then
价值=如此,那

If rich1.
如果rich1。

Text = "" Then ' 判断密文是否为空
文本= " "然后'判断密文是否为空

MsgBox " 文件为空,请选择有效文件！ ", vbOKOnly + vbExclamation, " 注意 "
“文件为空MsgBox,请选择有效文件!”,vbOKOnly + vbExclamation注意“,”

Exit Sub
退出子

End If
结束

If rich1.
如果rich1。

Text <> "" Then
文本< >”“那么

FileName = Text2.Text
Text2.Text文件名=

If Len(FileName) <> 0 Then
如果兰(文件名)< > 0即可

If InStrRev(FileName, ".txt") = Len(FileName) - 3 Then FileName2 = Left$(FileName, Len(FileName) - 4)
如果InStrRev(文件名,“.txt”)=莱恩(文件名)- 3然后FileName2美元=离开(文件名,莱恩(文件名)- 4)

FileName2 = FileDialog(Me, True, "解密数据另存为：", "另存为 |*.*|*.txt|*.aes|*.*")
FileName2 = FileDialog(我,真的,”解密数据另存为”、“另存为| * * . * * .aes | | | .txt * . *”)

If Len(FileName2) <> 0 Then
如果兰(FileName2)< > 0即可

RidFile FileName2
RidFile FileName2

KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)
KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)

BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)
BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)

pass = GetPassword
= GetPassword通过

Status = "Decrypting File"
解密档案”地位= "

#If SUPPORT_LEVEL Then
#如果SUPPORT_LEVEL然后

m_Rijndael.
m_Rijndael。

SetCipherKey pass, KeyBits, BlockBits
过去,KeyBits BlockBits SetCipherKey,

m_Rijndael.
m_Rijndael。

FileDecrypt FileName2, FileName, BlockBits
FileDecrypt BlockBits FileName2,文件名,

#Else
#别的

m_Rijndael.
m_Rijndael。

SetCipherKey pass, KeyBits
KeyBits SetCipherKey过去,

m_Rijndael.
m_Rijndael。

FileDecrypt FileName2, FileName
FileDecrypt FileName2,文件名

#End If
#结束

Status = ""
状态=”“

End If
结束

End If
结束

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/ejr7vf72v.html