[Ethereal]

This is my own simple Polymorphic encryption class, released to you for free. I am not going to explain how it works, because if you are interested in writing your own class, you should already know enough to be able to understand this.

Anyway, without further ado, here it is.

Example of Polymorphism:


C#

Code

class PolyEncryption
{
    public string EncryptText(string input, string key)
    {
  ///<summary>
  ///This function Polymorphically encrypts the entered Text, utilising a Key and Salt.
  ///All credits to Ethereal of HackForums.net
  ///Please leave the credits.
  ///</summary>
  Random R = new Random();
  int kc = 0;
  char[] text = input.ToCharArray();
  char[] keyarr = key.ToCharArray();
  char[] FinVal = new char[input.Length + 1];
  int Rnd = R.Next(100, 220);
  for (int index = 0; index < input.Length; index++)
  {
    if (kc >= keyarr.Length)
    kc = 0;

    int ptVal = (int)text[index];
    int kVal = (int)keyarr[kc];
    int ciVal = ptVal + kVal + Rnd;
    FinVal[index] = Convert.ToChar(ciVal);
    kc++;
  }
  FinVal[input.Length] = (char)Rnd;
  string RetStr = new string(FinVal);
  return RetStr;

    }

    public string DecryptText(string input, string key)
    {
  ///<summary>
  ///This function decrypts text that was encrypted with the Polymorphic encrypter in this class.
  ///All credits to Ethereal of HackForums.net
  ///Please leave the credits.
  ///</summary>
  char[] text = input.ToCharArray();
  char[] keyarr = key.ToCharArray();
  char[] FinVal = new char[input.Length - 1];
  int RndKVal = text[input.Length - 1];
  text[input.Length - 1] = '\0';
  int kc = 0;
  for (int index = 0; index < input.Length; index++)
  {
    if (index >= input.Length - 1)
    continue;
    if (kc >= keyarr.Length)
    kc = 0;
    int ciVal = text[index];
    int kVal = keyarr[kc];
    int ptVal = ciVal - RndKVal - kVal;
    FinVal[index] = Convert.ToChar(ptVal);
    kc++;
  }
  string RetStr = new string(FinVal);
  return RetStr;
    }

}

Usage:

Code

txtBox.Text = PolyEncryption.EncryptText("Test text", "TestKeyVal");
txtBox.Text = PolyEncryption.DecryptText("Test text", "TestKeyVal");

VB .NET(no1me translated)

Code

Class PolyEncryption
    Public Function EncryptText(ByVal input As String, ByVal key As String) As String

  'This function Polymorphically encrypts the entered Text, utilising a Key and Salt.
  'All credits to Ethereal of HackForums.net
  'Please leave the credits.
  Dim R As New Random()
  Dim kc As Integer = 0
  Dim text As Char() = input.ToCharArray()
  Dim keyarr As Char() = key.ToCharArray()
  Dim FinVal As Char() = New Char(input.Length) {}
  Dim Rnd As Integer = R.[Next](100, 220)
  For index As Integer = 0 To input.Length - 1
    If kc >= keyarr.Length Then
    kc = 0
    End If

    Dim ptVal As Integer = AscW(text(index))
    Dim kVal As Integer = AscW(keyarr(kc))
    Dim ciVal As Integer = ptVal + kVal + Rnd
    FinVal(index) = Convert.ToChar(ciVal)
    kc += 1
  Next
  FinVal(input.Length) = ChrW(Rnd)
  Dim RetStr As New String(FinVal)
  Return RetStr

    End Function

    Public Function DecryptText(ByVal input As String, ByVal key As String) As String

  'This function decrypts text that was encrypted with the Polymorphic encrypter in this class.
  'All credits to Ethereal of HackForums.net
  'Please leave the credits.
  Dim text As Char() = input.ToCharArray()
  Dim keyarr As Char() = key.ToCharArray()
  Dim FinVal As Char() = New Char(input.Length - 2) {}
  Dim RndKVal As Integer = AscW(text(input.Length - 1))
  text(input.Length - 1) = ControlChars.NullChar
  Dim kc As Integer = 0
  For index As Integer = 0 To input.Length - 1
    If index >= input.Length - 1 Then
    Continue For
    End If
    If kc >= keyarr.Length Then
    kc = 0
    End If
    Dim ciVal As Integer = AscW(text(index))
    Dim kVal As Integer = AscW(keyarr(kc))
    Dim ptVal As Integer = ciVal - RndKVal - kVal
    FinVal(index) = Convert.ToChar(ptVal)
    kc += 1
  Next
  Dim RetStr As New String(FinVal)
  Return RetStr
    End Function
End Class

Usage:

Code

TextBox1.Text = PolyEncryption.EncryptText(TextBox1.Text, TextBox3.Text)
TextBox1.Text = PolyEncryption.DecryptText(TextBox1.Text, TextBox3.Text)

I hope that it is useful to you.

