ok donc c'est le package base64 qui charge md5c
voila la solution:
charges ça à la fin de ta configuration et ça fonctionnera
voila la solution:
tcl
if {[info command md5]!="" && [info command _md5]==""} {
rename md5 _md5
}
proc md5 string {
binary scan [_md5 $string] H* S
set S
}
charges ça à la fin de ta configuration et ça fonctionnera