TsubuyakiSoup.as 認証できない不具合修正その2

CSPのデフォルトのキーコンテナが存在しない場合は、TsubuyakiSoupのHMAC_SHA1()が失敗してしまい、結果的にツイッターの認証ができない状態になるので直してみた。CryptAcquireContext()が失敗したら、CRYPT_NEWKEYSETしてるだけです。関連→ 認証できない不具合修正&API 1.1 対応化 http://codetter.com/?p=910

hk1v
2013/8/23 15:57

タグ：
tsubuyakisoup.as

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
#defcfunc HMAC_SHA1 str p1, str p2
    HS_p1 = p1
    HS_p2 = p2
    HS_SigLen = 0
    HS_dest = ""
    //ハッシュ
    HS_hProv = 0
    HS_hKey = 0
    HS_hHash = 0
    sdim HS_HmacInfo,14
    lpoke HS_HmacInfo, 0, 0x00008004
    ;keyの生成
    dim HS_keyBlob,350
    poke HS_keyBlob,0,0x8                   ;bType
    poke HS_keyBlob,1,2                     ;bVersion
    lpoke HS_keyBlob,2,0                    ;reserved
    HS_keyBlob(1) = 0x00006602              ;aiKeyAlg
    HS_keyBlob(2) = strlen(HS_p2)   ;len
    memcpy HS_keyBlob, HS_p2, HS_keyBlob(2), 12, 0
    //コンテキストの取得
    res = _CryptAcquireContext(HS_hProv, 0, 0, 1, 0)
    if ( res == 0 ){
        // ない場合は新しく作る
        res = _CryptAcquireContext(HS_hProv, 0, 0, 1, 8/*CRYPT_NEWKEYSET*/)
    }
    if ( res ) {
        //キーのインポート
        if ( _CryptImportKey(HS_hProv, HS_keyBlob, (12+HS_keyBlob(2)), 0, 0x00000100, HS_hKey) ) {
            //ハッシュ初期化
            if ( _CryptCreateHash(HS_hProv, 0x00008009, HS_hKey, 0, HS_hHash) ) {
                //ハッシュパラメータの設定
                if ( _CryptSetHashParam(HS_hHash, 0x0005, HS_HmacInfo, 0) ) {
                    //ハッシュに書き込み
                    if ( _CryptHashData(HS_hHash, HS_p1, strlen(HS_p1), 0) ) {
                        //ハッシュ取得
                        if ( _CryptGetHashParam(HS_hHash, 0x0002, 0, HS_size, 0) ) {
                            sdim HS_dest, HS_size
                            if ( _CryptGetHashParam(HS_hHash, 0x0002, varptr(HS_dest), HS_size, 0) ) {
                            }
                        }
                    }
                }
                //ハッシュハンドルの破棄
                _CryptDestroyHash HS_hHash
            }
            //キーハンドルの破棄
            _CryptDestroyKey HS_hKey
        }
        //ハンドルの破棄
        _CryptReleaseContext HS_hProv, 0
    }
return HS_dest
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

このコードをツイートする

TsubuyakiSoup.as 認証できない不具合修正 その2

TsubuyakiSoup.as 認証できない不具合修正その2