anchor.diff:  
   implementation
   
  -uses synacode;
  -
   { TBase64HashTest }
   
   procedure TBase64HashTest.HashByBase64encodePage;
  
positive.code:     Buf.WriteBuffer(TXT[1], Length(TXT) * SizeOf(Char));
      Ss.Text := TXT;
      CheckEquals(
        EncodeBase64(TXT),
        TBase64Stream.New(TDataStream.New(Buf)).AsString,
        'Test Stream'
      );
      CheckEquals(
        EncodeBase64(TXT),
        TBase64Stream.New(TDataStream.New(TXT)).AsString,
        'Test String'
      );
      CheckEquals(
        EncodeBase64(TXT+#13#10),
        TBase64Stream.New(TDataStream.New(Ss)).AsString,
        'Test Strings'
      );
  
negative.code:     SetLength(S, Buf.Size);
      Buf.Position := 0;
      Buf.ReadBuffer(S[1], Buf.Size);
      CheckEquals(TBase64Hash.New(TXT).AsString, S);
    finally
      Buf.Free;
    end;
  