From cac95f440a69e72133c72171c4c1db5052db48df Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Wed, 23 Apr 2014 12:26:22 -0700
Subject: [PATCH] Add sekrit code to web shell.

---
 arvo/ames.hoon       | 2 ++
 arvo/eyre.hoon       | 9 ++++++---
 arvo/ford.hoon       | 1 -
 main/bin/secret.hoon | 9 +++++++++
 4 files changed, 17 insertions(+), 4 deletions(-)
 create mode 100644 main/bin/secret.hoon

diff --git a/arvo/ames.hoon b/arvo/ames.hoon
index 397a86034a..8809c28f7d 100644
--- a/arvo/ames.hoon
+++ b/arvo/ames.hoon
@@ -1670,6 +1670,8 @@
       =+  luw=(rick mar our law.saf.u.gys)
       ?.  &(?=(^ muc) ?=(^ luw))  ~
       [~ `buck`[u.muc u.luw]]
+    ?:  ?=([%code ~] tyl)
+      [~ (end 6 1 (shaf %code (shax sec:ex:q:sen:u.gys)))]
     ?:  ?=([%tick @ ~] tyl)
       =+  hur=(slaw %p i.t.tyl)
       ?~  hur  ~
diff --git a/arvo/eyre.hoon b/arvo/eyre.hoon
index d751196fa2..b3b8d5c09d 100644
--- a/arvo/eyre.hoon
+++ b/arvo/eyre.hoon
@@ -911,6 +911,11 @@
       ?:  ?=(| -.mud)  +>.$
       +>.$(cah.sef (~(put by cah.sef) p.u.q.ank p.mud))
     ::
+    ++  lass                                            ::  load secret
+      ^-  @ta
+      %^  rsh  3  1
+      (scot %p (,@ (need (sky %a (scot %p our) %code (scot %da now) ~))))
+    ::
     ++  lend                                            ::  load directory node
       |=  pax=path
       ^-  arch
@@ -1413,10 +1418,8 @@
           [~ pip(pez [%fin %ham ham])]
         ::
             %log
-          ?.  =(%foobar r.som.pip)
-            ~&  [%login-bad som.pip]
+          ?.  =(lass r.som.pip)
             $(som.pip [%lon [~ p.som.pip] q.som.pip])
-          ~&  [%login-good som.pip]
           %=  $
             som.pip  [%red q.som.pip]
             aut.ced  (~(put ju aut.ced) %$ (scot %p p.som.pip))
diff --git a/arvo/ford.hoon b/arvo/ford.hoon
index c7dd614880..fb78ccd1a6 100644
--- a/arvo/ford.hoon
+++ b/arvo/ford.hoon
@@ -54,7 +54,6 @@
   ++  poll                                              ::  current subchange
     |+  tea=path                                        ::
     _@ud                                                ::
-  ::
   ++  peek                                              ::  view
     |+  $:  kyl=keel                                    ::  inspecting agent
             asp=?(%view %diff)                          ::  desired aspect
diff --git a/main/bin/secret.hoon b/main/bin/secret.hoon
new file mode 100644
index 0000000000..0582713154
--- /dev/null
+++ b/main/bin/secret.hoon
@@ -0,0 +1,9 @@
+!:
+::  /=main=/bin/secret/hoon
+::
+=>  .(-< `who=@p`-<)
+|=  [est=time *]
+|=  ~
+^-  bowl
+:_  ~  :_  ~
+[%la %leaf (scow %p (,@p .^(%a (scot %p who) %code (scot %da est) ~)))]