Urgent projet a finir avant le 09/03

Question

Voila j'ai un programme de cryptage &#224; faire en Visual Studio.Net 2003 .Or le probl&#232;me c'est que je n'ai pas ce logiciel, donc je l'ai fait avec du VB 6.0.Je voudrais savoir si quelqu'un pourrais me le convertir en VB.Net2003. Merci d'avance.
Voici le programme :

Dim Alphabet As String
Dim Table(1 To 26) As String


Private Sub Command1_Click()
Dim Car1 As String
Dim Car2 As String
Dim Val1 As Integer
Dim Val2 As Integer
Dim j As Integer
Text1.Text = LCase(Text1.Text)
Text2.Text = LCase(Text2.Text)
Text3.Text = vbNullString
For i = 1 To Len(Text1.Text)
    j = j + 1
    If j > Len(Text2.Text) Then j = 1
    Car1 = Mid(Text1.Text, i, 1)
    Car2 = Mid(Text2.Text, j, 1)
    Val1 = 0
    Val2 = 0
    For k = 1 To Len(Alphabet)
        If Car1 = Mid(Alphabet, k, 1) Then
            Val1 = k
            Exit For
        End If
    Next
    For k = 1 To Len(Alphabet)
        If Car2 = Mid(Alphabet, k, 1) Then
            Val2 = k
            Exit For
        End If
    Next
    If Val1 > 0 And Val2 > 0 Then
        Text3.Text = Text3.Text & Mid(Table(Val1), Val2, 1)
    Else
        j = j - 1
    End If
Next
End Sub


Private Sub Form_Load()
Alphabet = "abcdefghijklmnopqrstuvwxyz"


Table(1) = "abcdefghijklmnopqrstuvwxyz"
Table(2) = "bcdefghijklmnopqrstuvwxyza"
Table(3) = "cdefghijklmnopqrstuvwxyzab"
Table(4) = "defghijklmnopqrstuvwxyzabc"
Table(5) = "efghijklmnopqrstuvwxyzabcd"
Table(6) = "fghijklmnopqrstuvwxyzabcde"
Table(7) = "ghijklmnopqrstuvwxyzabcdef"
Table(8) = "hijklmnopqrstuvwxyzabcdefg"
Table(9) = "ijklmnopqrstuvwxyzabcdefgh"
Table(10) = "jklmnopqrstuvwxyzabcdefghi"
Table(11) = "klmnopqrstuvwxyzabcdefghij"
Table(12) = "lmnopqrstuvwxyzabcdefghijk"
Table(13) = "mnopqrstuvwxyzabcdefghijkl"
Table(14) = "nopqrstuvwxyzabcdefghijklm"
Table(15) = "opqrstuvwxyzabcdefghijklmn"
Table(16) = "pqrstuvwxyzabcdefghijklmno"
Table(17) = "qrstuvwxyzabcdefghijklmnop"
Table(18) = "rstuvwxyzabcdefghijklmnopq"
Table(19) = "stuvwxyzabcdefghijklmnopqr"
Table(20) = "tuvwxyzabcdefghijklmnopqrs"
Table(21) = "uvwxyzabcdefghijklmnopqrst"
Table(22) = "vwxyzabcdefghijklmnopqrstu"
Table(23) = "wxyzabcdefghijklmnopqrstuv"
Table(24) = "xyzabcdefghijklmnopqrstuvw"
Table(25) = "yzabcdefghijklmnopqrstuvwx"
Table(26) = "zabcdefghijklmnopqrstuvwxy"
End Sub

cs_Willi · Answer

Bonsoir,
Sa devrait ressembler &#224; cela:

8<------------------------------------------------------------------------


Dim Alphabet 
As
 
String
Dim
 Table(25) 
As
 
String



Private 
Sub
 Button1_Click(
ByVal
 sender 
As
 System.Object, 
ByVal
 e 
As
 System.EventArgs) 
Handles
 Button1.Click

   Dim
 Car1 As
 
String
   Dim
 Car2 
As
 
String
   Dim
 Val1 
As
 
Integer
   Dim
 Val2 
As
 
Integer
   Dim
 j 
As
 
Integer

   TextBox1.Text = TextBox1.Text.ToLower
   TextBox2.Text = TextBox2.Text.ToLower
   TextBox3.Text = vbNullString

   For
 i As
 
Integer
 = 1 
To
 TextBox1.Text.Length
      j = j + 1
      If
 j > TextBox2.Text.Length 
Then
 j = 1
      Car1 = Mid$(TextBox1.Text, i, 1)
      Car2 = Mid$(TextBox2.Text, j, 1)
      Val1 = 0
      Val2 = 0

      For
 k As
 
Integer
 = 1 
To
 Alphabet.Length
         If
 Car1 = Mid(Alphabet, k, 1) 
