RE: [MI400] Generate hash code for a source member?

["Dan Bale" <dbale@xxxxxxxxx>]

Leif, I found stuff on CIPHER & SHA-1 in chapter 13 of your ebook.  Kinda
looks like something I should check out.  I also found MIFHASH.TXT and
uploaded and compiled it.

I think this is how I'd do it, but just to confirm, would I just write an
RPG program to read a record from the source member, call MIFHASH (using
*FIRST, *MIDDLE, & *FINAL), & repeat to end of the source member?

Dan Bale
SAMSA, Inc.
989-790-0507
DBale@SAMSA.com <mailto:DBale@SAMSA.com>
  Quiquid latine dictum sit altum viditur.
  (Whatever is said in Latin seems profound.)


-----Original Message-----
From: mi400-admin@midrange.com [mailto:mi400-admin@midrange.com]On
Behalf Of Dan Bale
Sent: Thursday, May 09, 2002 10:45 AM
To: MI400@midrange.com
Subject: [MI400] Generate hash code for a source member?


(Cross posted on Midrange-L, RPG400-L, & MI400)

Has anyone invented this wheel?  I'm looking for a way to compare source
members on different systems to determine whether or not they are
identical - Yes or No.  If different, I don't care how different.

Because I don't really want to save & restore whole source files between two
systems, my thinking was to create a hash code for each source member based
on the contents.  Create a file with fields:  Library Name, File Name,
Source Member Name, Hash Code.  FTP the file from the system A to system B
and compare the two.  I'm fairly confident that the two source files are
identical, but I need to be sure.

Is a hash code generator what I'm looking for here?  Feed in
Library/File(Member) and get back a 16(?)-byte hash code?  If so, does
anyone have one that runs on V3R2?

- Dan Bale
(I am *NOT* "Dale"
http://archive.midrange.com/midrange-l/200105/msg00281.html )
SAMSA, Inc.
989-790-0507
DBale@SAMSA.com
  Quiquid latine dictum sit altum viditur.
  (Whatever is said in Latin seems profound.)


_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
or email: MI400-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.