asp高手来看下这段解密函数！

1，这是段解密数字字符串的函数，请高手逆向写下数字字符串的对应加密函数，学习使用，本人愚昧，只能看懂，但不会写。
VBScript code:
Public Function DeCode(x)
x=replace(x,"%","")
For i=1 To len(x)
If asc(mid(x,i,1))>=72 Then
x=replace(x,mid(x,i,1),"0")
End If
Next
For i=1 To len(x) Step 4
decode=decode& chr(int("&H" & mid(x,i,4)))
Next
End Function


要是觉得简单，我在贴上一段难的，考考大家。下面是加密的函数，那位高手能写出对应解密的。
VBScript code:
Function Encode(strPass)
Dim i, theStr, strTmp

For i = 1 To Len(strPass)
strTmp = Asc(Mid(strPass, i, 1))
theStr = theStr & Abs(strTmp)
Next

strPass = theStr
theStr = ""

Do While Len(strPass) > 16
strPass = JoinCutStr(strPass)
Loop

For i = 1 To Len(strPass)
strTmp = CInt(Mid(strPass, i, 1))
strTmp = IIf(strTmp > 6, Chr(strTmp + 60), strTmp)
theStr = theStr & strTmp
Next

Encode = theStr
End Function

---

JoinCutStr是什么?