cnvstowによるBOFで音もなく落ちるHSP君 | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
#include "HSP3utf.as"
#include "kernel32.as"
#define WM_MOUSEMOVE                    0x0200
    screen 0, 1600, 900
    font "メイリオ", 13
    randomize
    
    oncmd gosub *WM_MOUSEMOVE_, WM_MOUSEMOVE
    count = 0
    stop
    /*
        マウルカーソルを画面上で動かすとWM_MOUSEMOVEを捕捉して以下のサブルーチンが実行されます
        しばらく動かしてるとスッ…とプロセスが落ちるよ！
        艦これ一覧めいかー改二はこのバグに悩まされていたんDA★
    */
*WM_MOUSEMOVE_
    //アルファベット、ひらがなカタカナ混合の64～128文字の文字列を作成し変数に代入する
    utf8 =  makeRandomString()
    //UTF-16に変換したときの文字数を取得する
    wideLen = MultiByteToWideChar(65001, 0, varptr(utf8), strlen(utf8), 0, 0)
    //UTF-16の文字列は1文字2Byteなので終端文字まで含めたバッファを確保する(指定はByte)
    sdim wide, wideLen*2+2
    //画面に作成した文字列を表示させる
    mes utf8
    //必要な領域をちゃんと確保したバッファにHSPの標準命令でUTF-8→UTF-16に変換する
    cnvstow wide, utf8
    
    if (count\50==0):cls
    count++
    
return
#module
#defcfunc makeRandomString
    sdim output, 1024
    sdim t
    outIdx = 0
    
    repeat 64+rnd(64)
        switch rnd(5)
            case 0
                t = "!"
                poke t, 0, peek(t,0)+rnd(93)
                poke output, outIdx, peek(t, 0)
                outIdx++
                swbreak
            
            case 1
                t = "ぁ"
                poke t, 2, peek(t,2)+rnd(63)
                wpoke output, outIdx, wpeek(t, 0)
                poke output, outIdx+2, peek(t, 2)
                outIdx += 3
                swbreak
            case 2
                t = "む"
                poke t, 2, peek(t,2)+rnd(23)
                wpoke output, outIdx, wpeek(t, 0)
                poke output, outIdx+2, peek(t, 2)
                outIdx += 3
                swbreak
            case 3
                t = "ァ"
                poke t, 2, peek(t,2)+rnd(31)
                wpoke output, outIdx, wpeek(t, 0)
                poke output, outIdx+2, peek(t, 2)
                outIdx += 3
                swbreak
            case 4
                t = "ダ"
                poke t, 2, peek(t,2)+rnd(59)
                wpoke output, outIdx, wpeek(t, 0)
                poke output, outIdx+2, peek(t, 2)
                outIdx += 3
                swbreak
        swend
    loop
return output
#global
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX