G
gxpcw
Unregistered / Unconfirmed
GUEST, unregistred user!
Private Function tobcc(s As String) As String
t = 0
For i = 1 To Len(s)
t = t Xor Asc(Mid$(s, i, 1))
Next i
tobcc = Right$("0" + Hex$(t), 2)
End Function
t = 0
For i = 1 To Len(s)
t = t Xor Asc(Mid$(s, i, 1))
Next i
tobcc = Right$("0" + Hex$(t), 2)
End Function