Finds hash. Made in vb6