Breadcrumbs

[pip]

Hi today I have a tutorial on a rc4 crypter it can take text and crypt/decrypt rc4!|
|
------------------------------------------------------------------------------------------------------------------|
What you need: |
3 Text boxes |
2 Buttons |
1 Label
A brain! |
-------------------------------------------------------------------------------------------------------------------
button 1 text = Encrypt / Decrypt and goes under textbox3
textbox 1 size = 287, 79, scrollbars vertical, multi-line - true
textbox 3 goes under textbox 1 with label by it and label1 text = password
textbox2 = readonly vertical scroll bars multi line true and size 287, 79
button 2 under textbox2 and says exit

Put this in code!

Code: Select all

Imports System.Text
Public Class Form1
    Public Shared 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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("Enter something to Encrypt / Decrypt", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        If TextBox3.Text = "" Then
            MessageBox.Show("Enter a password!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        TextBox2.Text = rc4(TextBox1.Text, TextBox3.Text)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

and you are finished! wahooo;

Credits: a friend of mine 5%
me 95%

[Shim]

what is a crypter and what does it do ?

[pip]

what is a crypter and what does it do ?

lol look at the image and guess :P basically you type whatever in top then any password and then crpyt or if it is crypted decrypt and it reverse will show text or show strings of rc4

[Shim]

#pip still i didnt get it

[pip]

#pip still i didnt get it

:/ it is something really simple lol just make it and you'll see:
RC4 is a stream cipher designed by Rivest for RSA Data Security (now RSA Security). It is a variable key-size stream cipher with byte-oriented operations. The algorithm is based on the use of a random permutation. Analysis shows that the period of the cipher is overwhelmingly likely to be greater than 10100. Eight to sixteen machine operations are required per output byte, and the cipher can be expected to run very quickly in software. Independent analysts have scrutinized the algorithm and it is considered secure.

[Shim]

#pip now i understand what it is thank you so much +rep

[MrAksel]

#pip still i didnt get it

:/ it is something really simple lol just make it and you'll see:
RC4 is a stream cipher designed by Rivest for RSA Data Security (now RSA Security). It is a variable key-size stream cipher with byte-oriented operations. The algorithm is based on the use of a random permutation. Analysis shows that the period of the cipher is overwhelmingly likely to be greater than 10100. Eight to sixteen machine operations are required per output byte, and the cipher can be expected to run very quickly in software. Independent analysts have scrutinized the algorithm and it is considered secure.

#pip now i understand what it is thank you so much +rep

Well I didn't understand a single thing of what pip said :lol: Speak english please? xD
Seems like nice work I've always just used the classes included in .NET to encrypt :P Way easier

[catslover32]

if you type some thing in the top text box and password and press the encrypt/decrypt button nothing happenes :x

[StrkingQuazar]

#pip still i didnt get it

:/ it is something really simple lol just make it and you'll see:
RC4 is a stream cipher designed by Rivest for RSA Data Security (now RSA Security). It is a variable key-size stream cipher with byte-oriented operations. The algorithm is based on the use of a random permutation. Analysis shows that the period of the cipher is overwhelmingly likely to be greater than 10100. Eight to sixteen machine operations are required per output byte, and the cipher can be expected to run very quickly in software. Independent analysts have scrutinized the algorithm and it is considered secure.

I couldn't find A Brain in the Visual Basic Toolbox, please help me!!!

[Jaime1993]

please help from where you downloaded the brain component me too i didnt find it! hellpPPP!