31/12/2015, 20:03
j'ai essayer aussi celui là
TCL :
proc percenthash string {
set output 0
foreach {c1 c2} [split [md5 $string] {}] {
incr output [expr 0x$c1$c2]
}
return [expr $output %101]
}
mais j'ai toujours une erreur en pl
Tcl error [pub_couple]: invalid bareword "0x"
in expression "0xÂ";
"$0x" or "{0x}" or "0x(...)" or ...
TCL :
proc percenthash string {
set output 0
foreach {c1 c2} [split [md5 $string] {}] {
incr output [expr 0x$c1$c2]
}
return [expr $output %101]
}
mais j'ai toujours une erreur en pl
Tcl error [pub_couple]: invalid bareword "0x"
in expression "0xÂ";
"$0x" or "{0x}" or "0x(...)" or ...