' --------------------------------------------
' 복호화
' --------------------------------------------
function unEncrypt(theText)
Dim output, Temp(), Temp2()
'theText = unEscape(theText)
TextSize = Len(theText)
if TextSize < 1 then
unEncrypt = ""
exit function
end if
ReDim Temp(TextSize-1)
ReDim Temp2(TextSize-1)
for i = 0 to TextSize-2 step 2
Temp(i) = AscW(Mid(theText, i+1, 1))
Temp2(i) = AscW(Mid(theText, i+2, 1))
next
for i = 0 to TextSize-1 step 2
output = output & ChrW(Temp(i) - Temp2(i))
next
unEncrypt = output
end function
