Indetectables

Bueno esto es una traducción simple que hice del XOR a VBS.

Function sXOR(sText, sKey)
    On Error Resume Next
	
	Dim i, s, k
	
	For i = 1 To Len(sText)
	    s = Mid(sText, i, 1): k = Asc(s): k = k Xor Len(sKey): k = Chr(k): sXOR = sXOR & k
	Next
End Function

//Regards.