Discussion :

[noftal]

Bonjour,
J'essaye d'utiliser la DLL d'implémentation de l'algorithme de crypto BlowFish qu'on trouve ici

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Imports org.jivesoftware.util
 
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim algo As New blowfish(Cle.Text) ' cette syntaxe n'est pas acceptée par Intellisense
 
        Dim encryptedtext As String = algo.encryptString(toEncrypt.Text)
        Label1.Text = encryptedtext
        Label2.Text = algo.decryptString(encryptedtext)
    End Sub
End Class

Comme indiqué, j'ai un pb avec l'instanciation de la variable algo de type Blowfish.
Pourtant, la DLL comporte bien cette classe.
Quand je tape "Imports org.jivesoftware.util", si je rajoute un point, Intellisense mon montre propose bien la classe Blowfish (on la devine dans la copie d'écran ci-jointe).

Donc j'ai l'impression que mon pb n'est pas spécifique à la DLL mais à ma façon de la référencer. Qu'en pensez-vous ?

[noftal]

De manière plus générale, avec une DLL générée par mes soins à partir du code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Imports System
Imports System.Text
Imports System.IO
Namespace Simias.Encryption
    Public Class Blowfish
...
      Public Sub New(ByVal key As Byte())
....
      End Sub
....
End Class
End Namespace

je crée un projet WindowsForms, je référence la DLL précédemment créée que j'ai appelée MyBlowFish.dll et dans le code j'écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Imports MyBlowFish.Simias.Encryption
 
Public Class Form1
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          Dim mybyte() As Byte = {1, 2, 3, 4}
          Dim algo As New blowfish(mybyte) ' Cette syntaxe est refusée
          ' Pour passer la barrière d'Intellisense, je dois taper :
          Dim algo As New MyBlowFish.Simias.Encryption.Blowfish(mybyte)
 
End Class

Tout se passe comme si mon "imports" n'était pas pris en compte.

[noftal]

J'ai résolu le problème.

tout venait du fait que mon projet-test de type Winform s'appelait aussi Blowfish, comme la classe que je suis censé utiliser.

En renommant mon projet test, ça marche