【HSP3】hsp3ld V3

もちょっと直した
hinekure_inovia
2013/1/2 0:41
タグ：
タグはありません
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
#runtime "hsp3ld"
#include "user32.as"
#include "kernel32.as"
#module load_dll
#deffunc load_dll_init
    sdim name, 261
    GetModuleFileNameA 0, varptr(name), 260
    LoadLibraryA getpath(name, 8)
    hEXE = stat
    GetProcAddress hEXE, "InitializeDLLLoad"
    pInitializeDLLLoad = stat
    if pInitializeDLLLoad == 0{
        dialog "hsp3ldランタイムが使用されていません。終了します。" : end
    }
    prm = 0
    ret = callfunc(prm, pInitializeDLLLoad, 0)
return ret
#deffunc LoadDLL str fname
    name = getpath(fname, 8) + "_DLLIMAGE"
    exist fname
    if strsize == -1 : return 0
    size = strsize
    sdim buf, size
    bload fname, buf
    // DLLイメージを書き込む
    // PAGE_READWRITE
    CreateFileMapping -1, 0, 0x04, 0, size, 0; varptr(name)
    hMapObj = stat
    // FILE_MAP_WRITE
    MapViewOfFile hMapObj, 0x02, 0, 0, size
    sharedMemPtr = stat
    if sharedMemPtr == 0 {
        CloseHandle hMapObj
        return 0
    }
    dupptr sharedMemVal, sharedMemPtr, size, 2
    // DLLイメージをコピーする
    memcpy sharedMemVal, buf, size, 0, 0
    UnmapViewOfFile sharedMemPtr    // 一度閉じておく
    // FILE_MAP_READ
    MapViewOfFile hMapObj, 0x04, 0, 0, 0
    pBaseAddr = stat
    if pBaseAddr == 0{
        CloseHandle hMapObj
        return 0
    }   
    // 実行
    name = getpath(fname, 8)
    GetProcAddress hEXE, "LoadDLLFromImage"
    pLoadDLLFromImage = stat
    prm.0 = pBaseAddr, varptr(name), 0
    ret = callfunc(prm, pLoadDLLFromImage, 3)
    
    UnmapViewOfFile pBaseAddr
    CloseHandle hMapObj
return ret
#defcfunc GetDLLProcAddress int handle, str fn
    _fn = fn
    GetProcAddress hEXE, "GetDLLProcAddress"
    pGetDLLProcAddress = stat
    prm = handle, varptr(_fn)
    ret = callfunc(prm, pGetDLLProcAddress, 2)
return ret
#deffunc LoadPackDLL str _fname
    // 小文字に変換
    fname = getpath(_fname, 16)
    // すでに読み込み済みな場合はDLLをデタッチする
    GetModuleHandle fname
    if stat != 0{
        FreeLibrary stat
    }
    // パックファイルからDLLを読み取りアタッチする
    LoadDLL fname
    hDLL = stat
    if hDLL == 0 : return -1    // 失敗 
    
    // Func info から 関数を検索して差し替え登録する
    mref hspctx, 68
    dupptr hsphed, hspctx.0, 96 // hspctx.hsphed / sizeof HSPHED
    ds_ptr = lpeek( hspctx, 12 ) // hspctx.mem_mds
    finfo_ptr = lpeek( hspctx, 840 ) // hspctx.mem_finfo
    max_finfo = lpeek( hsphed, 60 ) // hsphed.max_finfo
    linfo_ptr = lpeek( hspctx, 840 - 8 )
    max_linfo = lpeek( hsphed, 60 - 8 )
    
    dupptr linfo, linfo_ptr, max_linfo
    sdim dlllist, 260 : dllnum = 0  // 使用中のDLL名のリストですの
    for i, 0, max_linfo, 16 // LIBDAT size
        nameidx = lpeek( linfo, i + 4 )
        dupptr dllname, ds_ptr + nameidx, 260, 2
        dlllist.dllnum = getpath(dllname, 16)   // 小文字に
        dllnum++
        sdim dllname
    next
    sdim linfo
    // 関数名の一覧ですの
    dupptr finfo, finfo_ptr, max_finfo
    for i, 0, max_finfo, 28 // sizeof STRUCTDAT == 28
        libindex = wpeek( finfo, i)
        nameidx = lpeek( finfo, i + 12 )
        proc = lpeek( finfo, i + 24 )
        dupptr name, ds_ptr + nameidx, 260, 2
        if dllnum > libindex {
            // DLL名の一致
            if dlllist(libindex) == fname{
                // 関数名からアドレスを取得
                pFunc = GetDLLProcAddress(hDLL, name)
                if pFunc == 0 : _continue
                // 書き換え
                lpoke finfo, i + 24, pFunc
            }
            ;logmes name + ":"+proc+":"+dlllist(libindex)
        }
        sdim name
    next
    sdim finfo
    sdim hsphed
