ooRexx logo

parse arg ifn   -- get input filename
input_stream = .stream~new(ifn)
message_digest = .md5~new
do while input_stream~chars>0
  -- calculate digest in chunks of 256 bytes
say message_digest~digest

::requires "md5.cls"
If you feel inclined to make corrections, suggestions etc., please mail me any.
All content © Ruurd Idenburg, 2007–, except where marked otherwise. All rights reserved. This page is primarily for non-commercial use only. The Idenburg website records no personal information and sets no ‘cookies’. This site is hosted on a VPS(Virtual Private System) rented from Transip.nl, a Dutch company, falling under Dutch (privacy) laws (I think).

This page updated on by Ruurd Idenburg.