by Anonymous (267 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 6th May 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Encrypts text using a mathematical equation based on the length of the text entered. It is extremely simple and easy to break.
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
No comments have been posted about Encrypts text using a mathematical equation based on the length of the text entered. It is extremel. Why not be the first to post a comment about Encrypts text using a mathematical equation based on the length of the text entered. It is extremel.