Index: doc/tls.html
==================================================================
--- doc/tls.html
+++ doc/tls.html
@@ -34,10 +34,11 @@
 	    <dd><b>tls::ciphers</b> <em>protocol ?verbose? ?supported?</em></dd>
 	    <dd><b>tls::protocols</b></dd>
 	    <dd><b>tls::version</b></dd>
 	    <dt>&nbsp;</dt>
 	    <dd><b>tls::hash</b> <em>type data</em></dd>
+	    <dd><b>tls::hashes</b></dd>
 	    <dd><b>tls::md4</b> <em>data</em></dd>
 	    <dd><b>tls::md5</b> <em>data</em></dd>
 	    <dd><b>tls::sha1</b> <em>data</em></dd>
 	    <dd><b>tls::sha256</b> <em>data</em></dd>
 	</dl>
@@ -73,10 +74,11 @@
 <a href="#tls::ciphers"><b>tls::ciphers</b> <i>protocol ?verbose? ?supported?</i></a><br>
 <a href="#tls::protocols"><b>tls::protocols</b></a><br>
 <a href="#tls::version"><b>tls::version</b></a><br>
 <br>
 <a href="#tls::hash"><b>tls::hash</b> <i>type data</i></a><br>
+<a href="#tls::hashes"><b>tls::hashes</b></a><br>
 <a href="#tls::md4"><b>tls::md4</b> <i>data</i></a><br>
 <a href="#tls::md5"><b>tls::md5</b> <i>data</i></a><br>
 <a href="#tls::sha1"><b>tls::sha1</b> <i>data</i></a><br>
 <a href="#tls::sha256"><b>tls::sha256</b> <i>data</i></a><br>
 </p>
@@ -451,10 +453,13 @@
 	Returns value as a hex string. Type cam be any OpenSSL supported
 	hash digest including: <b>md4</b>, <b>md5</b>, <b>sha1</b>,
 	sha2 (<b>sha224</b>, <b>sha256</b>, <b>sha384</b>, <b>sha512</b>,
 	<b>sha512-224</b>, and <b>sha512-256</b>),
 	sha3 (<b>sha3-224</b>, <b>sha3-256</b>, <b>sha3-384</b>, and <b>sha3-512</b>), etc.</dd>
+
+    <dt><a name="tls::hashes"><strong>tls::hashes</strong></a></dt>
+    <dd>Returns a list of the valid hash digests.</dd>
 
     <dt><a name="tls::md4"><strong>tls::md4</strong> <em>data</em></a></dt>
     <dd>Calculate the hash for <em>data</em> using the MD4 message-digest algorithm.</dd>
 
     <dt><a name="tls::md5"><strong>tls::md5</strong> <em>data</em></a></dt>

Index: generic/tls.c
==================================================================
--- generic/tls.c
+++ generic/tls.c
@@ -976,11 +976,11 @@
 }
 
 /*
  *-------------------------------------------------------------------
  *
- * Hash Commands -- Return hash hex string for message digest
+ * Hash Commands -- Return hash value for digest as hex string
  *
  * Results:
  *	A standard Tcl result.
  *
  * Side effects:
@@ -1037,10 +1037,47 @@
  */
 int
 HashSHA256Cmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
     return HashCalc(interp, objc, objv, EVP_sha256());
 }
+
+/*
+ *-------------------------------------------------------------------
+ *
+ * Hash List Command -- Return list of hash message digests
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *-------------------------------------------------------------------
+ */
+
+void HashListCallback(const OBJ_NAME *obj, void *arg) {
+    Tcl_Obj *objPtr = (Tcl_Obj *) arg;
+    Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewStringObj(obj->name,-1));
+}
+
+/*
+ * Command to list available Hash values
+ */
+int
+HashListCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
+    Tcl_Obj *objPtr = Tcl_NewListObj(0, NULL);
+
+    OpenSSL_add_all_digests(); //make sure they're loaded
+    OBJ_NAME_do_all(OBJ_NAME_TYPE_MD_METH, HashListCallback, (void *) objPtr);
+    Tcl_ResetResult(interp);
+    Tcl_SetObjResult(interp, objPtr);
+
+    return TCL_OK;
+	clientData = clientData;
+	objc = objc;
+	objv = objv;
+}
 
 /*
  *-------------------------------------------------------------------
  *
  * CiphersObjCmd -- list available ciphers
@@ -2898,10 +2935,11 @@
     Tcl_CreateObjCommand(interp, "tls::version", VersionObjCmd, (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
     Tcl_CreateObjCommand(interp, "tls::misc", MiscObjCmd, (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
     Tcl_CreateObjCommand(interp, "tls::protocols", ProtocolsObjCmd, (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
 
     Tcl_CreateObjCommand(interp, "tls::hash", HashCmd, (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
+    Tcl_CreateObjCommand(interp, "tls::hashes", HashListCmd, (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
     Tcl_CreateObjCommand(interp, "tls::md4", HashMD4Cmd, (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
     Tcl_CreateObjCommand(interp, "tls::md5", HashMD5Cmd, (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
     Tcl_CreateObjCommand(interp, "tls::sha1", HashSHA1Cmd, (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
     Tcl_CreateObjCommand(interp, "tls::sha256", HashSHA256Cmd, (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);