Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function Decrypt(StringToDecrypt As String) As String
- Dim builder As New StringBuilder()
- Dim index = 0
- While index < StringToDecrypt.Length
- Dim length = Integer.Parse(StringToDecrypt(index).ToString())
- Dim strConvertToBase = StringToDecrypt.Substring(index+1, length)
- index += 1 + length
- Dim dblWithRandom As Double = 0
- For intCountPower = 0 To length - 1
- 'strConvertToBase = strConvertToBase & Chr(Int(dblWithRandom / (93 ^ intCountPower)) + 33)
- 'dblWithRandom = dblWithRandom Mod 93 ^ intCountPower
- Dim newRandom = (Asc(strConvertToBase(strConvertToBase.Length - 1 - intCountPower)) - 33) * (93 ^ intCountPower)
- dblWithRandom += newRandom
- Next
- 'dblWithRandom = Mid(dblMultiRandom, 1, 2) & intRandomNumber & Mid(dblMultiRandom, 3, 2)
- Dim withRandomString As String = dblWithRandom.ToString()
- Dim multiRandom = Integer.Parse(withRandomString.Substring(0, 2) & withRandomString.Substring(withRandomString.Length - 2))
- Dim intRandomNumber = Integer.Parse(withRandomString.Substring(2, withRandomString.Length - 4))
- 'dblMultiRandom = intAddNinetyNine * intRandomNumber
- Dim addNinetyNine = multiRandom / intRandomNumber
- 'intAddNinetyNine = intInverseAsc + 99
- Dim inverseAsc = addNinetyNine - 99
- 'intInverseAsc = 256 - intAscCurrentChar
- Dim ascCurrentChar = 256 - inverseAsc
- 'intAscCurrentChar = Asc(strCurrentChar)
- Dim currentChar = Chr(ascCurrentChar)
- 'strCurrentChar = Mid(StringToEncrypt, dblCountLength, 1)
- builder.Append(currentChar)
- End While
- return builder.ToString()
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement