vbs脚本解密,谁能一眼看穿?

[millken]

sub play(url)

serverurl="http://220.168.208.62"
'msgbox serverurl&ungm(url)

real.setsource(serverurl&ungm(url))
real.doPlay
end sub
function ungm(yyy)
dim result1
length1=len(yyy)
result1=""
for j=1 to length1
sing=mid(yyy,j,1)
select case sing
case "n"
if j=1 then
result1="a" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "a"
else
result1=left(yyy,j-1) & "a" & mid(yyy,j+1)
end if
case "b"
if j=1 then
result1="b" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "b"
else
result1=left(yyy,j-1) & "b" & mid(yyy,j+1)
end if
case "v"
if j=1 then
result1="c" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "c"
else
result1=left(yyy,j-1) & "c" & mid(yyy,j+1)
end if

case "c"
if j=1 then
result1="d" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "d"
else
result1=left(yyy,j-1) & "d" & mid(yyy,j+1)
end if
case "x"
if j=1 then
result1="e" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "e"
else
result1=left(yyy,j-1) & "e" & mid(yyy,j+1)
end if
case "z"
if j=1 then
result1="f" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "f"
else
result1=left(yyy,j-1) & "f" & mid(yyy,j+1)
end if

case "m"
if j=1 then
result1="g" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "g"
else
result1=left(yyy,j-1) & "g" & mid(yyy,j+1)
end if
case "d"
if j=1 then
result1="h" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "h"
else
result1=left(yyy,j-1) & "h" & mid(yyy,j+1)
end if
case "s"
if j=1 then
result1="i" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "i"
else
result1=left(yyy,j-1) & "i" & mid(yyy,j+1)
end if





case "a"
if j=1 then
result1="j" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "j"
else
result1=left(yyy,j-1) & "j" & mid(yyy,j+1)
end if
case "f"
if j=1 then
result1="k" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "k"
else
result1=left(yyy,j-1) & "k" & mid(yyy,j+1)
end if
case "g"
if j=1 then
result1="l" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "l"
else
result1=left(yyy,j-1) & "l" & mid(yyy,j+1)
end if

case "l"
if j=1 then
result1="m" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "m"
else
result1=left(yyy,j-1) & "m" & mid(yyy,j+1)
end if

case "k"
if j=1 then
result1="n" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "n"
else
result1=left(yyy,j-1) & "n" & mid(yyy,j+1)
end if

case "j"
if j=1 then
result1="o" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "o"
else
result1=left(yyy,j-1) & "o" & mid(yyy,j+1)
end if

[millken]

case "h"
if j=1 then
result1="p" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "p"
else
result1=left(yyy,j-1) & "p" & mid(yyy,j+1)
end if
case "e"
if j=1 then
result1="q" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "q"
else

result1=left(yyy,j-1) & "q" & mid(yyy,j+1)
end if
case "r"
if j=1 then
result1="r" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "r"
else
result1=left(yyy,j-1) & "r" & mid(yyy,j+1)
end if



case "w"
if j=1 then
result1="s" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "s"
else
result1=left(yyy,j-1) & "s" & mid(yyy,j+1)
end if
case "q"
if j=1 then
result1="t" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "t"
else
result1=left(yyy,j-1) & "t" & mid(yyy,j+1)
end if
case "t"
if j=1 then
result1="u" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "u"
else
result1=left(yyy,j-1) & "u" & mid(yyy,j+1)
end if


case "i"
if j=1 then
result1="v" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "v"
else
result1=left(yyy,j-1) & "v" & mid(yyy,j+1)
end if
case "y"
if j=1 then
result1="w" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "w"
else
result1=left(yyy,j-1) & "w" & mid(yyy,j+1)
end if
case "o"
if j=1 then
result1="x" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "x"
else
result1=left(yyy,j-1) & "x" & mid(yyy,j+1)
end if

case "u"
if j=1 then
result1="y" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "y"
else
result1=left(yyy,j-1) & "y" & mid(yyy,j+1)
end if
case "p"
if j=1 then
result1="z" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "z"
else
result1=left(yyy,j-1) & "z" & mid(yyy,j+1)
end if

'数字
case "8"
if j=1 then
result1="1" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "1"
else
result1=left(yyy,j-1) & "1" & mid(yyy,j+1)
end if
case "4"
if j=1 then
result1="2" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "2"
else
result1=left(yyy,j-1) & "2" & mid(yyy,j+1)
end if
case "2"
if j=1 then
result1="3" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "3"
else
result1=left(yyy,j-1) & "3" & mid(yyy,j+1)
end if
case "1"
if j=1 then
result1="4" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "4"
else
result1=left(yyy,j-1) & "4" & mid(yyy,j+1)
end if
case "6"
if j=1 then
result1="5" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "5"
else
result1=left(yyy,j-1) & "5" & mid(yyy,j+1)
end if
case "3"
if j=1 then
result1="6" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "6"
else
result1=left(yyy,j-1) & "6" & mid(yyy,j+1)
end if
case "5"
if j=1 then
result1="7" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "7"
else
result1=left(yyy,j-1) & "7" & mid(yyy,j+1)
end if
case "7"
if j=1 then
result1="8" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "8"
else
result1=left(yyy,j-1) & "8" & mid(yyy,j+1)
end if
case "0"
if j=1 then
result1="9" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "9"
else
result1=left(yyy,j-1) & "9" & mid(yyy,j+1)
end if

case "9"
if j=1 then
result1="0" & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "0"
else
result1=left(yyy,j-1) & "0" & mid(yyy,j+1)
end if
case "/"
if j=1 then
result1="/" & right(yyy,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "/"
else
result1=left(yyy,j-1) & "/" & mid(yyy,j+1)
end if
case "*"
if j=1 then
result1="." & right(str1,len(yyy)-1)
elseif j=length1 then
result1=left(yyy,len(yyy)-1) & "."
else
result1=left(yyy,j-1) & "." & mid(yyy,j+1)
end if
end select
yyy=result1
next
ungm=yyy
end function

[text44]

那么长 真有人能一眼看穿不？