En faite, il faut juste remplacer cette ligne :
Dim maVariableDeCryptage = New RSAManager().Encrypt(salt , key)
Par :
Dim maVariableDeCryptage = New RSAManager().Encrypt(salt & password, key)
Mettre à jour (ou ajouter) le packet 393 (VersionExtented), le packet 11 (Version) et tout les autres packets qui ne sont pas à jour ou manquant pour la connexion.