encrypted jammed womb back-up

gen/hood/load.hoon

@@ -8,9 +8,11 @@
   !:
 :-  %say
 |=  $:  {now/@da eny/@uvI byk/beak}
-        {{dap/term $~} $~}
+        {{dap/term pas/@uw $~} $~}
     ==
 ^-  {$hood-load ?(part:womb)}
 ?+  dap  ~|(unknown-backup+dap !!)
-  $womb  [%hood-load .^(part:womb %cx (tope byk /womb-part/bak/hood/app))]
+  $womb
+    =+  dat=.^(@ %cx (tope byk /jam-crub/womb-part/bak/hood/app))
+    [%hood-load ;;(part:womb (cue (dy:crub pas dat)))]
 ==

lib/womb.hoon

@@ -653,7 +653,11 @@
   |=  pax/path
   =<  abet
   ?>  =(our src)                                      ::  me only
-  (emit %info /backup [our (foal pax [%womb-part !>(`part`+:abet)])]) 
+  =+  pas=`@uw`(shas %back eny)
+  ~&  [%backing-up pas=pas]
+  =;  dif  (emit %info /backup [our dif])
+  %+  foal  (welp pax /jam-crub)
+  [%jam-crub !>((en:crub pas (jam `part`+:abet)))]
 ::
 ++  poke-rekey                                        ::  extend will
   |=  $~

mar/jam-crub.hoon

@@ -0,0 +1,17 @@
+::
+::::  /hoon/jam-crub/mar
+  ::
+/?    310
+!:
+|_  mud/@
+++  grow
+  |%
+  ++  mime  [/application/octet-stream (taco mud)]
+  --
+++  grab
+  |%                                                    ::  convert from
+  ++  noun  @                                           ::  clam from %noun
+  ++  mime  |=({* octs} q)
+  --
+++  grad  %mime
+--