kali-WinRaR实验~钵钵鸡

2023-12-20 19:15:51

文章目录

  • 钵钵鸡实验环境
  • 钵钵鸡实验效果
  • 一、宏代码注入
  • 二、WinRaR高级配置

钵钵鸡实验环境

  • WinRaR

  • docm文档

  • mp3音乐文件

钵钵鸡实验效果

WinRaR实验~钵钵鸡

一、宏代码注入

宏代码注入: 宏代码通常是在文档内使用宏语言(如Microsoft Office中的VBA)编写的小程序。攻击者通过在文档中插入宏代码,利用用户打开文档时自动执行宏的特性,从而运行恶意代码。它是一种常见的攻击手法,特别是在Office文档中。

比如打开文档自动播放网页钵钵鸡音乐

Sub AutoOpen()
    MsgBox "喜欢钵钵鸡的一天(60秒后关闭)"
    
    ' 创建Internet Explorer对象
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 定义要访问的网页 URL
    Dim URL As String
    URL = "https://www.kugou.com/mixsong/9izcste5.html" ' 替换为实际的网页 URL
    
    ' 在IE中打开指定网页
    IE.Visible = False ' 是否显示IE窗口,可根据需要调整
    
    ' 载入网页
    IE.Navigate URL
    
    ' 等待网页加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 查找并点击按钮(以按钮的 ID 或类名等方式定位)
    Dim buttonElement As Object
    Set buttonElement = IE.Document.getElementById("toggle")
    
    ' 模拟按钮点击
    If Not buttonElement Is Nothing Then
        buttonElement.Click
    Else
        MsgBox "未找到按钮或按钮不存在。"
    End If
    
    ' 使用自定义延时函数,暂停60秒
    DelaySeconds 60
    
    ' 关闭 Internet Explorer
    IE.Quit
    Set IE = Nothing
End Sub

Sub DelaySeconds(seconds As Single)
    ' 自定义延时函数,等待指定秒数
    Dim startTime As Single
    startTime = Timer
    
    Do
        DoEvents
    Loop While Timer < startTime + seconds
End Sub

二、WinRaR高级配置

参考之前文章思路
WinRaR高级配置

你会点击哪一个呢

在这里插入图片描述

文章来源:https://blog.csdn.net/qq_18931093/article/details/135109304
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。