Maxou1012 a dit:
Sûrement quelques changements, j'irai voir ça quand j'ai le temps (et quand la 2.9 sera sortie).
Public Function Crypt_Pass(ByVal Input As String, ByVal Key As List(Of Integer)) As List(Of Integer)
Dim buffer4 As Byte() = New Byte(3 - 1) {}
buffer4(0) = 1
buffer4(2) = 1
Dim buffer As Byte() = buffer4
Dim buffer2 As Byte() = New Byte(256 - 1) {}
Dim i As Integer
For i = 33 To 289 - 1
If Key.Item(i) < 0 Then
Dim ll = 256 + (Key.Item(i) Mod 256)
buffer2((i - 33)) = CByte(ll)
Else
buffer2((i - 33)) = CByte(Key.Item(i))
End If
Next i
Dim bytes As Byte() = Encoding.UTF8.GetBytes(Input)
Dim parameters As New RSAParameters
Dim provider As New RSACryptoServiceProvider
parameters.Modulus = buffer2
parameters.Exponent = buffer
provider.ImportParameters(parameters)
Dim list As New List(Of Integer)
Dim num2 As Byte
For Each num2 In provider.Encrypt(bytes, False)
list.Add(num2)
Next
Return list
End Function
Help le bot socket is dead ....
et le MITM bug ...