[#[neo]#]

Hey nice share I was looking for something like this to understand how it works. Thanks.

[Ethereal]

Hey nice share I was looking for something like this to understand how it works. Thanks.

Glad it's useful. I changed it slightly, and have updated the source.

50 views and one reply? -.-

[rudeboy1991]

I will be learning C soon for my crypters, so i will take this and save it somewhere safe, thanks.

[guard]

Very interesting Ethereal, nice to see another C# coder also.

[no1me]

work very good
vb.net if s1 want

Code

Class PolyEncryption
    Public Function EncryptText(ByVal input As String, ByVal key As String) As String

  'This function Polymorphically encrypts the entered Text, utilising a Key and Salt.
  'All credits to Ethereal of HackForums.net
  'Please leave the credits.
  Dim R As New Random()
  Dim kc As Integer = 0
  Dim text As Char() = input.ToCharArray()
  Dim keyarr As Char() = key.ToCharArray()
  Dim FinVal As Char() = New Char(input.Length) {}
  Dim Rnd As Integer = R.[Next](100, 220)
  For index As Integer = 0 To input.Length - 1
    If kc >= keyarr.Length Then
    kc = 0
    End If

    Dim ptVal As Integer = AscW(text(index))
    Dim kVal As Integer = AscW(keyarr(kc))
    Dim ciVal As Integer = ptVal + kVal + Rnd
    FinVal(index) = Convert.ToChar(ciVal)
    kc += 1
  Next
  FinVal(input.Length) = ChrW(Rnd)
  Dim RetStr As New String(FinVal)
  Return RetStr

    End Function

    Public Function DecryptText(ByVal input As String, ByVal key As String) As String

  'This function decrypts text that was encrypted with the Polymorphic encrypter in this class.
  'All credits to Ethereal of HackForums.net
  'Please leave the credits.
  Dim text As Char() = input.ToCharArray()
  Dim keyarr As Char() = key.ToCharArray()
  Dim FinVal As Char() = New Char(input.Length - 2) {}
  Dim RndKVal As Integer = AscW(text(input.Length - 1))
  text(input.Length - 1) = ControlChars.NullChar
  Dim kc As Integer = 0
  For index As Integer = 0 To input.Length - 1
    If index >= input.Length - 1 Then
    Continue For
    End If
    If kc >= keyarr.Length Then
    kc = 0
    End If
    Dim ciVal As Integer = AscW(text(index))
    Dim kVal As Integer = AscW(keyarr(kc))
    Dim ptVal As Integer = ciVal - RndKVal - kVal
    FinVal(index) = Convert.ToChar(ptVal)
    kc += 1
  Next
  Dim RetStr As New String(FinVal)
  Return RetStr
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  TextBox1.Text = EncryptText(TextBox1.Text, TextBox3.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  TextBox2.Text = DecryptText(TextBox1.Text, TextBox3.Text)
    End Sub
End Class

tnx

[Ethereal]

work very good
vb.net if s1 want

Code

Class PolyEncryption
    Public Function EncryptText(ByVal input As String, ByVal key As String) As String

  'This function Polymorphically encrypts the entered Text, utilising a Key and Salt.
  'All credits to Ethereal of HackForums.net
  'Please leave the credits.
  Dim R As New Random()
  Dim kc As Integer = 0
  Dim text As Char() = input.ToCharArray()
  Dim keyarr As Char() = key.ToCharArray()
  Dim FinVal As Char() = New Char(input.Length) {}
  Dim Rnd As Integer = R.[Next](100, 220)
  For index As Integer = 0 To input.Length - 1
    If kc >= keyarr.Length Then
    kc = 0
    End If

    Dim ptVal As Integer = AscW(text(index))
    Dim kVal As Integer = AscW(keyarr(kc))
    Dim ciVal As Integer = ptVal + kVal + Rnd
    FinVal(index) = Convert.ToChar(ciVal)
    kc += 1
  Next
  FinVal(input.Length) = ChrW(Rnd)
  Dim RetStr As New String(FinVal)
  Return RetStr

    End Function

    Public Function DecryptText(ByVal input As String, ByVal key As String) As String

  'This function decrypts text that was encrypted with the Polymorphic encrypter in this class.
  'All credits to Ethereal of HackForums.net
  'Please leave the credits.
  Dim text As Char() = input.ToCharArray()
  Dim keyarr As Char() = key.ToCharArray()
  Dim FinVal As Char() = New Char(input.Length - 2) {}
  Dim RndKVal As Integer = AscW(text(input.Length - 1))
  text(input.Length - 1) = ControlChars.NullChar
  Dim kc As Integer = 0
  For index As Integer = 0 To input.Length - 1
    If index >= input.Length - 1 Then
    Continue For
    End If
    If kc >= keyarr.Length Then
    kc = 0
    End If
    Dim ciVal As Integer = AscW(text(index))
    Dim kVal As Integer = AscW(keyarr(kc))
    Dim ptVal As Integer = ciVal - RndKVal - kVal
    FinVal(index) = Convert.ToChar(ptVal)
    kc += 1
  Next
  Dim RetStr As New String(FinVal)
  Return RetStr
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  TextBox1.Text = EncryptText(TextBox1.Text, TextBox3.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  TextBox2.Text = DecryptText(TextBox1.Text, TextBox3.Text)
    End Sub
End Class

tnx

Updated original post with this.

Very interesting Ethereal, nice to see another C# coder also.

And vice-versa.

[Reyden]

Thanks for PolyEncryption,
but i have 2 questions (wait.. my browser sucks)..

[Ethereal]

Thanks for PolyEncryption,
but i have 2 questions (wait.. my browser sucks)..

Are you gonna ask them, or...?

[M0D3M]

Very Nice share. Will reference this thread to people that would like to understand PolyMorphism.

[marvinn]

Nicee! I will defently use this in my rat for encrypted commands ! Gj!

[Ethereal]

Nicee! I will defently use this in my rat for encrypted commands ! Gj!

Thanks.

Byte-by-byte(stream encryption) variable coming soon(RC4 style), instead of adding and salting Unicode values.

[carecare]

It's always nice to see good C# tuts here :) Thanks.

[RiperFish]

Very Nice share. thank's :).rating added.

[Ethereal]

Very Nice share. thank's :).rating added.

Thanks for that.

Hopefully, more people will see this.