|
|
#!/usr/bin/rexx
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
message_digest~update(input_stream~charin(,256))
end
say message_digest~digest
exit
::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. |