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
Dim maVariableDeCryptage = New RSAManager().Encrypt(salt , key)
Dim maVariableDeCryptage = New RSAManager().Encrypt(salt & password, key)