documentclass{book}

makeatletter
pdfpageattr{
/MediaBox [0 0 612.00000 792.00000]
/BleedBox [81.0 63.0 531.0 729.0]
/CropBox [0 0 612.00000 792.00000]
/TrimBox [90.0 72.0 522.0 720.0]
}

makeatother

begin{document}
Between 200BC and 100BC, during the Han Dynasty, the Chinese used matrix-type methods with the text textit{Nine chapters on the mathematical art}. There was further development, but it was not until 1683 when the idea of a determinant appeared in Japan when Seki wrote textit{Method of solving the dissimulated problems}. This used matrix methods in tables in the same way as the earlier work of the Chinese. Ten years later the determinant first appeared in Europe in the work of Leibniz. The word determinant was first introduced by Gauss in 1801 while discussing quadratic forms, but Cauchy in 1812 used determinant in the modern sense.

Between 200BC and 100BC, during the Han Dynasty, the Chinese used matrix-type methods with the text textit{Nine chapters on the mathematical art}. There was further development, but it was not until 1683 when the idea of a determinant appeared in Japan when Seki wrote textit{Method of solving the dissimulated problems}. This used matrix methods in tables in the same way as the earlier work of the Chinese. Ten years later the determinant first appeared in Europe in the work of Leibniz. The word determinant was first introduced by Gauss in 1801 while discussing quadratic forms, but Cauchy in 1812 used determinant in the modern sense.
end{document}

usepackage{everypage}

special{pdf:put @pages <</MediaBox [0 0 612.00000 792.00000]>>}
special{pdf:put @pages <</BleedBox [81.0 63.0 531.0 729.0]>>}
special{pdf:put @pages <</CropBox [0 0 612.00000 792.00000]>>}
special{pdf:put @pages <</TrimBox [90.0 72.0 522.0 720.0]>>}

AddEverypageHook{%
  special{pdf:put @thispage <</MediaBox [0 0 612.00000 792.00000]>>}%
  special{pdf:put @thispage <</BleedBox [81.0 63.0 531.0 729.0]>>}%
  special{pdf:put @thispage <</CropBox [0 0 612.00000 792.00000]>>}%
  special{pdf:put @thispage <</TrimBox [90.0 72.0 522.0 720.0]>>}%
}

documentclass{book}
usepackage{atbegshi}

% MediaBox can be fixed like so:
AtBeginShipout{AtBeginShipoutAddToBox{
  special{pdf:put @thispage <<
    /MediaBox [0 0 612.00000 792.00000]
  >>}
}}

% other boxes
special{pdf:put @pages <<
  /BleedBox [81.0 63.0 531.0 729.0]
  /CropBox [0 0 612.00000 792.00000]
  /TrimBox [90.0 72.0 522.0 720.0]
>>}


begin{document}
Between 200BC and 100BC, during the Han Dynasty, the Chinese used matrix-type methods with the text textit{Nine chapters on the mathematical art}. There was further development, but it was not until 1683 when the idea of a determinant appeared in Japan when Seki wrote textit{Method of solving the dissimulated problems}. This used matrix methods in tables in the same way as the earlier work of the Chinese. Ten years later the determinant first appeared in Europe in the work of Leibniz. The word determinant was first introduced by Gauss in 1801 while discussing quadratic forms, but Cauchy in 1812 used determinant in the modern sense.

Between 200BC and 100BC, during the Han Dynasty, the Chinese used matrix-type methods with the text textit{Nine chapters on the mathematical art}. There was further development, but it was not until 1683 when the idea of a determinant appeared in Japan when Seki wrote textit{Method of solving the dissimulated problems}. This used matrix methods in tables in the same way as the earlier work of the Chinese. Ten years later the determinant first appeared in Europe in the work of Leibniz. The word determinant was first introduced by Gauss in 1801 while discussing quadratic forms, but Cauchy in 1812 used determinant in the modern sense.
end{document}

special{pdf:put @pages <<
   /Foo /Bar                            % works
   /TrimBox [1 2 3 4]                   % works
   /MediaBox [0 0 612.00000 792.00000]  % no effect
>>}