Support Forums

Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

AskMe@For.It

http://www.harveycartel.org/metanet/n_v1pc.zip

I swear when I get my liscense I'm buying a gorilla costume and were going to Walmart and were just gonna mess with people.

Was coding at the time.~

Code:
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

545496000016

Lol, I honestly don't know what that is.

Q. What do you call a man with no arms or legs that can swim across a pool?
A. Clever Dick

# NES
# Sega Genesis
# Gameboy Colour
# PS1
# PS2
# Gameboy Advance
# PSP
# PS3
# (I don't know where PC would stand)

Nassau Coliseum

http://www.hackforums.net/showthread.php?tid=731431

Thats mine Oo

ಠ_ಠ

LOL was trollin on chatroulette XD

Sir

xerotic

Logan

Pyratepig

TriGz

Cobalt

Project-

Peter L

apoC

SleepyTroll