2012-11-16 11 views
5

Chciałbym użyć pakietu R httr, aby uzyskać dostęp do usług EC2 za pośrednictwem ich API. Nie jestem jednak pewien, jak zacząć, ponieważ nie pasuje do zwykłego formatu uwierzytelniania "Oauth2.0", w którym masz zwykle: klucz, tajny, token i system podpisów. Myślę, że EC2 używa metody "podpisu w wersji 2", ale nie jestem pewien, jak to działa.Problemy z uwierzytelnianiem R + httr i EC2 api

Patrząc na dokumentacji EC2 przewiduje w odniesieniu do wniosków o dokonanie kwerendy w http://docs.amazonwebservices.com/AWSEC2/latest/UserGuide/using-query-api.html

Chyba muszę wartość dla podpisu .... ale nie wiem jak się to

mam próbował użyć niektórych z podanych poleceń, używając poniższej ilustracji. Mogę dostosować większość parametrów w ciągu adresu URL do reprezentowania mnie i rzeczy, które chcę zrobić, np. AWSAccessKeyId, ImageId, endpoint i Action itp .... ale nie wiem, gdzie się udać, aby uzyskać wartość podpisu.

Również w niektórych podanych przykładów, ale nie wydaje się, aby zapewnić tajnego klucza dostępu albo ...

Więc próbowaliśmy polecenia są następujące zmieniały się niektóre wartości do mnie reprezentować, ale mam następujące:

