Comment faire des générateurs de clés

10 puis KeyHex: = Chr (Digit-10 + ord ('a')) + KeyHex; jusqu'à key = 0; writeln ('Votre clé:', KeyHex); writeln ('Enjoy!'); fin.