_Hash($s_ToHash)

[JSThePatriot]

Below is the code I came up with. I know Hash's arent supposed to be reversable, and this is, but I needed something to encode some items that I dont want just sitting around in plain text. Just meant to keep honest people honest not the bad guys out though I wish I could create something that strong.

Func _Hash($s_ToHash)
    Local $c_Split, $n_Split
    Local $temp, $i, $s_Hash
    
    $s_ToHash = StringStripWS($s_ToHash, 8)
    $c_Split = StringSplit($s_ToHash, "")
    
    For $i = 1 To $c_Split[0]
        $temp = $temp & Asc($c_Split[$i]) * 37 / 25 * 2 / 11 + $c_Split[0]
    Next
    
    For $i = 1 To StringLen($temp) / 3 Step 8
        $s_Hash = $s_Hash & Hex(StringMid($temp, $i, 8), 2)
    Next
    
    If ($s_Hash < 0) Then $s_Hash = -$s_Hash
        
    Return $s_Hash
EndFunc ;==>_Hash

Hope this has a use to someone else besides me.

JS