require(httr) 
GET("https://ec2.amazonaws.com/ 
?Action=RunInstances 
&ImageId=ami-60a54009 
&MaxCount=3 
&MinCount=1 
&Placement.AvailabilityZone=us-east-1b 
&Monitoring.Enabled=true 
&AWSAccessKeyId=0GS7553JW74RRM612K02EXAMPLE 
&Version=2012-10-01 
&Expires=2010-10-10T12:00:00Z 
&Signature=lBP67vCvGlDMBQ1dofZxg8E8SUEXAMPLE 
&SignatureVersion=2 
&SignatureMethod=HmacSHA256") 

do którego mogę dostać odpowiedź:

Response [http://aws.amazon.com/ec2/] 
    Status: 200 
    Content-type: text/html; charset=UTF-8 


    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> 
<html> 

<head> 
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> 
    <link rel="icon" type="image/ico" href="//d36cz9buwru1tt.cloudfront.net/favicon.ico"> 
    <link rel="shortcut icon" type="image/ico" href="//d36cz9buwru1tt.cloudfront.net/favicon.ico"> 
    <meta name="description" content="Amazon Elastic Compute Cloud delivers scalable, pay-as-you-go compute capacity in the cloud. " /><meta name="keywords" content="" /> ... 

Czy ktoś miał doświadczenia z API EC2 i jego procedury uwierzytelniania i to b na tyle łatwo, aby użyć R, aby móc konfigurować i uruchamiać instancje Linuksa z wybranymi przeze mnie AMI (które mają załadowane R i inne odpowiednie pakiety), a następnie uruchomić kilka poleceń R w tych instancjach i przywrócić wyjście?

Nie myśl jej bardzo podobne do mojego sessionInfo ale tylko w przypadku, tutaj jest:

sessionInfo() 
R version 2.15.1 (2012-06-22) 
Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit) 

locale: 
[1] en_GB.UTF-8/en_GB.UTF-8/en_GB.UTF-8/C/en_GB.UTF-8/en_GB.UTF-8 

attached base packages: 
[1] stats  graphics grDevices utils  datasets methods base  

other attached packages: 
[1] httr_0.2 

loaded via a namespace (and not attached): 
[1] digest_0.5.2 plyr_1.7.1  RCurl_1.95-1.1 stringr_0.6.1 tools_2.15.1 

EDIT:

więc w kolejnej próbie naśladowania dokumentacji sugerowane przez @ hadley to jest to, co próbowałem i dostałem ... wszelkie bardziej pomocne wskazówki co do tego, gdzie źle pójdę byłyby bardzo mile widziane ...:

require(httr) 

aws.key <- "xxxxxxx" 
aws.secret <- "xxxxxxxxxxxx" 

verb <- "GET" 
zone <- "ec2.amazonaws.com" 
func <- "DescribeImages" 

ami.number <- "ami-xxxxxxxxx" 

params <- list(paste0("ImageId.1=",ami.number), 
    "Version=2012-10-01", 
    "Expires=2012-11-20T12%3A00%3A00Z") 


# adding in method and key parameters for creation of string to sign 
orig.len.params <- length(params) 
params.w.method.key <- params 
params.w.method.key[[orig.len.params+1]] <- "SignatureVersion=2" 
params.w.method.key[[orig.len.params+2]] <- "SignatureMethod=HmacSHA1" 
params.w.method.key[[orig.len.params+3]] <- paste0("AWSAccessKeyId=",aws.key) 

# String to sign (s2s) 
s2s <- paste(c(paste0(verb,"\n",zone,"\n","/\n","AWSAccessKeyId=",aws.key),paste0("Action=",func),paste(sort(unlist(params.w.method.key)),collapse="&")),collapse="&") 

# Signature(sig) 
sig <- hmac_sha1(aws.secret, s2s) 

# adding in signature, method and key parameters for signed request url generation 
params.w.sig.method.key <- params 
params.w.sig.method.key[[orig.len.params+1]] <- paste0("Signature=",sig) 
params.w.sig.method.key[[orig.len.params+2]] <- "SignatureVersion=2" 
params.w.sig.method.key[[orig.len.params+3]] <- "SignatureMethod=HmacSHA1" 
params.w.sig.method.key[[orig.len.params+4]] <- paste0("AWSAccessKeyId=",aws.key) 

# Signed request (sr) 
sr <- paste(c(paste0("https://",zone,paste0("?Action=",func)),paste(unlist(params.w.sig.method.key),collapse="&")),collapse="&") 

# GET signed request 
GET(sr) 

, na które dostaję odpowiedź:

Response [https://ec2.amazonaws.com?Action=DescribeImages&ImageId.1=[ami.number.from.before]&Version=2012-10-01&Expires=2012-11-20T12%3A00%3A00Z&Signature=[sig.value.from.before]&SignatureVersion=2&SignatureMethod=HmacSHA1&AWSAccessKeyId=[aws.key.from.before]/] 
    Status: 401 
    Content-type: 
<?xml version="1.0" encoding="UTF-8"?> 
<Response><Errors><Error><Code>AuthFailure</Code><Message>AWS was not able to validate the provided access credentials</Message></Error></Errors><RequestID>5e10fb0b-f304-4677-9c64-98b4537c659a</RequestID></Response> 
+0

Podstawowy algorytm generowania podpisu jest określone w http://docs.amazonwebservices.com/AWSEC2/latest/UserGuide/using-query-api.html#query-authentication - 'httr' ma funkcja 'hmac' dla kroku 3. – hadley

+0

dziękuję ... widziałem to, ale nie byłem pewien, czy zrozumiałem, co to znaczy ... czy istnieje możliwość przedstawienia przykładu? –

+0

lub potencjalnie zobaczyć, gdzie idę źle, biorąc pod uwagę moje zmiany? Myślę, że jestem blisko ... –

Odpowiedz

6

Oto moja próba stopniowej konwersji algorytmu na kod R. Z mojego doświadczenia wynika, że ​​naprawdę chcesz zrobić każdy krok osobno, aby na każdym etapie sprawdzić, czy wyniki są prawidłowe.

require("httr") 
require("RCurl") 
require("stringr") 

# 0: get key and secret from envvars, and set up request parameters 

aws.key <- Sys.getenv("AWS_KEY") 
aws.secret <- Sys.getenv("AWS_SECRET_KEY") 

verb <- "GET" 
zone <- "ec2.amazonaws.com" 

ami.number <- "ami-xxxxxxxxx" 

params <- list(
    Action = "DescribeImages", 
    ImageId.1 = ami.number, 
    Version = "2012-10-01", 
    Expires = "2012-11-20T12:00:00Z", 
    SignatureVersion = 2, 
    SignatureMethod = "HmacSHA1", 
    AWSAccessKeyId = aws.key) 

# 1a: Sort the UTF-8 query string components by parameter name 
params <- params[order(names(params))] 

# 1b: URL encode the parameter name and values 
params_e <- lapply(params, curlEscape) 
names(params_e) <- curlEscape(names(params_e)) 
params_str <- str_c(names(params_e), "=", unlist(params_e), collapse = "&") 
params_str <- gsub("%2E",".",gsub("%2D","-",params_str)) 

# 2: Create the string to sign 
string_to_sign <- str_c(
    toupper(verb), "\n", 
    tolower(zone), "\n", 
    "/", "\n", 
    params_str 
) 

# 3: Calculate an RFC 2104-compliant HMAC 
# 4: Convert the resulting value to base64. 
hmac <- hmac_sha1(aws.secret, string_to_sign) 

params$Signature <- hmac 

GET(paste0("https://",zone),query=params) 
+0

Przepraszam, może brakuje mi czegoś, ale co mam zrobić z obiektem params?aby móc używać funkcji GET z 'httr' –

+0

' GET (URL, zapytanie = parametry) ' – hadley

+0

hmm ... nadal wydaje się otrzymywać kod błędu z odpowiedzi' GET ("https: //ec2.amazonaws .com ", query = params)', pobieranie: 'SignatureDoesNotMatch Obliczona przez nas prośba o podpis nie zgadza się z podanym przez Ciebie podpisem. Sprawdź klucz tajnego dostępu AWS i metodę podpisywania. Szczegółowe informacje można znaleźć w dokumentacji serwisowej. 'wartości tajne i dostęp wyglądają dobrze ... –

Powiązane problemy