Pasted

'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