lcResult = "" lnMaxLength = max( len( s1), len( s2)) for lnI = 1 to lnMaxLength lcResult = lcResult + chr( bitxor( asc( substr( s1, lnI, 1)),; asc( substr( s2, lnI, 1)))) endfor