• Home
 · 
• Miscellaneous
 · 
• Encrypts text using a mathematical equation based on the length of the text entered. It is extremel

Encrypts text using a mathematical equation based on the length of the text entered. It is extremel

Encrypts text using a mathematical equation based on the length of the text entered. It is extremely simple and easy to break.

Rate Encrypts text using a mathematical equation based on the length of the text entered. It is extremel

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Public Function hyperionic(ByVal Plains As String)
hyrule = ""
hyrule = Val(Len(Plains) + 4 / (Len(Plains) + 7 * 3 - 7) / 50)
    Dim Letter As String
    For I = 1 To Len(Plains)
        Letter = Mid$(Plains, I, 1)
        Mid$(Plains, I, 1) = Chr(Asc(Letter) + hyrule)
    Next I
    hyperionic = Plains
End Function
' decryption
Public Function Decrypt(ByVal hyperioniced As String)
hyrule = ""
hyrule = Val(Len(hyperioniced) + 4 / (Len(hyperioniced) + 7 * 3 - 7) / 50)
Dim Letter As String
    For I = 1 To Len(hyperioniced)
        Letter = Mid$(hyperioniced, I, 1)
        Mid$(hyperioniced, I, 1) = Chr(Asc(Letter) - hyrule)
    Next I
    Decrypt = hyperioniced
End Function