Twitter OAuth 1.0a: Digital Signature - Base String - VB6

Dalam Twitter OAuth 1.0, setiap kita melakukan request ke twitter.com maka tiap-tiap request harus disertai dengan digital signature sebagai bukti otentifikasi dan otorisasi. Adapun digital signature tersebut adalah hasil dari hash (one way encrypt):HMAC-SHA1 (BaseString + Key).Adapun Key adalah gabungan dari: (ConsumerSecret + AccessTokenSecret)

Nah disini saya menjelaskan bagaimana merakit/membuat BaseString untuk men-generate digital signature melalui VB6 seperti yang telah dijelaskan di atas:

Private Function GetTwitterBaseString() As String
    
    Dim strURL As String
    Dim strBaseString As String
    strURL = "http://api.twitter.com/1/statuses/update.json"
    
    strBaseString = txtMethod & _
    "&" & UrlEncodeUtf8(txtURL.Text)
    strQuery = HSA1.URLEncode("oauth_consumer_key=" & txtConsumerKey.Text) & _
    UrlEncodeUtf8("&oauth_nonce=" & txtNonce.Text) & _
    UrlEncodeUtf8("&oauth_signature_method=" & txtSignatureMethod.Text) & _
    UrlEncodeUtf8("&oauth_timestamp=" & txtTimeStamp.Text) & _
    UrlEncodeUtf8("&oauth_token=" & txtToken.Text) & _
    UrlEncodeUtf8("&oauth_version=" & txtVersion.Text)
    strParameter = HSA1.URLEncode("&status=" & UrlEncodeUtf8(strURL))
    GetTwitterBaseString = strBaseString & "&" & strQuery & strParameter
    
End Function

Demikian BaseString Twitter OAuth 1.0 melalui VB6. Semoga bermanfaat. Apabila kita gagal mengirim tweet ke twitter menggunakan OAuth 1.0, mungkin bisa kita ganti dengan OhOut atau lebih tepatnya Oh Out Of Memory (OOM), mengenai artikel OOM bisa Anda baca di sini.