Naive hash code functions for creating terminal colours

hash

#!/bin/busybox sh
# Original code, slow, not sh-compatible
hashcode() {
    local hash=0
    local str="$1"X
    while [ -n "$str" ]; do
        ch="${str:0:1}"
        hash=$(( ($hash * 173 + $(printf '%d' "'$ch")) % 256 ))
        str="${str:1}"
    done
    printf %s "$hash"
}
printf "\033[38;5;%sm%s\n" "$(hashcode "$1")" "$1"

hash.pl

#!/usr/bin/env perl
# Perl version, the fastest (because of course it is)
sub hashcode {
    my ($str) = @_;
    $str .= 'X';
    my $hash = 0;
    for (0..(length($str) - 1)) {
        $hash = ($hash * 173 + ord(substr($str, $_, 1))) & 0xFF;
    }
    $hash
}

$/ = '';
my $str = <>;
chomp $str;
printf "\033[38;5;%sm%s\n", hashcode($str), $str;

hash_once_sh

#!/bin/sh
hashcode() {
    local hash=0
    local str="$1"X
    set --
    while [ -n "$str" ]; do
        next_str=${str#?}
        ch=${str%"$next_str"}
        set -- "$@" "'$ch"
        str=$next_str
    done
    for n in $(printf '%d ' "$@"); do
        hash=$(( (hash * 173 + n) % 256 ))
    done
    printf %s "$hash"
}

contents=$(cat)
printf "\033[38;5;%sm%s\n" "$(hashcode "$contents")" "$contents"

Also there isn't a warranty or anything like that :^)