谁会写加密工具？

Dim miwen() As Byte, zhengzi() As Byte
Dim yuanwen As String

Private Sub 解密(密文() As Byte, 正文() As Byte)
Dim 正文长度 As Integer, 正文指针 As Integer, 密文指针 As Integer
Dim 密字1 As Byte, 密字2 As Byte, 密字3 As Byte, 密字4 As Byte

密文指针 = LBound(密文)
正文长度 = (UBound(密文) - 密文指针 + 1) / 4 * 3
ReDim 正文(正文长度)
正文指针 = 0
Do
密字1 = 密文(密文指针) - 60
密字2 = 密文(密文指针 + 1) - 60
密字3 = 密文(密文指针 + 2) - 60
密字4 = 密文(密文指针 + 3) - 60

正文(正文指针) = 密字1 * 4 + (密字2 And 48) / 16 '第一字节低6位与第二字节5、6位构成第一字
正文(正文指针 + 1) = (密字2 And 15) * 16 + (密字3 And 60) / 4 '第二字节低4位与第三字节中4位构成第二字
正文(正文指针 + 2) = (密字3 And 3) * 64 + 密字4 '第三字节低2位与第二字节高6位构成第三字

密文指针 = 密文指针 + 4
正文指针 = 正文指针 + 3
Loop Until 密文指针 > UBound(密文)
End Sub

Private Sub 加密(原文() As Byte, 密文() As Byte)
Dim 密文长度 As Integer, 密文指针 As Integer, 原文指针 As Integer
Dim 密字1 As Byte, 密字2 As Byte, 密字3 As Byte, 密字4 As Byte
ReDim Preserve 原文(((UBoun