[$lick]

[-]==[About]==[-]

In this thread - Here - A user released an unsecure program.

So as I was bored I made my own, Originally posted - Here

And was asked to release it, So here it is.

[-]==[Information]==[-]

It uses RC4 Encryption with a password to save your accounts.

The accounts are saved to the settings (Still encrypted) and re-added upon execution.

The site is shown in a listview unencrypted but the username and passwords are shown still encrypted.

You can select the item and decrypt the password using your encryption key to get a message box of your account details.

[-]==[Pictures]==[-]





[-]==[GIF]==[-]

  (Click to View)

[-]==[Download]==[-]

This was created in about 20 minutes while bored, It's honestly horribly coded...

Download - Here

Post to keep the thread alive.

---

[LordCoder]

Nice release. I was searching how to do RC4 for .NET. I would love to have it. Thanks.

[Only3]

if u use the public old rc4 (string) then u gona have problem with unicode better use the byte one

[$lick]

if u use the public old rc4 (string) then u gona have problem with unicode better use the byte one

Shit, Good point.

I will do so later, Can't be bothered with it now.

[evolution74]

Why didn't you put the source of the encryption?

Code

Public Function rc4(ByVal message As String, ByVal password As String) As String
      Dim num As Integer = 0
      Dim num1 As Integer = 0
      Dim stringBuilder As System.Text.StringBuilder = New System.Text.StringBuilder()
      Dim empty As String = String.Empty
      Dim numArray(257) As Integer
      Dim numArray1(257) As Integer
      Dim length As Integer = password.Length
      Dim num2 As Integer = 0
      While num2 <= 255
      Dim charArray As Char = password.Substring(num2 Mod length, 1).ToCharArray()(0)
      numArray1(num2) = Strings.Asc(charArray)
      numArray(num2) = num2
      Math.Max(Interlocked.Increment(num2), num2 - 1)
      End While
      Dim num3 As Integer = 0
      Dim num4 As Integer = 0
      While num4 <= 255
      num3 = (num3 + numArray(num4) + numArray1(num4)) Mod 256
      Dim num5 As Integer = numArray(num4)
      numArray(num4) = numArray(num3)
      numArray(num3) = num5
      Math.Max(Interlocked.Increment(num4), num4 - 1)
      End While
      num2 = 1
      While num2 <= message.Length
      Dim num6 As Integer = 0
      num = (num + 1) Mod 256
      num1 = (num1 + numArray(num)) Mod 256
      num6 = numArray(num)
      numArray(num) = numArray(num1)
      numArray(num1) = num6
      Dim num7 As Integer = numArray((numArray(num) + numArray(num1)) Mod 256)
      Dim chr As Char = message.Substring(num2 - 1, 1).ToCharArray()(0)
      Dim num8 As Integer = Strings.Asc(chr) Xor num7
      stringBuilder.Append(Strings.Chr(num8))
      Math.Max(Interlocked.Increment(num2), num2 - 1)
      End While
      empty = stringBuilder.ToString()
      stringBuilder.Length = 0
      Return empty
    End Function

[$lick]

Why didn't you put the source of the encryption?

Code

Public Function rc4(ByVal message As String, ByVal password As String) As String
      Dim num As Integer = 0
      Dim num1 As Integer = 0
      Dim stringBuilder As System.Text.StringBuilder = New System.Text.StringBuilder()
      Dim empty As String = String.Empty
      Dim numArray(257) As Integer
      Dim numArray1(257) As Integer
      Dim length As Integer = password.Length
      Dim num2 As Integer = 0
      While num2 <= 255
      Dim charArray As Char = password.Substring(num2 Mod length, 1).ToCharArray()(0)
      numArray1(num2) = Strings.Asc(charArray)
      numArray(num2) = num2
      Math.Max(Interlocked.Increment(num2), num2 - 1)
      End While
      Dim num3 As Integer = 0
      Dim num4 As Integer = 0
      While num4 <= 255
      num3 = (num3 + numArray(num4) + numArray1(num4)) Mod 256
      Dim num5 As Integer = numArray(num4)
      numArray(num4) = numArray(num3)
      numArray(num3) = num5
      Math.Max(Interlocked.Increment(num4), num4 - 1)
      End While
      num2 = 1
      While num2 <= message.Length
      Dim num6 As Integer = 0
      num = (num + 1) Mod 256
      num1 = (num1 + numArray(num)) Mod 256
      num6 = numArray(num)
      numArray(num) = numArray(num1)
      numArray(num1) = num6
      Dim num7 As Integer = numArray((numArray(num) + numArray(num1)) Mod 256)
      Dim chr As Char = message.Substring(num2 - 1, 1).ToCharArray()(0)
      Dim num8 As Integer = Strings.Asc(chr) Xor num7
      stringBuilder.Append(Strings.Chr(num8))
      Math.Max(Interlocked.Increment(num2), num2 - 1)
      End While
      empty = stringBuilder.ToString()
      stringBuilder.Length = 0
      Return empty
    End Function

That's not the source used, But thanks for posting it anyway.

[mullinupp]

this one seems very interesting for me

[evolution74]

Sure is not:
  (Click to View)

[$lick]

Sure is not:

Use spoilers on images.

And it's not, The decompiler must have edited it.

[humet111]

very very thanks .... nice share ...

[evolution74]

And it's not, The decompiler must have edited it.

What is more believable?
1) A top decompiler edited the code for no reason
or
2) You don't want people to know you want to look good by using a free code from google

[$lick]

What is more believable?
1) A top decompiler edited the code for no reason
or
2) You don't want people to know you want to look good by using a free code from google

Are you somewhat retarded?

That is NOT The code I use, Ask anybody that I have given the source too.

EDIT: Also it says all over the program and all over the thread and even the fucking title of both that it uses RC4 I did not create RC4, Now please leave this thread.

[evolution74]

:) you're stupid you know?
PS: You made my day coz I like to fuck with people

[LordCoder]

What is more believable?
1) A top decompiler edited the code for no reason
or
2) You don't want people to know you want to look good by using a free code from google

What are you saying? First of all .NET Reflector is much better than JustDecompile because .NET Reflector was the first stable decompiler. Second he didn't reinvented RC4 so anyone posted originally maybe?

:) you're stupid you know?
PS: You made my day coz I like to fuck with people

We don't need more people like you thanks.

[$lick]

:) you're stupid you know?
PS: You made my day coz I like to fuck with people

You're the stupid one here.

The code you posted was still wrong and all your statements are false.

You won't last here very long acting like a twat.