Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Bonjour quelqu un pourrait m aider a convertir ce bout de code vba en c# d
Function ChiffreClé(Texte As String) As StringStatic Mod10(0 To 10, 0 To 10)Static Mod10Result(0 To 9)Mod10(0, 0) = 0Mod10(0, 1) = 9Mod10(0, 2) = 4Mod10(0, 3) = 6Mod10(0, 4) = 8Mod10(0, 5) = 2Mod10(0, 6) = 7Mod10(0, 7) = 1Mod10(0, 8) = 3Mod10(0, 9) = 5Mod10(1, 0) = 9Mod10(1, 1) = 4Mod10(1, 2) = 6Mod10(1, 3) = 8Mod10(1, 4) = 2Mod10(1, 5) = 7Mod10(1, 6) = 1Mod10(1, 7) = 3Mod10(1, 8) = 5Mod10(1, 9) = 0Mod10(2, 0) = 4Mod10(2, 1) = 6Mod10(2, 2) = 8Mod10(2, 3) = 2Mod10(2, 4) = 7Mod10(2, 5) = 1Mod10(2, 6) = 3Mod10(2, 7) = 5Mod10(2, 8) = 0Mod10(2, 9) = 9Mod10(3, 0) = 6Mod10(3, 1) = 8Mod10(3, 2) = 2Mod10(3, 3) = 7Mod10(3, 4) = 1Mod10(3, 5) = 3Mod10(3, 6) = 5Mod10(3, 7) = 0Mod10(3, 8) = 9Mod10(3, 9) = 4Mod10(4, 0) = 8Mod10(4, 1) = 2Mod10(4, 2) = 7Mod10(4, 3) = 1Mod10(4, 4) = 3Mod10(4, 5) = 5Mod10(4, 6) = 0Mod10(4, 7) = 9Mod10(4, 8) = 4Mod10(4, 9) = 6Mod10(5, 0) = 2Mod10(5, 1) = 7Mod10(5, 2) = 1Mod10(5, 3) = 3Mod10(5, 4) = 5Mod10(5, 5) = 0Mod10(5, 6) = 9Mod10(5, 7) = 4Mod10(5, 8) = 6Mod10(5, 9) = 8Mod10(6, 0) = 7Mod10(6, 1) = 1Mod10(6, 2) = 3Mod10(6, 3) = 5Mod10(6, 4) = 0Mod10(6, 5) = 9Mod10(6, 6) = 4Mod10(6, 7) = 6Mod10(6, 8) = 8Mod10(6, 9) = 2Mod10(7, 0) = 1Mod10(7, 1) = 3Mod10(7, 2) = 5Mod10(7, 3) = 0Mod10(7, 4) = 9Mod10(7, 5) = 4Mod10(7, 6) = 6Mod10(7, 7) = 8Mod10(7, 8) = 2Mod10(7, 9) = 7Mod10(8, 0) = 3Mod10(8, 1) = 5Mod10(8, 2) = 0Mod10(8, 3) = 9Mod10(8, 4) = 4Mod10(8, 5) = 6Mod10(8, 6) = 8Mod10(8, 7) = 2Mod10(8, 8) = 7Mod10(8, 9) = 1Mod10(9, 0) = 5Mod10(9, 1) = 0Mod10(9, 2) = 9Mod10(9, 3) = 4Mod10(9, 4) = 6Mod10(9, 5) = 8Mod10(9, 6) = 2Mod10(9, 7) = 7Mod10(9, 8) = 1Mod10(9, 9) = 3Mod10Result(0) = 0Mod10Result(1) = 9Mod10Result(2) = 8Mod10Result(3) = 7Mod10Result(4) = 6Mod10Result(5) = 5Mod10Result(6) = 4Mod10Result(7) = 3Mod10Result(8) = 2Mod10Result(9) = 1LigneCode = 0For I = 1 To Len(Texte)Chiffre = Mid$(Texte, I, 1)Valeur = Val(Chiffre)'Debug.Print "Tableau " & LigneCode & " " & ValeurLigneCode = Mod10(LigneCode, Valeur)Next IChiffreClé = Mod10Result(LigneCode)End Function
Function ChiffreClé(Texte As String) As String Static Mod10(0 To 10, 0 To 10) Static Mod10Result(0 To 9) Mod10(0, 0) = 0 Mod10(0, 1) = 9 Mod10(0, 2) = 4 Mod10(0, 3) = 6 Mod10(0, 4) = 8 Mod10(0, 5) = 2 Mod10(0, 6) = 7 Mod10(0, 7) = 1 Mod10(0, 8) = 3 Mod10(0, 9) = 5 Mod10(1, 0) = 9 Mod10(1, 1) = 4 Mod10(1, 2) = 6 Mod10(1, 3) = 8 Mod10(1, 4) = 2 Mod10(1, 5) = 7 Mod10(1, 6) = 1 Mod10(1, 7) = 3 Mod10(1, 8) = 5 Mod10(1, 9) = 0 Mod10(2, 0) = 4 Mod10(2, 1) = 6 Mod10(2, 2) = 8 Mod10(2, 3) = 2 Mod10(2, 4) = 7 Mod10(2, 5) = 1 Mod10(2, 6) = 3 Mod10(2, 7) = 5 Mod10(2, 8) = 0 Mod10(2, 9) = 9 Mod10(3, 0) = 6 Mod10(3, 1) = 8 Mod10(3, 2) = 2 Mod10(3, 3) = 7 Mod10(3, 4) = 1 Mod10(3, 5) = 3 Mod10(3, 6) = 5 Mod10(3, 7) = 0 Mod10(3, 8) = 9 Mod10(3, 9) = 4 Mod10(4, 0) = 8 Mod10(4, 1) = 2 Mod10(4, 2) = 7 Mod10(4, 3) = 1 Mod10(4, 4) = 3 Mod10(4, 5) = 5 Mod10(4, 6) = 0 Mod10(4, 7) = 9 Mod10(4, 8) = 4 Mod10(4, 9) = 6 Mod10(5, 0) = 2 Mod10(5, 1) = 7 Mod10(5, 2) = 1 Mod10(5, 3) = 3 Mod10(5, 4) = 5 Mod10(5, 5) = 0 Mod10(5, 6) = 9 Mod10(5, 7) = 4 Mod10(5, 8) = 6 Mod10(5, 9) = 8 Mod10(6, 0) = 7 Mod10(6, 1) = 1 Mod10(6, 2) = 3 Mod10(6, 3) = 5 Mod10(6, 4) = 0 Mod10(6, 5) = 9 Mod10(6, 6) = 4 Mod10(6, 7) = 6 Mod10(6, 8) = 8 Mod10(6, 9) = 2 Mod10(7, 0) = 1 Mod10(7, 1) = 3 Mod10(7, 2) = 5 Mod10(7, 3) = 0 Mod10(7, 4) = 9 Mod10(7, 5) = 4 Mod10(7, 6) = 6 Mod10(7, 7) = 8 Mod10(7, 8) = 2 Mod10(7, 9) = 7 Mod10(8, 0) = 3 Mod10(8, 1) = 5 Mod10(8, 2) = 0 Mod10(8, 3) = 9 Mod10(8, 4) = 4 Mod10(8, 5) = 6 Mod10(8, 6) = 8 Mod10(8, 7) = 2 Mod10(8, 8) = 7 Mod10(8, 9) = 1 Mod10(9, 0) = 5 Mod10(9, 1) = 0 Mod10(9, 2) = 9 Mod10(9, 3) = 4 Mod10(9, 4) = 6 Mod10(9, 5) = 8 Mod10(9, 6) = 2 Mod10(9, 7) = 7 Mod10(9, 8) = 1 Mod10(9, 9) = 3 Mod10Result(0) = 0 Mod10Result(1) = 9 Mod10Result(2) = 8 Mod10Result(3) = 7 Mod10Result(4) = 6 Mod10Result(5) = 5 Mod10Result(6) = 4 Mod10Result(7) = 3 Mod10Result(8) = 2 Mod10Result(9) = 1 LigneCode = 0 For I = 1 To Len(Texte) Chiffre = Mid$(Texte, I, 1) Valeur = Val(Chiffre) 'Debug.Print "Tableau " & LigneCode & " " & Valeur LigneCode = Mod10(LigneCode, Valeur) Next I ChiffreClé = Mod10Result(LigneCode) End Function