关于一段代码的改写

Question

Public Function authcode(val, operation)
dim coded, val_length, auth_key, i
coded = ""
i=0
val = strUnicode2Ansi(val)
auth_key = md5("frh4t4oAzMjHKCF"&request.ServerVariables("HTTP_USER_AGENT"))
if operation = "DECODE" then
val = base64Decode(val)
end if
val_length = lenb(val)
while i < val_length
coded = coded & mxor(midb(val,i,32), auth_key)
i = i + 32
wend
if operation = "ENCODE" then
coded = replace(base64Encode(coded), "=", "")
end if
authcode = strAnsi2Unicode(coded)
End Function
这个是现在改写的，在midb处报错

Answer 1

源代码出处是discuz，需要改写一些使原系统可以整合，有大侠可以帮下忙不？

Answer 2

Function mxor(chrb1,chrb2)
if chrb1<>"" and chrb2 <>"" then
mxor=chrb(ascb(chrb1) xor ascb(chrb2))
' else
' mxor=""
end if        
End Function