Index: TECH/Algo/Encryption.cls.xml =================================================================== diff -u -r657 -r748 --- TECH/Algo/Encryption.cls.xml (.../Encryption.cls.xml) (revision 657) +++ TECH/Algo/Encryption.cls.xml (.../Encryption.cls.xml) (revision 748) @@ -11,7 +11,11 @@ #dim Waarde16bit As %String = $system.Encryption.MD5Hash(Waarde) #dim Seperator As %String = " " #dim Waarde32bit="" - For i=1:1:$Length(Waarde16bit) Set $Piece(Waarde32bit,Seperator,i)=$ZHEX($ASCII($Extract(Waarde16bit,i))) + For i=1:1:$Length(Waarde16bit) { + #dim HexValue As %String = $ZHEX($ASCII($Extract(Waarde16bit,i))) + set HexValue = ##class(TECH.StringUtils).AddLeadingChar(HexValue,"0",2) + Set $Piece(Waarde32bit,Seperator,i)=HexValue + } Set Waarde32bit = $Translate(Waarde32bit," ","") Quit Waarde32bit ]]>