Perl Stripe: Create a Card Token

Back to Index

Creates a single use token that wraps the details of a credit card. This token can be used in place of a credit card dictionary with any API method.

Documentation: https://stripe.com/docs/api/curl#create_card_token

CURL Command

curl https://api.stripe.com/v1/tokens \
   -u STRIPE_SECRET_KEY: \
   -d card[number]=4242424242424242 \
   -d card[exp_month]=12 \
   -d card[exp_year]=2019 \
   -d card[cvc]=123
   -X POST

Perl Example

use chilkat();

$rest = chilkat::CkRest->new();

#  URL: https://api.stripe.com/v1/tokens
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("api.stripe.com",$port,$bTls,$bAutoReconnect);
if ($success != 1) {
    print "ConnectFailReason: " . $rest->get_ConnectFailReason() . "\r\n";
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$rest->SetAuthBasic("STRIPE_SECRET_KEY","");

$rest->AddQueryParam("card[number]","4242424242424242");
$rest->AddQueryParam("card[exp_month]","12");
$rest->AddQueryParam("card[exp_year]","2019");
$rest->AddQueryParam("card[cvc]","123");

$strResponseBody = $rest->fullRequestFormUrlEncoded("POST","/v1/tokens");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->Load($strResponseBody);

$id = $jsonResponse->stringOf("id");
$object = $jsonResponse->stringOf("object");
$cardId = $jsonResponse->stringOf("card.id");
$cardObject = $jsonResponse->stringOf("card.object");
$cardAddress_city = $jsonResponse->IsNullOf("card.address_city");
$cardAddress_country = $jsonResponse->IsNullOf("card.address_country");
$cardAddress_line1 = $jsonResponse->IsNullOf("card.address_line1");
$cardAddress_line1_check = $jsonResponse->IsNullOf("card.address_line1_check");
$cardAddress_line2 = $jsonResponse->IsNullOf("card.address_line2");
$cardAddress_state = $jsonResponse->IsNullOf("card.address_state");
$cardAddress_zip = $jsonResponse->IsNullOf("card.address_zip");
$cardAddress_zip_check = $jsonResponse->IsNullOf("card.address_zip_check");
$cardBrand = $jsonResponse->stringOf("card.brand");
$cardCountry = $jsonResponse->stringOf("card.country");
$cardCvc_check = $jsonResponse->IsNullOf("card.cvc_check");
$cardDynamic_last4 = $jsonResponse->IsNullOf("card.dynamic_last4");
$cardExp_month = $jsonResponse->IntOf("card.exp_month");
$cardExp_year = $jsonResponse->IntOf("card.exp_year");
$cardFingerprint = $jsonResponse->stringOf("card.fingerprint");
$cardFunding = $jsonResponse->stringOf("card.funding");
$cardLast4 = $jsonResponse->stringOf("card.last4");
$cardName = $jsonResponse->IsNullOf("card.name");
$cardTokenization_method = $jsonResponse->IsNullOf("card.tokenization_method");
$client_ip = $jsonResponse->IsNullOf("client_ip");
$created = $jsonResponse->IntOf("created");
$livemode = $jsonResponse->BoolOf("livemode");
$type = $jsonResponse->stringOf("type");
$used = $jsonResponse->BoolOf("used");

Sample JSON Response Body

{
  "id": "tok_1BnETKGswQrCoh0XIvDUT3mu",
  "object": "token",
  "card": {
    "id": "card_1BnETKGswQrCoh0XGXCaLCT2",
    "object": "card",
    "address_city": null,
    "address_country": null,
    "address_line1": null,
    "address_line1_check": null,
    "address_line2": null,
    "address_state": null,
    "address_zip": null,
    "address_zip_check": null,
    "brand": "Visa",
    "country": "US",
    "cvc_check": null,
    "dynamic_last4": null,
    "exp_month": 8,
    "exp_year": 2019,
    "fingerprint": "F9mANtIt1TaukpRJ",
    "funding": "credit",
    "last4": "4242",
    "metadata": {},
    "name": null,
    "tokenization_method": null
  },
  "client_ip": null,
  "created": 1516662782,
  "livemode": false,
  "type": "card",
  "used": false
}