12 lines
601 B
Tcl
12 lines
601 B
Tcl
foreach {hash <- string} {
|
|
0xd41d8cd98f00b204e9800998ecf8427e ==> ""
|
|
0x0cc175b9c0f1b6a831c399e269772661 ==> "a"
|
|
0x900150983cd24fb0d6963f7d28e17f72 ==> "abc"
|
|
0xf96b697d7cb7938d525a2f31aaf161d0 ==> "message digest"
|
|
0xc3fcd3d76192e4007dfb496cca67e13b ==> "abcdefghijklmnopqrstuvwxyz"
|
|
0xd174ab98d277d9f5a5611c2c9f419d9f ==> "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
|
|
0x57edf4a22be3c955ac49da2e2107b67a ==> "12345678901234567890123456789012345678901234567890123456789012345678901234567890"
|
|
} {
|
|
puts "“$string” -> [md5::md5 $string] (officially: $hash)"
|
|
}
|