Then
            Val1 = k
            Exit
 
For
         End
 
If
      Next

      For
 l As
 
Integer
 = 1 
To
 Alphabet.Length
         If
 Car2 = Mid(Alphabet, l, 1) 
Then
            Val2 = l
            Exit
 
For
         End
 
If
      Next

      If
 Val1 > 0 And
 Val2 > 0 
Then
         TextBox3.Text = TextBox3.Text & Mid(Table(Val1 - 1), Val2, 1)
      Else
         j = j - 1
      End
 
If
   Next

End
 Sub

Private
 Sub
 Form1_Load(
ByVal
 sender 
As
 System.Object, 
ByVal
 e 
As
 System.EventArgs) 
Handles
 
MyBase
.Load

   Alphabet = "abcdefghijklmnopqrstuvwxyz"
   Table(0) = 
"abcdefghijklmnopqrstuvwxyz"
   Table(1) = 
"bcdefghijklmnopqrstuvwxyza"
   Table(2) = 
"cdefghijklmnopqrstuvwxyzab"
   Table(3) = 
"defghijklmnopqrstuvwxyzabc"
   Table(4) = 
"efghijklmnopqrstuvwxyzabcd"
   Table(5) = 
"fghijklmnopqrstuvwxyzabcde"
   Table(6) = 
"ghijklmnopqrstuvwxyzabcdef"
   Table(7) = 
"hijklmnopqrstuvwxyzabcdefg"
   Table(8) = 
"ijklmnopqrstuvwxyzabcdefgh"
   Table(9) = 
"jklmnopqrstuvwxyzabcdefghi"
   Table(10) = 
"klmnopqrstuvwxyzabcdefghij"
   Table(11) = 
"lmnopqrstuvwxyzabcdefghijk"
   Table(12) = 
"mnopqrstuvwxyzabcdefghijkl"
   Table(13) = 
"nopqrstuvwxyzabcdefghijklm"
   Table(14) = 
"opqrstuvwxyzabcdefghijklmn"
   Table(15) = 
"pqrstuvwxyzabcdefghijklmno"
   Table(16) = 
"qrstuvwxyzabcdefghijklmnop"
   Table(17) = 
"rstuvwxyzabcdefghijklmnopq"
   Table(18) = 
"stuvwxyzabcdefghijklmnopqr"
   Table(19) = 
"tuvwxyzabcdefghijklmnopqrs"
   Table(20) = 
"uvwxyzabcdefghijklmnopqrst"
   Table(21) = 
"vwxyzabcdefghijklmnopqrstu"
   Table(22) = 
"wxyzabcdefghijklmnopqrstuv"
   Table(23) = 
"xyzabcdefghijklmnopqrstuvw"
   Table(24) = 
"yzabcdefghijklmnopqrstuvwx"
   Table(25) = 
"zabcdefghijklmnopqrstuvwxy"
End
 
Sub
------------------------------------------------------------------------>8

Bon sa va juste pour cette fois.... ^^

Lucyberad · Answer

si tu veut le faire en vb.net 2003, c'est que tu veut absuloment que ce soit le framework 1.1
neamoins, je sais que les version express de visual 2003 etait gratuite comme celle de 2005 actuellement et je crois meme qu'elle l'etait pour toujours (a verifier).
neamoins si la version du framework ne te derange pas, tu peut le faire en 2.0 grace a visual 2005 gratuit actuellement, et telechargable sur plusieur site (celui de windows notammment mais super lent.)
il est meme possible de faire du framework 1.1 avec 2005 mais je ne sais plus ou j'ai vu ca.
voila. etant moi meme sous 2005, je suis dsl de ne aps pouvoir t'aider.

<hr size="2" width="100%">
L U C Y I3 E R @ D

cs_Willi · Answer

Euh....sauf erreur de ma part il n'y a pas de version Express pour 2003.

troxsa · Answer

La version b&#233;ta 2003 etait gratuite pour les tests elle fut tres vite retir&#233;, mais la version express 2003 j'ai pas connu :( a moins que tu confonde avec la version 2005 :)
c'est l'heure d'aller ce coucher tien 

http://www.troxsa.info/Code VB.net

Lucyberad · Answer

ouais quand je reli mon texte je devais vraiment me coucher lol, donc ce que je voulai dire, les 2005 en express sont gratos (avec les betas) et que je n'avais aucune certitude pour les 2003. (la c clair ^^)
et je rajoute meme que j'ai trouv&#233; comment compiler du .net1 sous visual 2005.
c'est ici => http://diazorm.e-supinfo.net/blog/?p=88
seulement c'est pour programme C# et je sais pas si c'est appliquable au programme vb.net (je pense pas).

<hr size="2" width="100%">
L U C Y I3 E R @ D

Urgent projet a finir avant le 09/03

5 réponses

Discussions similaires