4 lines
116 B
Tcl
4 lines
116 B
Tcl
package require md4
|
|
|
|
# Use -hex option for hexadecimal output instead of binary
|
|
puts [md4::md4 -hex "Rosetta Code"]
|