Introduction OpenID Authentication 2.0
?
6 likes?1,366 views
OpenID Tech Night Vol.4 にて行ったプレゼンテーション。OpenID の入門者向け。
![[zigorou ~] $ lwp-request -S -e -d http://zigorou.myopenid.com/ | grep XRDS
X-XRDS-Location: http://zigorou.myopenid.com/?xrds=1
[zigorou ~] $ lwp-request http://zigorou.myopenid.com/?xrds=1
<?xml version="1.0" encoding="UTF-8"?>
<xrds:XRDS
xmlns:xrds="xri://$xrds"
xmlns:openid="http://openid.net/xmlns/1.0"
xmlns="xri://$xrd*($v*2.0)">
<XRD version="2.0">
<Service priority="0">
<Type>http://specs.openid.net/auth/2.0/signon</Type>
<Type>http://openid.net/sreg/1.0</Type>
<Type>http://openid.net/extensions/sreg/1.1</Type>
<Type>http://schemas.openid.net/pape/policies/2007/06/phishing-resistant</Type>
<Type>http://openid.net/srv/ax/1.0</Type>
<URI>http://www.myopenid.com/server</URI>
<LocalID>http://zigorou.myopenid.com/</LocalID>
</Service>](https://image.slidesharecdn.com/openidtechnight420090210-1234417077472446-3/85/Introduction-OpenID-Authentication-2-0-15-320.jpg)
Introduction OpenID Authentication 2.0
- 1. OpenID Tech Night #4
- 15. [zigorou ~] $ lwp-request -S -e -d http://zigorou.myopenid.com/ | grep XRDS X-XRDS-Location: http://zigorou.myopenid.com/?xrds=1 [zigorou ~] $ lwp-request http://zigorou.myopenid.com/?xrds=1 <?xml version="1.0" encoding="UTF-8"?> <xrds:XRDS xmlns:xrds="xri://$xrds" xmlns:openid="http://openid.net/xmlns/1.0" xmlns="xri://$xrd*($v*2.0)"> <XRD version="2.0"> <Service priority="0"> <Type>http://specs.openid.net/auth/2.0/signon</Type> <Type>http://openid.net/sreg/1.0</Type> <Type>http://openid.net/extensions/sreg/1.1</Type> <Type>http://schemas.openid.net/pape/policies/2007/06/phishing-resistant</Type> <Type>http://openid.net/srv/ax/1.0</Type> <URI>http://www.myopenid.com/server</URI> <LocalID>http://zigorou.myopenid.com/</LocalID> </Service>
- 30. #!/usr/bin/perl use strict; use warnings; use Digest::SHA qw(hmac_sha256_hex); use Perl6::Say; our $hmac_key = "common_secret"; sub format_keyval { my %pairs = @_; join "n" => map { $_ . ':' . $pairs{$_} } keys %pairs; } sub sig { my %pairs = @_; my $keyval = format_keyval(%pairs); hmac_sha256_hex($keyval, $hmac_key); } say sig( foo => "abc", bar => "xyz" ); 89b7f51ec9b76e97d5a179f313af38e6cc8b5cb086 0e266caf6847ded05428ce