Shellcode加密解密函数

不知道写得对不对啊！错了再改吧！

加密函数

Function Encodestr(s,xorstr)
Dim en
For i=1 To Len(s)
    en = en & hex (Asc(Mid(s,i,1)) Xor "&h"&xorstr)
Next
If Len(s) Mod 2 >0 Then 
    en = en & "00"
End If     
Set regex=new regExp
     regex.pattern="(..)(..)"
     regex.IgnoreCase=true
     regex.global=true
     matches=regex.replace(en,"％u$2$1")
  Encodestr=LCase(matches)
End Function

解密函数

Function Decodestr(s,xorstr)
Dim de,destr
de=Replace(s,"％u","")
set regex=new regExp
     regex.pattern="(..)(..)"
     regex.IgnoreCase=true
     regex.global=true
     matches=regex.replace(de,"$2$1")
For i = 1 To Len(matches) step 2
     hexTmp = Mid(matches,i,2)
     If hexTmp <> "00" Then
     destr = destr & CHR(CLng("&h" & hexTmp) Xor "&h"&xorstr)
     End If
Next
Decodestr=LCase(destr)
End Function