pour le Fake key sur bot.vb aprés decryptage :
Private ReadOnly _bas As Integer()
Private ReadOnly _header As Integer()
Private ReadOnly _key As Integer()
Public RSA As RSACryptoServiceProvider
Public RSAParam As RSAParameters
Public Sub New(ByVal messageDispatcher As MessageDispatcher(Of Bot))
MyBase.New(30)
Me._key = New Integer(&H126 - 1) {}
Me._header = New Integer() { &H30, -126, 1, &H22, &H30, 13, 6, 9, &H2A, -122, &H48, -122, -9, 13, 1, 1, 1, 5, 0, 3, -126, 1, 15, 0, &H30, -126, 1, 10, 2, -126, 1, 1, 0 }
Me._bas = New Integer() { 2, 3, 1, 0, 1 }
Me.RSA = New RSACryptoServiceProvider(&H800)
Me.RSAParam = New RSAParameters
If (Me.Compte Is Nothing) Then
Me.Compte = New User
End If
Me.Dispatcher = messageDispatcher
Me.ConnectionType = ClientConnectionType.Disconnected
Me.RSAParam = Me.RSA.ExportParameters(True)
Dim i As Integer
For i = 0 To &H21 - 1
Me._key(i) = Me._header(i)
Next i
Dim j As Integer
For j = 0 To &H100 - 1
Me._key((j + &H21)) = CSByte(Me.RSAParam.Modulus(j))
Next j
Dim k As Integer
For k = &H121 To &H126 - 1
Me._key(k) = Me._bas((k - &H121))
Next k
End Sub
Public Property RealRSAKey As List(Of Integer)
Get
Set(ByVal value As List(Of Integer))
End Property