7617
社区成员
Public Function xEncode(ByVal strsrc As String, ByVal secret As String) As Byte()
Dim bs() As Byte
Dim xs() As Byte
bs = StrConv(strsrc, vbFromUnicode)
xs = StrConv(secret, vbFromUnicode)
Dim l As Long
Dim xl As Long
l = UBound(bs)
xl = UBound(xs)
If l = 0 Or xl = 0 Then
xEncode = vbNullString
Exit Function
End If
Dim i As Long
Dim b As Byte
For i = 0 To l - 1
b = (bs(i) - 1) Xor xs(i Mod xl)
bs(i) = IIf(b = 0, 255, b)
Next i
xEncode = bs
End Function