ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-23 23:12:04 +03:00
Code Issues Packages Projects Releases Wiki Activity
035d5c1efa
urbit/base/pub/doc/hoon/library/3bb.md
Anton Dyudin 6cbb6b060d Revert "remove docs for demo", "remove odds and ends", "demo network", "DEMO ONLY: root beak as %demo.", "DEMO ONLY: don't show doznec flapping.", "Prinrtf." 
This reverts commit 8e1e40d75b3ab15c194b6bf9570f3edc46e2de58.
This reverts commit f073c490f9fd7c5abc033af4857df92229877de7.
This reverts commit f187d2d7e01a54823f3e979af9bbd148b398e7e9.
This reverts commit bc272862a73cfce1b118586ca39d3a377d841f1b.
This reverts commit 30a397513f8890a3406dc7ab91c6e067e3bbfbbb.
This reverts commit 4fc6856fb50d88c20a0f533392ca606641c5f38f.

Conflicts:
	urb/urbit.pill
	urb/zod/base/lib/drum.hoon
2015-06-15 18:10:02 -07:00

11 KiB
Raw Blame History

section 3bB, cryptosuites

++crua

++  crua  !:                                            ::  cryptosuite A (RSA)
  ^-  acru
  =|  [mos=@ pon=(unit ,[p=@ q=@ r=[p=@ q=@] s=_*fu])]
  =>  |%

XX document

++mx

      ++  mx  (dec (met 0 mos))                         ::  bit length

XX document

++dap

      ++  dap                                           ::  OEAP decode
        |=  [wid=@ xar=@ dog=@]  ^-  [p=@ q=@]
        =+  pav=(sub wid xar)
        =+  qoy=(cut 0 [xar pav] dog)
        =+  dez=(mix (end 0 xar dog) (shaw %pad-b xar qoy))
        [dez (mix qoy (shaw %pad-a pav dez))]
      ::

XX document

++pad

      ++  pad                                           ::  OEAP encode
        |=  [wid=@ rax=[p=@ q=@] meg=@]  ^-  @
        =+  pav=(sub wid p.rax)
        ?>  (gte pav (met 0 meg))
        ^-  @
        =+  qoy=(mix meg (shaw %pad-a pav q.rax))
        =+  dez=(mix q.rax (shaw %pad-b p.rax qoy))
        (can 0 [p.rax dez] [pav qoy] ~)
  |%

XX document

++pull

      ++  pull  |=(a=@ (~(exp fo mos) 3 a))

XX document

++push

      ++  push  |=(a=@ (~(exp fo mos) 5 a))

XX document

++pump

      ++  pump
        |=  a=@  ^-  @
        ?~  pon  !!
        (out.s.u.pon (exp.s.u.pon p.r.u.pon (sit.s.u.pon a)))
      ::

XX document

++punt

      ++  punt
        |=  a=@  ^-  @
        ?~  pon  !!
        (out.s.u.pon (exp.s.u.pon q.r.u.pon (sit.s.u.pon a)))
  |%

XX document

++as

  ++  as
    =>  |%

XX document

++haul

        ++  haul                                        ::  revealing haul
          |=  a=pass
          !!
    ^?
    |%  ++  seal
          |=  [a=pass b=@ c=@]
          ^-  @
          !!

XX document

++seal

XX document

###++sign

```
        ++  sign
          |=  [a=@ b=@]  ^-  @
          !!
```

XX document

###++sure

```
        ++  sure
          |=  [a=@ b=@]
          ^-  (unit ,@)
          !!
```

XX document

###++tear

```
        ++  tear
          |=  [a=pass b=@]
          ^-  (unit ,[p=@ q=@])
          !!
  ::
```

XX document

###++de

```
  ++  de
    |+  [key=@ cep=@]  ^-  (unit ,@)
    !!
  ::
```

XX document

###++dy

```
  ++  dy
    |+  [a=@ b=@]  ^-  @
    !!
```

XX document

###++en

```
  ++  en
    |+  [key=@ msg=@]  ^-  @ux
    !!
  ::
```

XX document

###++ex

