|
下記のようにすることで出来ました。
Function Sample1()
Dim ss As String '作業用
Dim aa As String '作業用
Dim bb(90) As String '作業用
Dim i As Long 'ループカウンタ
Dim j As Long
Dim k As Long
Dim x As String
Dim y As String
Dim data As String
Dim Randmoji As String
ss = "ABCDEFGH"
aa = "Adrt"
k = Len(aa)
'文字列のバイト数分ループする
For i = 1 To LenB(ss)
j = j + 1
Randomize
Randmoji = Chr(Int((90 - 35 + 1) * Rnd + 65))
'文字列のiバイト目の文字コードをNOT演算した文字にする
' MidB$(ss, i, 1) = ChrB$(Not AscB(MidB$(ss, i, 1)))
bb(i) = AscB(MidB$(ss, i, 1)) Xor AscB(MidB$(aa, j, 1))
x = MidB$(ss, i, 1) '確認用
y = MidB$(aa, j, 1) '確認用
If j = LenB(aa) Then
j = 0
End If
data = data & bb(i)
Next
'返り値のセット
Sample1 = data
End Function
|
|