要实现向配置文件指定地址写入输入的IP地址
IP地址经过加密处理
算法如下：
1、输入的IP地址取第一位 XOR 87H
2、第二位 XOR 第一步的值 ，循环处理

运算后的结果写入配置文件

以上如何编程实现，希望高手给出程序示例

顶上去

Private CONST GENKEY = &H87

''Sample: <Local Variable> = EnCode("127.0.0.1")

Private Function EnCode(ByVal IP As String) As String
Dim aBytes() As Byte
Dim i As Integer

aBytes = IP

aBytes(0) = aBytes(0) Xor GENKEY

For i = 1 To Ubound(aBytes)
aBytes(i) = aBytes(i) Xor aBytes(i - 1)
Next

EnCode = aBytes
End Sub

sub 保存加密IP$(IP$)
if ip$="" then ip$=inputbox$("")
j%=&H87
k$=""
for i=1 to len(ip$)
j%=j% Xor asc(mid(ip$,i,1))
k$=k$ & chr$(j%)
next
open "config.dat"for binary as #1
put #1,1331,k$
close
end sub
以上代码在生成k$字串后，写入config.dat文件怎么全是00。
请高手指点下，应该怎么处理！！！

我试了下你的代码，不过在写入配置文件后多加了一个字节。
怎么将多的字节去掉呢？

1、在TEXT1.TEXT中输入IP地址"192.168.122.119"

2、一共是15位,转化为16进制"31 39 32 2E 31 36 38 2E 31 32 32 2E 31 31 39"
3、然后进行加密运算
4、第一位31H XOR 87H
5、然后后一位与第4步结果 XOR
6、输出字串"B6 8F BD 93 A2 94 AC 82 B3 81 B3 9D AC 9D A4"
我按你的算法输出的字串结果
“3F EA A3 3F E6 66 3F EE CD 3F BD DA 3F C4 64 3F F9 9B 3F F9 9B 3F”