Select Code to Download

Select or download this

<?xml version="1.0" encoding="UTF-8"?>
<trust:RequestSecurityTokenResponseCollection xmlns:trust="http://docs
+.oasis-open.org/ws-sx/ws-trust/200512">
...
        <trust:KeyType>http://docs.oasis-open.org/ws-sx/ws-trust/20051
+2/Bearer</trust:KeyType>
    </trust:RequestSecurityTokenResponse>
</trust:RequestSecurityTokenResponseCollection>

Select or download this

#!/usr/bin/perl

...
  return(undef) unless ($pkey); # Decrypt failed.
  $pem->encode(Content => $pkey);
}