暱稱: 阿吉 頭銜: 不恥下問,不斷學習,才會進步
版主  
- 帖子
- 647
- 主題
- 190
- 精華
- 24
- 積分
- 1037
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- Office 2010 ; OOO3.0 ; Google
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 竹南
- 註冊時間
- 2010-5-2
- 最後登錄
- 2022-6-24
  
|
本帖最後由 HUNGCHILIN 於 2013-6-14 08:52 編輯
富哥
請教一下，這幾天學習前輩EXCEL病毒程式的一環，其中有代碼轉換，您對這個有研究嗎?
SHEET上有以下代碼，VBA讀取SHEET儲存格內容如下
510065007e00230079006d00650078006f002c002100
220030003c002300770067007e002b00230024005b0061006b007f00760025003200490040005600470036005e005a004e002b00380031003d003000
220030003c0023005c0064007f004a007d00700061007f006f0067007f002d007a0079007000
220030003c0023005b007b007d002b0077002400350029003f0033004e00620030003b0031002a00
220030003c0023003d0034002f002b004d00610066006d004500760063007e003000630021003c0024003a006000290076002b003800310058006b0072006d00
220030003c0023005300710077007f003e006d00
220030003c0023004e00710061006f005500610071007a002e00310027002f003c002a005500680071007d00
47007e00780023004e0061006d00
上述經過VBA可以對應轉化為如下程式碼
Sub dyjsq()
jsq = Shell("CALC.EXE", 1)
AppActivate jsq
For i = 1 To 100
SendKeys i & "{+}", True
Next i
SendKeys "=", True
End Sub
上述編碼轉換程式如附件(裡面沒病毒):
 病毒編碼.zip (10.92 KB)
|
|
發表於 2013-6-13 12:39
| 
