admin管理员组文章数量:1665129
文章目录
- 钵钵鸡实验环境
- 钵钵鸡实验效果
- 一、宏代码注入
- 二、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/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高级配置
你会点击哪一个呢
版权声明:本文标题:kali-WinRaR实验~钵钵鸡 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://www.elefans.com/xitong/1730037376a1220140.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论