標題: [發問] 富哥請教一下代碼轉換 [打印本頁]

---

作者: HUNGCHILIN    時間: 2013-6-13 12:39     標題: 富哥請教一下代碼轉換

本帖最後由 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

上述編碼轉換程式如附件(裡面沒病毒):
[attach]15247[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)