Bonjour,
Je n'arrive pas à traduire du code VB.net en Java pour une fonction de décryptage de l'adresse ip ...
J'ai vraiment du mal à traduire les opérateurs de rotation de bit. :x
Dim i As Long = 0
Dim fois As Long = 0
ipServeurJeu = ""
While (i < 8)
i = i + 1
fois = fois + 1
Dim dat1 As Integer = Asc(Mid(ipCrypt, i, 1)) - 48
i = i + 1
Dim dat2 As Integer = Asc(Mid(ipCrypt, i, 1)) - 48
Dim Dat3 As String = Str(((dat1 And 15) << 4 Or dat2 And 15))
If (fois > 1) Then
ipServeurJeu = ipServeurJeu + Mid(Dat3, 2)
Else
ipServeurJeu = ipServeurJeu + Dat3
End If
If (i < 8) Then
ipServeurJeu = ipServeurJeu + "."
End If
End While
Je suppose que la fonction Asc() retourne le texte en Ascii, ipCrypt (8 caractères) est la valeur en argument de la fonction et ipServeurJeu (sous forme xxx.xxx.xxx.xxx) est la valeur de retour.
Merci d'avance