'ÓÂ·¼×Ö·û¼òµ¥½âÂë
Function YF_Easy_Uncode(ByVal cS As String) As String
  Dim I As Long, b As String, a As String, C As Long, Ii As Long
  Dim Ca As Long
  If Len(cs) < 10 Then Exit Function
  Ca = Val("&H" & Mid(cs, 1, 2)) + 2
  Ii = 2
  For I = Ca To Len(cs)
      Ii = Ii + 1
      If Ii = Ca Then Ii = 3
      b = b & Hex(Val("&H" & Mid(cs, I, 1)) Xor Val("&H" & Mid(cs, Ii, 1)))
  Next
  
  a = ""
  For I = 1 To Len(b) Step 2
      C = Val("&H" & Mid(b, I, 2))
      a = a & Chr(Val("&H" & Mid(b, I, 2)))
  Next
  Function = a
End Function
