Bonjour voila depuis la mise a jour du 06/12/2011 j'ai vue que les key je pense qui on changer j'aimerais en s'avoir plus.
Merci d'avance.
Un petit Up j'ai fait mes recherche sa ma ramener a la
j'aimerais s'avoir si c'est un bon départ ?
Merci d'avance.
Un petit Up j'ai fait mes recherche sa ma ramener a la
Code:
Imports System.IO
Imports WindowsApplication3.version
Public Class AuthentificationManager
Private _publicKey As String
Private _salt As String
Private _lva As LoginValidationAction
Private _certificate As TrustCertificate
Public gameServerTicket As String
Public ankamaPortalKey As String
Public username As String
Public nextToken As String
Public tokenMode As Boolean = False
Private _self As AuthentificationManager
Private PUBLIC_KEY As String = "-----BEGIN PUBLIC KEY-----\n" + "MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEApHRiGIhIJrNdUJkKGtWC\n" + "sSqIza+2gPsjGXhSoDTOcokq59Et8d8SzgF68RvAZXezPO8tnUhlyvaDem4QSFLV\n" + "PVAmSRcp47HW4lpp11WHBlDsEEXQTBkM8nDyqSgn8dMANvButRDt/44OKslrfqmV\n" + "7ANmZggZ2wXN0T6XWt3FVC66X8+E7rUMUOREQYCDq3zrX4dNYy3y21lyJZeXTkSd\n" + "AmijqIHrrwLPTA/wpWLCEaIJ9OAWjds8L6TqONXvnf3qOtI/QsrWv24lRjtmRSeR\n" + "eKFIPrk8QQbcd2h4VUi06fJZ2ydCx0pOwU33izN42pmZoCrgdCwghFm1i2feQa0M\n" + "vQIDAQAB\n" + "-----END PUBLIC KEY-----"
Public Function AuthentificationManager()
Return Me
End Function
Public Function get_salt() As String
Return Me._salt
End Function
Public Function setSalt(ByVal param1 As String)
Me._salt = param1
If (Me._salt.Length < 32) Then
While (Me._salt.Length < 32)
Me._salt = Me._salt + " "
End While
End If
Return Me
End Function
Public Function setPublicKey(ByVal param1 As List(Of Integer))
Dim _loc_2 = New Dofus.DofusWriter(Form1._socket_Connexion)
Dim _loc_3 As Integer = 0
While (_loc_3 < param1.Count)
_loc_2.WriteByte(param1(_loc_3))
End While
Dim _loc_4 = ConvertFileToBase64(_loc_2)
Me._publicKey = "-----BEGIN PUBLIC KEY-----\n" + _loc_4 + "-----END PUBLIC KEY-----"
Return Me
End Function
Public Function setValidationAction(ByVal param1 As LoginValidationAction)
Me.username = param1.username
Me._lva = param1
Dim _loc_2 = New Utils.Md5
'this._certificate = SecureModeManager.getInstance().retreiveCertificate();
' ProtectPishingFrame.setPasswordHash(_loc_2.encrypt(param1.password.toUpperCase()), param1.password.length);
Return Me
End Function
Public Function get_loginValidationAction() As LoginValidationAction
Return Me._lva
End Function
Public Function get_canAutoConnectWithToken() As Boolean
Return Me.nextToken = Nothing
End Function
Public Function destroy()
_self = Nothing
Return Me
End Function
Private Function cipherMd5String(ByVal param1 As String) As String
Dim _loc_2 = New Utils.Md5
Return Utils.Md5.Hash(param1 & Me._salt)
End Function
Private Function cipherRsa(ByVal param1 As String, ByVal param2 As TrustCertificate) As List(Of Integer)
Dim _loc_4 As Dofus.DofusWriter = Nothing
Dim _loc_7 As Integer = 0
Dim _loc_3 As Dofus.DofusWriter = New Dofus.DofusWriter(Form1._socket_Connexion)
_loc_4 = RSA.cipherRsaString(Me._publicKey, _loc_3)
Dim _loc_5 = New List(Of Integer)
Return _loc_5
End Function
Public Function getInstance() As AuthentificationManager
Return _self
End Function
#Region "conversion Base64"
Public Function ConvertFileToBase64(ByVal fileName) As String
Dim ReturnValue As String = ""
If My.Computer.FileSystem.FileExists(fileName) Then
Using BinaryFile As FileStream = New FileStream(fileName, FileMode.Open)
Dim BinRead As BinaryReader = New BinaryReader(BinaryFile)
Dim BinBytes As Byte() = BinRead.ReadBytes(CInt(BinaryFile.Length))
ReturnValue = Convert.ToBase64String(BinBytes)
BinaryFile.Close()
End Using
End If
Return ReturnValue
End Function
#End Region
End Class