Convertir une chaîne de 300 caractères en une chaîne de 8 caractères identifiables de manière unique dans VBA

Question

J'ai conçu une interface utilisateur pour un outil où l'utilisateur doit entrer un "Nom" d'une longueur maximale de 300 caractères, et l'outil génère un fichier texte ("Name" .txt) qui est ensuite téléchargé sur un "serveur" (Mainframe et Unix). Je veux raccourcir la chaîne de 300 caractères en une chaîne de 8 caractères identifiables de manière unique (à cause de problèmes principalement dans le mainframe), quelque chose comme un tinyurl utilisant une sorte d'algorithme de hachage. J'ai trouvé une implémentation SHA1 mais la chaîne résultante a une longueur de 40 caractères. Quelqu'un peut-il suggérer une implémentation VBA pour l'algorithme? L'exigence de la chaîne résultante étant de 8 caractères est stricte - je suppose qu'elle devrait être faisable étant donné que nous avons une limitation sur la taille de la chaîne d'entrée.

Answer 1

Je pense que l'idée de Jens devrait fonctionner très bien. Si vous ne voulez pas tronquer le hachage SHA-1, vous pouvez utiliser un CRC-32 (32 bits ~ 8 caractères ascii de 0..f). (vous pouvez essayer d'utiliser this example) CRC-32 est moins sûr en ce qui concerne les collisions, mais c'est à vous de décider.

Answer 2

Vous pouvez simplement prendre les huit premiers caractères du SHA1 Hash.

Ces hachages (comme la version originale de 40 caractères) ne sont pas garantis d'être uniques, cependant. Si vous avez besoin de l'unicité, vous devez probablement stocker chaque nom avec sa version courte quelque part et n'émettre que des noms courts non utilisés jusqu'à présent. (C'est ce que fait tinyurl.)