samples/sha1.f

   1 \ SHA1 test
   2 use-lib: sha1
   3
   4 CR SHA1:Sha-Init
   5    SHA1:Sha-Final .( DA39A3EE 5E6B4B0D 3255BFEF 95601890 AFD80709 )
   6    CR SHA1:.SHA CR
   7
   8 CR SHA1:Sha-Init  S" a" SHA1:Sha-Update
   9    SHA1:Sha-Final .( 86F7E437 FAA5A7FC E15D1DDC B9EAEAEA 377667B8 )
  10    CR SHA1:.SHA CR
  11
  12 CR SHA1:Sha-Init  S" abc" SHA1:Sha-Update
  13    SHA1:Sha-Final .( A9993E36 4706816A BA3E2571 7850C26C 9CD0D89D )
  14    CR SHA1:.SHA CR
  15
  16 CR SHA1:Sha-Init  S" abcdefghijklmnopqrstuvwxyz" SHA1:Sha-Update
  17    SHA1:Sha-Final .( 32D10C7B 8CF96570 CA04CE37 F2A19D84 240D3A89 )
  18    CR SHA1:.SHA CR
  19
  20 CR SHA1:Sha-Init
  21    S" abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"
  22       SHA1:Sha-Update
  23    SHA1:Sha-Final .( 84983E44 1C3BD26E BAAE4AA1 F95129E5 E54670F1 )
  24    CR SHA1:.SHA CR
  25
  26 \  A million repetitions of "a".
  27
  28 : HACK              ( -- )
  29     SHA1:Sha-Init
  30     1000000 0 DO
  31         S" aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
  32             SHA1:Sha-Update
  33     50 +LOOP
  34     SHA1:Sha-Final ;
  35
  36 CR  .( 34AA973C D4C4DAA4 F61EEB2B DBAD2731 6534016F )
  37 CR HACK SHA1:.SHA CR
  38
  39 .stack
  40 bye