private function encrypt(byval strsource as string, byval key1 as byte, _
byval key2 as integer) as string
dim blowdata as byte
dim bhigdata as byte
dim i as integer
dim strencrypt as string
dim strchar as string
for i = 1 to len(strsource)

'從待加（解）密字符串中取出一個字符

strchar = mid(strsource, i, 1)

'　取字符的低字節和key1進行異或運算

blowdata = ascb(midb(strchar, 1, 1)) xor key1

'取字符的高字節和k2進行異或運算

bhigdata = ascb(midb(strchar, 2, 1)) xor key2

'將運算后的數據合成新的字符

strencrypt = strencrypt & chrb(blowdata) & chrb(bhigdata)

next
encrypt = strencrypt
end function