[tflo]

Recent Update(s):

• 5 July 2011 - MOAR DYNAMIC! No overflow errors (thanks to @d3c0mpil3r).
  

Features:

• Unique Identification, faster then HWID (credits to @UbbeLoL)
  


• Dynamic Cryptography
  


• Dynamic Image Encoding
  

Source: C# | Basic

[Deceptive]

Thank you for this share.

[memesbro]

Is there anything unique about this compared to other ciphers?

[Vysse]

lmao you scared the shit out of me for a second there man...

[c6p0]

thanks man i try this =)

+rep for you

vb.net

Code

Public Class VCryptography

  Private rand As System.Random
  Private Const DELIMETER As String = "-"

  Public Sub New(Optional ByVal seed As Integer = -1)
    rand = New System.Random(If((seed < 0), System.DateTime.Now.Millisecond, seed))
  End Sub

  Private Function calcOffset(ByVal offset As Integer()) As Integer
    Return (offset(0) * offset(1)) + (offset(2) * offset(3))
  End Function

  Private Function getOffset(ByVal raw As String) As Integer()
    Return New Integer() {Integer.Parse(raw.Substring(0, 1)), Integer.Parse(raw.Substring(1, 1)), Integer.Parse(raw.Substring(raw.Length - 2, 1)), Integer.Parse(raw.Substring(raw.Length - 1, 1))}
  End Function

  Private Function getNewOffset() As Integer()
    Return New Integer() {rand.[Next](8) + 2, rand.[Next](8) + 2, rand.[Next](8) + 2, rand.[Next](8) + 2}
  End Function

  Private Function removeOffset(ByVal raw As String) As String
    Return raw.Substring(2).Substring(0, raw.Length - 4)
  End Function

  Public Function encrypt(ByVal input As String) As String
    Dim offset As Integer() = getNewOffset()
    Dim shift As Integer = calcOffset(offset)
    Dim output As String = offset(0) & "" & offset(1)
    For Each c As Char In input
    output += (AscW(c) + shift) & DELIMETER
    Next
    Return output & offset(2) & offset(3)
  End Function

  Public Function decrypt(ByVal input As String) As String
    Dim offset As Integer() = getOffset(input)
    Dim shift As Integer = -1 * calcOffset(offset)
    Dim output As String = ""
    For Each s As String In removeOffset(input).Split(DELIMETER.ToCharArray(), System.StringSplitOptions.RemoveEmptyEntries)
    output += ChrW(Integer.Parse(s) + shift)
    Next
    Return output
  End Function
    End Class

[tflo]

lmao you scared the shit out of me for a second there man...

Lmao I was wondering what you were talking about then I noticed your sig.

@Everyone Else - Thanks for replies and the thread rating!

[soft2050]

Looks Nice
Thanks mate

Add Usage for vb.ne too:

Code

Dim v As New VCryptography
  MessageBox.Show(v.encrypt("test"))

Also, you should show a screenshot of encrypted string:
[img]http://screensnapr.com/e/iTO9Wa.png[/img]

[Vysse]

Lmao I was wondering what you were talking about then I noticed your sig.

@Everyone Else - Thanks for replies and the thread rating!

Haha ya so anyways nice trick your using there... itd be cool if you could somehow make it polymorphic...

[Infinitus]

Haha ya so anyways nice trick your using there... itd be cool if you could somehow make it polymorphic...

Working on it:P I'll post back if I have any luck

EDIT:
I guess you could just do this:

" rand = New System.Random(If((seed < 0), System.DateTime.Now.Millisecond / RandomNumber(900), seed)) "

Add a function to divide the system time by a random number so each output will be different but it will all decrypt the same, but I'm not sure if you would consider that polymorphic, just my two cents though.

[tflo]

Updated, the new code makes it a lot easier to customize the algorithm.

By default, the output is polymorphic (I think).

[Deceptive]

Might use this in the future :P

[eXero]

Thanks for this!! I think I will be using it.

[.CRz]

Thanks, Using This Algorithm on my Private Crypter.

Thanks Alot

Greetings to all HF ;)

---

hmm, just one question, maybe stupid...

is possible use v.encrypt(IO.File.ReadAllBytes(InfectedFile))

for do that the function of the VCrypt needs to bee something like Public Function encrypt(ByVal input As Byte())

the only thing changed is the String to Byte, but if edit it will get errors as obvious...

Vanquish You can do something?

[tflo]

Thanks guys, added byte encryption.

-- Not sure if I did byte encryption the right way, someone inform me if it is properly done.

[Crash-Override]

@ OP will it support all character set ?