MD5 Hash Code generieren
Verfasst: 26. Januar 2018 16:04
Hallo zusammen,
ich möchte zu allen Datensätzen einer Tabelle einzelne MD5 Werte generieren um diese nachher auf ihre "Version" zu überprüfen...
Die String-Zusammensetzung in der Schleife funktioniert. In die Zieltabelle wird mir auch ein berechneter HashKey je Zeile eingetragen. Allerdings für jeden Datensatz IMMER der gleiche HashKey.
Folgenden Code haben wir bisher gebastelt:
Folgenden Code haben wir bisher gebastelt:
Ich freue mich über Hilfe.. wir verzweifeln langsam
Danke vorab.
ich möchte zu allen Datensätzen einer Tabelle einzelne MD5 Werte generieren um diese nachher auf ihre "Version" zu überprüfen...
Die String-Zusammensetzung in der Schleife funktioniert. In die Zieltabelle wird mir auch ein berechneter HashKey je Zeile eingetragen. Allerdings für jeden Datensatz IMMER der gleiche HashKey.
Folgenden Code haben wir bisher gebastelt:
Folgenden Code haben wir bisher gebastelt:
- Code:
IF REC.FIND('-') THEN
REPEAT
REC.CALCFIELDS("Hash BLOB");
CLEAR(REC."Hash BLOB");
REC.MODIFY;
REC."Hash MD5" := '';
CLEAR(Test);
CLEAR(Ostream);
CLEAR(SInStream);
Text := FORMAT(REC);
BIGTEXTvariable.ADDTEXT(Text);
REC."Hash BLOB".CREATEOUTSTREAM(Ostream);
BIGTEXTvariable.WRITE(Ostream);
REC.CALCFIELDS("Hash BLOB");
IF REC."Hash BLOB".HASVALUE THEN BEGIN
REC."Hash BLOB".CREATEINSTREAM(SInStream);
CLEAR(BIGTEXTvariable);
BIGTEXTvariable.READ(SInStream);
MESSAGE('%1',BIGTEXT); //MESSAGES nur zu Testzwecken !!
MD5 := MD5.Create();
MD5.ComputeHash(SInStream);
HashKey := BTcon.ToString(MD5.ComputeHash(SInStream));
HashKey := DELCHR(HashKey, '=', '-');
REC."Hash MD5" := HashKey;
MESSAGE('%1',HashKey);
REC.MODIFY;
END;
UNTIL REC.NEXT = 0;
Ich freue mich über Hilfe.. wir verzweifeln langsam
Danke vorab.