sec_digest_string

sec_digest_string   str

Digests a string into eight ASCII characters (horribly insecurely). This is fed to ns_crypt to help generate random data.

Source code:

    set chars [list 32 32 32 32 32 32 32 32]
    for { set i 0 } { $i < [string length $str] } { incr i } {
	scan [string index $str $i] "%c" chr
	set index [expr { $i % 8 }]
	set chars [lreplace $chars $index $index [expr { [lindex $chars $index] + $chr }]]
    }
    foreach chr $chars {
	append out [format "%c" [expr { $chr % 93 + 33 }]]
    }
    return $out