返回列表 上一主題 發帖

[發問] 富哥請教一下代碼轉換

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1037 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

上述編碼轉換程式如附件(裡面沒病毒):
病毒編碼.zip (10.92 KB)
收藏 分享
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題