来这里看看有多少个 Active Cookie。

这只是广告商中比较守规矩的那些。你可以点 Select All，然后点 Submit，就全部退出了。

但不守规矩的那些呢？

中国国际广播电台：《老外看点》

其中某一期节目暗示了一个观点：
你说我们什么都要学老外，那老外不在意外国人怎么看自己，我们怎么不学呢？

还没有见过哪部电影把背景虚化这么厉害，色调变换得这么频繁。

接近结尾处一个黑人学生的死去，也将这部电影变成了我看过的最不像美国电影的美国电影。

导演通过这个学生的死亡回答了一个问题：

英雄和正常人的区别是什么？
答：英雄看的美国电影比较多。

在关注了几个月“用户需要什么样的软件”这个问题之后，发现用户的需求很简单，就是选择越少越好。一般按钮不要超过三个，五个为上限；对话框最好是一个都没有，因为用户对对话框的本能反应就是“出事了”，特别是那一声巨响会令用户惊慌失措。用户是希望对话框马上消失的，所以并不会仔细阅读上面写了什么。

界面上不要出现无关信息，一点都不要有。界面上的文字用户是会较为仔细地阅读的，但仅限于文字较少的界面。文字过多的会被用户直接鉴定为“这个东西很复杂、很难用”。调试信息仅在出现重大错误时给出，并明确提示用户“这不是给你看的，发给程序作者看”。

什么样的叫无关信息呢？比如：“先是一个老头，走在我们的前头！他是越走越快越走越快，啊一拐弯儿……没了。嗯，我看他是啊……到家了。”。

也就是说，仅显示没到家，且不卖冰棍的那些。

操作进度要有明确指示，但进度条要守信用。特别要避免那种一直循环滚动的进度条，这种进度条不论是一般用户还是软件开发人员都很厌恶。如果做不出有明确进度的进度条，那就干脆显示调试信息，让用户知道“你正在做事”。

待续。

那个遗言的画面太山寨了。

接下来切换到正片的那个镜头，是在考验我们的思维转换速度么？直接切到脸部特写多好……

前15分钟继续维持在较高水准，虽然港片用烂的那些桥段还在继续用。

另外，The end-user manually generated the crashdump。

再另外，我怎么没见哪个机箱上有红绿按钮……

再再另外，那个红色按钮是做什么的呢？

影片后面的部分就是在集中展示港片的缺点了。包括毫无意义的情节和人物等等。

顺带一提，K-1 的人物造型设计在影片的前半部分完全抄袭自 Gigolo Joe；在影片的后半部分你不觉得越看越像某个武侠剧里的人物么？

无论在主界面还是生成的日志文件还是第三方日志分析工具中都看不出任何破绽。

当然了，对于静态扫描器永远都有无穷无尽的 Dirty tricks 可以用。就看你的想象力了。

动起来，更精彩。

特别感谢“天月来了”提供样本。

提取并修改的解密函数：

Set F374 = CreateObject("Scripting.Filesystemobject")
Set F8b6 = F374.Opentextfile("D:\VM_Shared\706545925.vbs", 1)
Do Until F8b6.Atendofstream
Ccd4 = Trim(F8b6.Readline)

If Left(Ccd4, 1) = "'" Then
   C169 = A97b(Mid(Ccd4, 2, Len(Ccd4) - 2), Right(Ccd4, 1))
   Randomize
   Afb1 = Int(8 * Rnd + 2)
   A4ae = "'" & A97b(C169, Afb1) & Afb1
Else
   A4ae = Ccd4
A4ae = Af7c(A4ae)
   A4ae = Dd72(A4ae)
End If
Fa6d = Fa6d & C169 & vbCrLf
B056 = B056 & A4ae & vbCrLf

C169 = ""
A4ae = ""

Loop
Set F8b6 = F374.Opentextfile("D:\VM_Shared\706545925_Decrypted.vbs", 2)
F8b6.Write Fa6d
F8b6.Close
Set F374 = Nothing

'Execute Fa6d

Function A97b(Ebe2, Afb1)
For Eb91 = 1 To Len(Ebe2) Step Afb1
    A97b = A97b + StrReverse(Mid(Ebe2, Eb91, Afb1))
Next
End Function
Function Dd72(Ebe2)
Randomize
For Eb91 = 1 To Len(Ebe2)
   B2e4 = Mid(UCase(Ebe2), Eb91, 1)
If Int(Rnd * 2) Then
   B2e4 = LCase(B2e4)
End If
Dd72 = Dd72 & B2e4
Next
End Function
Function Af7c(Ebe2)
Randomize
For Eb91 = 0 To 13
   Ebe2 = Replace(UCase(Ebe2), UCase(Hex(&HF374 + Eb91)), UCase(Hex(Int(Rnd * 24000 + 40960) + Eb91)))
Next
Af7c = Ebe2
End Function

病毒主体（已对代码进行格式化）：

http://cid-ad319598642e8326.skydrive.live.com/self.aspx/Public/Viruses/706545925%5E_Decrypted.vbs

原始文件：

http://cid-ad319598642e8326.skydrive.live.com/self.aspx/Public/Viruses/706545925.vbs