REAL Studio xAuth Simple Sample

REAL Studio xAuth Simple Sample

変数やTimeStampも固定で下記で成功しました。

http://www.monkeybreadsoftware.de/realbasic/plugins.shtml

が必要です。

  dim str1,str2,str3 as string

  

  str1 = "https://api.twitter.com/oauth/access_token"

  str1 = EncodeURLComponent(str1)

  str1 = "POST&" + str1 + "&"

  

  str2 = "oauth_consumer_key=T2eStTeSTTE9s7ttEsttE"

  str2 = str2 + "&oauth_nonce=a68bbb5887d77fbf72f57bb75ad80070"

  str2 = str2 + "&oauth_signature_method=HMAC-SHA1"

  str2 = str2 + "&oauth_timestamp=1274401561"

  str2 = str2 + "&oauth_version=1.0"

  str2 = str2 + "&x_auth_mode=client_auth"

  str2 = str2 + "&x_auth_password=TESTPASS"

  str2 = str2 + "&x_auth_username=TESTUSER"

  str3 = "TestTEsttes9ttEstTestTEs14ttEST8TESt6testtE"+"&"

  dim signature_base_string,signature_string as String

  signature_base_string = str1 + EncodeURLComponent(str2)

  dim i,ccount as integer

  dim test1,test2,sbs as string

  dim s as SHA1MBS

  dim HMACSHA1,HMACSHA2,HMACSHA3 as string

  s=new SHA1MBS

  HMACSHA1 = s.HMAC(str3,signature_base_string)

  signature_string = EncodeBase64(HMACSHA1)

  signature_string = EncodeURLComponent(signature_string)

  

  gURL = "https://api.twitter.com/oauth/access_token?" + str2 + "&oauth_signature=" + signature_string

  

  dim header(-1) as string

  dim c as MyCURL

  

  c=new MyCURL

  c.OptionVerbose=true

  c.OptionURL = gURL

  

  c.OptionCustomRequest="POST"

  

  header.Append "Content-Type: text/xml"

  c.SetOptionHTTPHeader header

  

  msgbox str(c.Perform)

  

STR1:

POST&https%3A%2F%2Fapi.twitter.com%2Foauth%2Faccess_token&

STR2:

oauth_consumer_key=T2eStTeSTTE9s7ttEsttE&oauth_nonce=a68bbb5887d77fbf72f57bb75ad80070&oauth_signature_method=HMAC-SHA1&oauth_timestamp=1274401561&oauth_version=1.0&x_auth_mode=client_auth&x_auth_password=TESTPASS&x_auth_username=TESTUSER

STR3:

TestTEsttes9ttEstTestTEs14ttEST8TESt6testtE&

signature_base_string:

POST&https%3A%2F%2Fapi.twitter.com%2Foauth%2Faccess_token&oauth_consumer_key%3DT2eStTeSTTE9s7ttEsttE%26oauth_nonce%3Da68bbb5887d77fbf72f57bb75ad80070%26oauth_signature_method%3DHMAC-SHA1%26oauth_timestamp%3D1274401561%26oauth_version%3D1.0%26x_auth_mode%3Dclient_auth%26x_auth_password%3DTESTPASS%26x_auth_username%3DTESTUSER

signature_string:

Q4nDVCx6WRUO1lxRLxLHemj2P64%3D



(make timestamp sample)

  dim d as New date
  dim d2 as New Date(1970,1,1)
  dim timestamp as String
  dim ts,ts2,ts3 as Double
  timestamp = Format((d.TotalSeconds -  d2.TotalSeconds),"#")