¿Cómo generar una cadena de autenticación de Pusher desde VBscript?

md5

Question

Por favor, mira esta publicación para el mismo problema en bash .

Aquí está mi código principal:

loadFile "md5.vbs"
wscript.echo "md5(''test'') = " & md5("test")
loadFile "sha256.vbs"
wscript.echo "sha256(''test'') = " & sha256("test")

method = "POST"
app_id = <redacted>
key = "<redacted>"
secret = "<redacted>"
tstamp = datediff("s",#1970/1/1#,dateadd("h",5,now()))

data = "{""data"":{""message"":""hello world""},""name"":""my_event"",""channel"":""test_channel""}"
path = "/apps/" & app_ID & "/events"
query = "body_md5=" & md5(data) & "&auth_version=1.0&auth_key=" & key & "&auth_timestamp=" & tstamp
sig = sha256(method & vbLf & path & vbLf & query & vbLf & secret)

url = "https://api.pusherapp.com" & path & "?" & query & "&auth_signature=" & sig
wscript.echo url
dim xmlhttp 
set xmlhttp = Createobject("MSXML2.ServerXMLHTTP")
xmlhttp.Open method,url,false
xmlhttp.setRequestHeader "Content-Type", "application/json"
xmlhttp.send data
WScript.echo xmlhttp.responsetext
Set xmlhttp = nothing

md5.vbs se puede encontrar aquí y sha256.vbs aquí .

Me sale este error:

Firma inválida: deberías haber enviado HmacSHA256Hex ("POST / n / apps / (redactado) / events / nauth_key = (redactado) & auth_timestamp = 1471291494 & auth_version = 1.0 & body_md5 = (redactado)", your_secret_key), pero has enviado "(redactado)"

(edición de código: se agregó el secret a sig, se cambió crlf a lf )