return 0
#deffunc LoadPackHPI str _fname
    // 小文字に変換
    fname = getpath(_fname, 16)
    
    // すでに読み込み済みな場合はDLLをデタッチする
    GetModuleHandle fname
    if stat != 0{
        FreeLibrary stat
    }
    // パックファイルからDLLを読み取りアタッチする
    LoadDLL fname
    hDLL = stat
    if hDLL == 0 : return -1    // 失敗 
    
    mref hspctx, 68
    dupptr hsphed, hspctx.0, 96 // hspctx.hsphed / sizeof HSPHED
    ds_ptr = lpeek( hspctx, 12 ) // hspctx.mem_mds
    ;dupptr ds, ds_ptr, 1024
    ;bsave "ds.txt", ds, 1024
    
    pt_hpidat = lpeek( hsphed, 80 )
    max_hpi = wpeek( hsphed, 84 )
    max_varhpi = wpeek( hsphed, 86 )
    ptr = hspctx.0 + pt_hpidat
    
    dupptr hpidat, ptr, max_hpi
    for i, 0, max_hpi, 16   // HPIDAT size
        nameidx = lpeek( hpidat, i + 4 )
        funcidx = lpeek( hpidat, i + 8 )
        ;_libptr = lpeek( hpidat, i + 12 )
        dupptr funcname, ds_ptr + funcidx, 260, 2
        dupptr name, ds_ptr + nameidx, 260, 2
        dllname = getpath(name, 16)
        // DLL名の一致
        if dllname == fname{
            pFunc = GetDLLProcAddress(hDLL, funcname)
            if pFunc == 0 : _continue
            lpoke hpidat, i + 12, pFunc
        }
        sdim name
        sdim funcname
    next
    sdim hpidat
    ;sdim ds
    sdim hsphed
return 0
#deffunc KillDLLLoad onexit
    GetProcAddress hEXE, "KillDLLLoad"
    pKillDLLLoad = stat
    prm = 0
    ret = callfunc(prm, pKillDLLLoad, 0)
return
#global
load_dll_init
#pack "hspogg.dll"
#pack "hspsock.dll"
#pack "hspinet.dll"
#pack "theme.wav"
    // パックファイルからDLLを読み込む（実行ファイルにしたとき）
    LoadPackDLL "hspsock.dll"   // #func #cfunc のみ
    if stat : dialog "hspsock.dll の読み込みに失敗しました" : end
    LoadPackDLL "hspogg.dll"    // #func #cfunc のみ
    if stat : dialog "hspogg.dll の読み込みに失敗しました" : end
    LoadPackDLL "hspinet.dll"   // #func #cfunc のみ
    if stat : dialog "hspinet.dll の読み込みに失敗しました" : end
    
    // #regcmd形式のプラグインには非対応です
    ;LoadPackHPI "e3dhsp3.dll"  // #regcmd  
    ;mes stat
    
#include "hspsock.as"
#include "hspogg.as"
#include "hspinet.as"
    dialog "hspsock.dll を使用してIPアドレスを取得します(ipget)"
    ipget
    mes "IP: "+refstr
    
    dialog "hspinet.dll を使用してBASE64エンコードを行います(b64encode)"
    src = "test"
    b64encode dst, src, strlen(src)
    mes "SRC: "+src+" -> DST:" +dst
    
    dialog "hspogg.dll を使用して音楽を再生します。音量に注意してください。"
    dmmini
    
    exist "theme.wav"
    size = strsize
    sdim oggdata, size
    bload "theme.wav", oggdata
    memfile oggdata, 0, size
    dmmload "MEM:theme.wav", 0      ; wavファイル読み込み
    dmmplay 0
    
    dialog "終了します"
    
    end
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
このコードをツイートする