BBB.org Email Obfuscation

'BBB.ORG EMAIL OBFUSCTAION

Imports System.Text

Public Class Bbb
    Public Shared Function ObfuscateText(coded As String, key As String) As String
        Dim shift As Integer = coded.Length
        Dim keyLength As Integer = key.Length
        Dim index As Integer
        Dim sb As New StringBuilder

        For i As Integer = 0 To shift - 1
            index = key.IndexOf(coded(i))
            If index = -1 Then
                sb.Append(coded(i))
            Else
                sb.Append(key((index - shift + keyLength) Mod keyLength))
            End If
        Next i

        Return sb.tostring
    End Function
End Class