```
  ++  ex  ^?
    |%  ++  fig  ^-  @uvH  (shaf %bfig puc)
```

XX document

###++fig

XX document

++pac

        ++  pac  ^-  @uvG  (end 6 1 (shaf %acod sec))

XX document

++pub

        ++  pub  ^-  pass  (cat 3 'b' puc)

XX document

++sec

        ++  sec  ^-  ring  sed
  ::

XX document

++nu

  ++  nu
    ^?
    |%  ++  com
          |=  a=@
          ^+  ^?(..nu)
          ..nu(sed ~, puc a)
        ::

XX document

++elcm

        ++  elcm
          |=  [a=@ b=@]
          (div (mul a b) d:(egcd a b))
        ::

XX document

++eldm

        ++  eldm
          |=  [a=@ b=@ c=@]
          (~(inv fo (elcm (dec b) (dec c))) a)
        ::

XX document

++ersa

        ++  ersa
          |=  [a=@ b=@]
          [a b [(eldm 3 a b) (eldm 5 a b)] (fu a b)]
    ^?
    |%  ++  com
          |=  a=@
          ^+  ^?(..nu)
          ..nu(mos a, pon ~)
        ::

XX document

++com

XX document

###++pit

```
        ++  pit
          |=  [a=@ b=@]
          ^+  ^?(..nu)
          ..nu(sed b, puc (puck:ed b))
        ::
```

XX document

###++nol

```
        ++  nol
          |=  a=@
          ^+  ^?(..nu)
          ..nu(sed a, puc (puck:ed a))
```

XX document

###++bruw

```
++  bruw                                                ::  create keypair
  |=  [a=@ b=@]                                         ::  width seed
  ^-  acru
  (pit:nu:crua a b)
::
```

XX document

###++haul

```
        ++  haul                                        ::  revealing haul
          |=  a=pass
          !!
    ^?
    |%  ++  seal
          |=  [a=pass b=@ c=@]
          ^-  @
          !!
```

XX document

###++weur

```
++  weur                                                ::  activate secret key
  |=  a=ring
  ^-  acru
  =+  [mag=(end 3 1 a) bod=(rsh 3 1 a)]
  ?>  =('A' mag)
  (nol:nu:crua bod)
::
```

XX document

###++trua

```
++  trua                                                ::  test rsa
  |=  msg=@tas
  ^-  @
  =+  ali=(bruw 1.024 (shax 'ali'))
  =+  bob=(bruw 1.024 (shax 'bob'))
  =+  tef=(sign:as.ali [0 msg])
  =+  lov=(sure:as.ali [0 tef])
  ?.  &(?=(^ lov) =(msg u.lov))
    ~|(%test-fail-sign !!)
  =+  key=(shax (shax (shax msg)))
  =+  sax=(seal:as.ali pub:ex.bob key msg)
  =+  tin=(tear:as.bob pub:ex.ali sax)
  ?.  &(?=(^ tin) =(key p.u.tin) =(msg q.u.tin))
    ~|(%test-fail-seal !!)
  msg
::
```

XX document

###++crub

```
++  crub                                                ::  cryptosuite B (Ed)
  ^-  acru
  =|  [puc=pass sed=ring]
  =>  |%
```

XX document

###++dap

```
      ++  dap                                           ::  OEAP decode
        |=  [wid=@ xar=@ dog=@]  ^-  [p=@ q=@]
        =+  pav=(sub wid xar)
        =+  qoy=(cut 0 [xar pav] dog)
        =+  dez=(mix (end 0 xar dog) (shaw %pad-b xar qoy))
        [dez (mix qoy (shaw %pad-a pav dez))]
      ::
```

XX document

###++pad

```
      ++  pad                                           ::  OEAP encode
        |=  [wid=@ rax=[p=@ q=@] meg=@]  ^-  @
        =+  pav=(sub wid p.rax)
        ?>  (gte pav (met 0 meg))
        ^-  @
        =+  qoy=(mix meg (shaw %pad-a pav q.rax))
        =+  dez=(mix q.rax (shaw %pad-b p.rax qoy))
        (can 0 [p.rax dez] [pav qoy] ~)
  |%
```

