Function encode(ByVal trim As String, t As Integer) As String
Dim i As Integer
Dim count As Integer = trim.Length
Dim character As String
Dim str As String
For i = 0 To (count - 1)
character = trim.Substring(i, 1)
If character = "a" Then
str = str + (2 ^ count + t).ToString
End If
If character = "A" Then
str = str + (2 * count + count * t).ToString
End If
If character = "b" Then
str = str + (3 * count + t * 6).ToString
End If
If character = "B" Then
str = str + (4 + t).ToString
End If
If character = "c" Then
str = str + (5 * count + 7 * t).ToString
End If
If character = "C" Then
str = str + (1 + count).ToString
End If
If character = "d" Then
str = str + (CLng(t) * 3).ToString
End If
If character = "D" Then
str = str + (8).ToString
End If
If character = "e" Then
str = str + (3 ^ count).ToString
End If
If character = "E" Then
str = str + (4 * count).ToString
End If
If character = "f" Then
str = str + (3 + t).ToString
End If
If character = "F" Then
str = str + (count ^ 2).ToString
End If
If character = "g" Then
str = str + (14).ToString
End If
If character = "G" Then
str = str + (6 * count).ToString
End If
If character = "h" Then
str = str + (5 * count * t * 3).ToString
End If
If character = "H" Then
str = str + (18).ToString
End If
If character = "i" Then
str = str + (1).ToString
End If
If character = "I" Then
str = str + (count ^ 2).ToString
End If
If character = "j" Then
str = str + (2 * CLng(Math.Sqrt(count))).ToString
End If
If character = "J" Then
str = str + (count ^ 3).ToString
End If
If character = "k" Then
str = str + (2 * count ^ 3).ToString
End If
If character = "K" Then
str = str + (1 * CLng(Math.Sqrt(count + 2 * t))).ToString
End If
If character = "l" Then
str = str + (7 * CLng(Math.Sqrt(count + 5))).ToString
End If
If character = "L" Then
str = str + (1 + CLng(Math.Sqrt(count * 2))).ToString
End If
If character = "m" Then
str = str + (2 + CLng(Math.Sqrt(count * 3))).ToString
End If
If character = "M" Then
str = str + (7 + CLng(Math.Sqrt(count * 6 * t))).ToString
End If
If character = "n" Then
str = str + (8 + CLng(Math.Sqrt(count * 10))).ToString
End If
If character = "N" Then
str = str + (2 + CLng(Math.Sqrt(count + 2))).ToString
End If
If character = "o" Then
str = str + (99 + CLng(Math.Sqrt(count * 2))).ToString
End If
If character = "O" Then
str = str + (3 * CLng(Math.Sqrt(count * 2))).ToString
End If
If character = "p" Then
str = str + (3 + CLng(Math.Sqrt(count * 3))).ToString
End If
If character = "P" Then
str = str + (2 + CLng(Math.Sqrt(count * 9))).ToString
End If
If character = "q" Then
str = str + (count + CLng(Math.Sqrt(count * t * 2))).ToString
End If
If character = "Q" Then
str = str + (7 + CLng(Math.Sqrt(count * count + 3))).ToString
End If
If character = "r" Then
str = str + (51 + CLng(Math.Sqrt(count * 2))).ToString
End If
If character = "R" Then
str = str + (11 + CLng(Math.Sqrt(count * 25))).ToString
End If
If character = "s" Then
str = str + (3 ^ (count + 1)).ToString
End If
If character = "S" Then
str = str + (count * count * 31).ToString
End If
If character = "t" Then
str = str + (17).ToString
End If
If character = "T" Then
str = str + (CLng(t + 9) * 2).ToString
End If
If character = "u" Then
str = str + (56).ToString
End If
If character = "U" Then
str = str + (12 * count).ToString
End If
If character = "v" Then
str = str + (count).ToString
End If
If character = "V" Then
str = str + (7 ^ (count - 1)).ToString
End If
If character = "w" Then
str = str + (33 * count).ToString
End If
If character = "W" Then
str = str + (32 * count).ToString
End If
If character = "x" Then
str = str + (19 * count).ToString
End If
If character = "X" Then
str = str + (6).ToString
End If
If character = "y" Then
str = str + (CLng(120 / count)).ToString
End If
If character = "Y" Then
str = str + (CLng(180 / count)).ToString
End If
If character = "z" Then
str = str + (CLng(1120 / count)).ToString
End If
If character = "Z" Then
str = str + (CLng(268 / count)).ToString
End If
If character = "0" Then
str = str + (CLng(1265 / count)).ToString
End If
If character = "1" Then
str = str + (CLng(120 / count) + 1).ToString
End If
If character = "2" Then
str = str + (CLng(120 / count) + 15).ToString
End If
If character = "3" Then
str = str + (CLng(120 / count) * 3).ToString
End If
If character = "4" Then
str = str + (CLng(120 / count) * 5).ToString
End If
If character = "5" Then
str = str + (CLng(1320 / count) + 7).ToString
End If
If character = "6" Then
str = str + (CLng(122 / count) + 3).ToString
End If
If character = "7" Then
str = str + (CLng(120 / count) + count).ToString
End If
If character = "8" Then
str = str + (CLng(1208 / count)).ToString
End If
If character = "9" Then
str = str + (CLng(120 / count) + 123).ToString
End If
str = str + (CLng(t * i)).ToString
Next
Return str
End Function