One-way hash using md5 or sha256 or equivalent

Clovertech Forums Cloverleaf One-way hash using md5 or sha256 or equivalent

  • Creator
    Topic
  • #115174
    Alfred Cox
    Participant

      I’m trying to hash the patient’s medical record number going from within Cloverleaf 6.1.5 to an outside application. Any suggestions?

      Thanks in advance!

      Buzzy

    Viewing 1 reply thread
    • Author
      Replies
      • #115178
        Jim Kosloskey
        Participant

          Do you mind using blowfish? Is this from inside an Xlate? I have a proc which will encrypt using blowfish. I know I have one for inside and Xlate and I think I have one for TPS UPoC.

          If blowfish is not appropriate, then Tcl has MD% and other cipher capability though I have not written anything for them.

          email: jim.kosloskey@jim-kosloskey.com 29+ years Cloverleaf, 59 years IT - old fart.

          • #115182
            Alfred Cox
            Participant

              Yes, if you could share the code for inside the xlate that would be great.

            • #115183
              Jim Kosloskey
              Participant

                email me and I will attach it to the reply.

                email: jim.kosloskey@jim-kosloskey.com 29+ years Cloverleaf, 59 years IT - old fart.

            • #115179
              Rob Abbott
              Keymaster

                I have used the tcllib md5 and it works well.  Tcllib is shipped with Cloverleaf.

                https://core.tcl-lang.org/tcllib/doc/trunk/embedded/md/tcllib/files/modules/md5/md5.md

                Rob Abbott
                Cloverleaf Emeritus

                • #115181
                  Alfred Cox
                  Participant

                    Yes, I saw that it is there. Just having a hard time figuring out how to use it inside an xlate.

                  • #115267
                    Robert Kersemakers
                    Participant

                      I googled it when I needed a bit of md5 hashing and came up with this.

                      lassign $xlateInVals fn
                      package require md5
                      set m [md5::md5 -hex $fn]
                      echo $fn $m
                      set xlateOutVals

                         

                        Zuyderland Medisch Centrum; Heerlen/Sittard; The Netherlands

                      1. #115271
                        Alfred Cox
                        Participant

                          That’s perfect! Thank you sir!

                    Viewing 1 reply thread
                    • You must be logged in to reply to this topic.