字符串加密及解密

zopey

Sub 按钮2_Click()
Dim X() As Byte, z As String
Dim rc4 As RC4Struct
Set rc4 = New RC4Struct

For j = 4 To 6  '代表工作表第4行到第6行 ，修改这里数字
If Cells(j, 1).Value <> "" Then
   ' 初始化
   z = Cells(1, 2).Value
   rc4.InitZero (z)
   '异或加密
   z = Cells(j, 1).Value
   X = z
   For i = 0 To UBound(X)
       X(i) = X(i) Xor rc4.NextByte
   Next
   z = X
   Cells(j, 2).Value = z
End If
Next
End Sub

cj9687451

zopey 发表于 2018-6-7 11:23
Sub 按钮2_Click()
Dim X() As Byte, z As String
Dim rc4 As RC4Struct

请问，为什么要将cubf2q加密，密钥是China，解密不了呢？

zopey

cj9687451 发表于 2019-1-26 22:58
请问，为什么要将cubf2q加密，密钥是China，解密不了呢？

2 楼 附件，可以实现

cj9687451

zopey 发表于 2019-1-27 09:20
2 楼 附件，可以实现

是什么原因造成的呢？密钥和原文有冲突？

zopey

cj9687451 发表于 2019-1-27 11:41
是什么原因造成的呢？密钥和原文有冲突？

加密成功后 为同样长度的一段乱码（包含不可见字符），没有问题呀。

nicktf

正需要，非常感谢

shaokui123

谢谢分享！

excel.x

大神，怎么是乱码呢？

zopey

excel.x 发表于 2020-5-24 21:38
大神，怎么是乱码呢？

2进制数据被当做文字显示就是乱码，但能还原。

excel.x

zopey 发表于 2020-5-25 15:21
2进制数据被当做文字显示就是乱码，但能还原。

怎么转化成数字字母组合呢。