求助各种恶意破坏的方法

Question

'分不够再加分.'求助各种恶意破坏,使之让EXE文件运行时就出错.'前提下是程序没有使用屏蔽出错的语句!如下:On Error Resume Next
Err.Raise 6 '产生溢出错误。
MsgBox ("Error #  " & CStr(Err.Number) & " " & Err.Description)
Err.Clear  '清除错误

Answer 1

不,这种情况是程序没有加上On Error Resume Next的时候。故意让程序内存溢出...

Answer 2

Private Sub Form_Load()
MsgBox "You have met a fatal error.please contact me by [email protected]!!!"
End
End Sub

Answer 3

兄台,俺意思是说把翻译好的程序让其打开就出错:内存溢出.(程序的代码能翻译得通,只不过是没有加上On Error Resume Next.)

Answer 4

dim i As single
Dim j As single
j=i/0

Answer 5

Private Sub Form_Load()
    Dim i As Single
    Dim j As Single
    j = i / 0'//除数为0就会溢出啊!
End Sub

Answer 6

Private Sub Command1_Click()
    Dim i As Byte
    i = 256
End Sub

Answer 7

兄台正解..请问下兄台这样的木马程序是什么样的思路和做法呢
如果程序本身有加On Error Resume Next的时候,遇到了恶意破坏的木马,这时On Error Resume Next能起到反应吗

Answer 8

你说的是各种恶意破坏，那太多了。比如拦截所调用的API；判断程序的行为；等等入手。可以通过分析PE文件来解决，像杀毒软件那样。可惜，本人对PE文件研究不够。

Answer 9

你搞的是别人的exe,让别人的exe一运行就出错?其心可诛!

Answer 10

我来：
Private Declare Sub CopyMemory _
                Lib "kernel32" _
                Alias "RtlMoveMemory" (pDst As Any, _
                                       pSrc As Any, _
                                       ByVal ByteLen As Long)Private Sub Form_Load()
    Dim i(5) As Byte
    Dim j(5) As Byte
    CopyMemory i(0), j(0), 10000
    MsgBox i(0)
End Sub
屡试不爽，你试试看

Answer 11

只有引用的内容不允许回复！！CSDN又整的是啥玩意.........靠

Answer 12

呵呵，这个行啊！
或者
copymemory byval 0&,123,4