XX document

###++as

```
  ++  as
    =>  |%
```

XX document

###++haul

```
        ++  haul                                        ::  revealing haul
          |=  a=pass
          !!
    ^?
    |%  ++  seal
          |=  [a=pass b=@ c=@]
          ^-  @
          !!
```

XX document

###++seal

XX document

++sign

        ++  sign
          |=  [a=@ b=@]  ^-  @
          !!

XX document

++sure

        ++  sure
          |=  [a=@ b=@]
          ^-  (unit ,@)
          !!

XX document

++tear

        ++  tear
          |=  [a=pass b=@]
          ^-  (unit ,[p=@ q=@])
          !!
  ::

XX document

++de

  ++  de
    |+  [key=@ cep=@]  ^-  (unit ,@)
    !!
  ::

XX document

++dy

  ++  dy
    |+  [a=@ b=@]  ^-  @
    !!

XX document

++en

  ++  en
    |+  [key=@ msg=@]  ^-  @ux
    !!
  ::

XX document

++ex

  ++  ex  ^?
    |%  ++  fig  ^-  @uvH  (shaf %bfig puc)

XX document

++fig

XX document

###++pac

```
        ++  pac  ^-  @uvG  (end 6 1 (shaf %acod sec))
```

XX document

###++pub

```
        ++  pub  ^-  pass  (cat 3 'b' puc)
```

XX document

###++sec

```
        ++  sec  ^-  ring  sed
  ::
```

XX document

###++nu

```
  ++  nu
    ^?
    |%  ++  com
          |=  a=@
          ^+  ^?(..nu)
          ..nu(sed ~, puc a)
        ::
```

XX document

###++com

XX document

++pit

        ++  pit
          |=  [a=@ b=@]
          ^+  ^?(..nu)
          ..nu(sed b, puc (puck:ed b))
        ::

XX document

++nol

        ++  nol
          |=  a=@
          ^+  ^?(..nu)
          ..nu(sed a, puc (puck:ed a))

XX document

++brew

++  brew                                                ::  create keypair
  |=  [a=@ b=@]                                         ::  width seed
  ^-  acru
  (pit:nu:crub a b)
::

XX document

++hail

++  hail                                                ::  activate public key
  |=  a=pass
  ^-  acru
  =+  [mag=(end 3 1 a) bod=(rsh 3 1 a)]
  ?>  =('b' mag)
  (com:nu:crub bod)
::

XX document

++wear

++  wear                                                ::  activate secret key
  |=  a=ring
  ^-  acru
  =+  [mag=(end 3 1 a) bod=(rsh 3 1 a)]
  ?>  =('b' mag)
  (nol:nu:crub bod)
::

XX document

++trub

++  trub                                                ::  test ed
  |=  msg=@tas
  ^-  @
  =+  ali=(brew 1.024 (shax 'ali'))
  =+  bob=(brew 1.024 (shax 'bob'))
  =+  tef=(sign:as.ali [0 msg])
  =+  lov=(sure:as.ali [0 tef])
  ?.  &(?=(^ lov) =(msg u.lov))
    ~|(%test-fail-sign !!)
  =+  key=(shax (shax (shax msg)))
  =+  sax=(seal:as.ali pub:ex.bob key msg)
  =+  tin=(tear:as.bob pub:ex.ali sax)
  ?.  &(?=(^ tin) =(key p.u.tin) =(msg q.u.tin))
    ~|(%test-fail-seal !!)
  msg
::

XX document

++hmac

++  hmac                                                ::  HMAC-SHA1
  |=  [key=@ mes=@]
  =+  ip=(fil 3 64 0x36)
  =+  op=(fil 3 64 0x5c)
  =+  ^=  kex
      ?:  (gth (met 3 key) 64)
        (lsh 3 44 (shan (swap 3 key)))
      (lsh 3 (sub 64 (met 3 key)) (swap 3 key))
  =+  inn=(shan (swap 3 (cat 3 (swap 3 mes) (mix ip kex))))
  (shan (swap 3 (cat 3 inn (mix op kex))))
::

XX document