1 | |
---|
2 | rm -rf creds_dump |
---|
3 | |
---|
4 | pwd=`pwd` |
---|
5 | |
---|
6 | #eloc=/home/mei/Deter/abac/libabac |
---|
7 | eloc=$pwd/../../libabac |
---|
8 | #keyloc=/home/mei/Deter/abac/examples/acme_rockets_rt0_typed |
---|
9 | keyloc=$pwd |
---|
10 | |
---|
11 | acme=`creddy --keyid --cert $keyloc/Acme_ID.pem` |
---|
12 | coyote=`creddy --keyid --cert $keyloc/Coyote_ID.pem` |
---|
13 | |
---|
14 | preferred_customer="[keyid:$acme].role:preferred_customer" |
---|
15 | buy_rockets="[keyid:$acme].role:buy_rockets" |
---|
16 | coyote_prin="[keyid:$coyote]" |
---|
17 | friend="[keyid:$acme].role:friend" |
---|
18 | acme_prin="[keyid:$acme]" |
---|
19 | |
---|
20 | ## dump all credentials |
---|
21 | $eloc/abac_prover_yap --keystore $keyloc --dump creds_dump |
---|
22 | |
---|
23 | #[keyid:Acme].role:preferred_customer <-?- [keyid:Coyote] yap |
---|
24 | #isMember(pCoyote, role(pAcme,preferred_customer), C). |
---|
25 | echo " " |
---|
26 | echo "===good============ Acme.preferred_customer <- Coyote yap " |
---|
27 | $eloc/abac_prover_yap --keystore $keyloc \ |
---|
28 | --role "$preferred_customer" --principal "$coyote_prin" |
---|
29 | |
---|
30 | #[keyid:Acme].role:buy_rockets <-?- [keyid:Coyote] yap |
---|
31 | #isMember(pCoyote, role(pAcme,buy_rockets), C). |
---|
32 | echo " " |
---|
33 | echo "===good=============== Acme.buy_rockets <- Coyote yap" |
---|
34 | $eloc/abac_prover_yap --keystore $keyloc \ |
---|
35 | --role "$buy_rockets" --principal "$coyote_prin" |
---|
36 | |
---|
37 | ## this is not suppose to work |
---|
38 | #[keyid:Acme].role:buy_rockets <-?- [keyid:Acme].role:preferred_customer yap |
---|
39 | echo " " |
---|
40 | echo "===bad=============== Acme.buy_rockets <- Acme.preferred_customer yap" |
---|
41 | $eloc/abac_prover_yap --keystore $keyloc \ |
---|
42 | --role "$buy_rockets" --principal "$preferred_customer" |
---|
43 | |
---|
44 | #[keyid:Coyote].role:friend <-?- [keyid:Acme] yap |
---|
45 | #isMember(pAcme, role(pCoyote,friend), C). |
---|
46 | echo " " |
---|
47 | echo "===bad=============== Coyote.friend <- Acme yap" |
---|
48 | $eloc/abac_prover_yap --keystore $keyloc \ |
---|
49 | --role "$friend" --principal "$acme_prin" |
---|
50 | |
---|