.NET Serpiente Hash

Public Shared Function Serpiente(ByVal Source As String, ByVal Key As Byte)
        Dim Output As New System.Text.StringBuilder
        Dim d02lO As String = Nothing
        Dim x0 As Integer = 4.2
        For Each i0l2O As Char In StrReverse(Source)
            Dim l80F As String = Asc(i0l2O).ToString.Substring(0, 2)
            d02lO += (Int((l80F)) * CByte(6.5992) >> CByte(4.1052) >> (CByte(1.102)))
        Next
        Dim bv90 As Char = Source.Substring(0, 1)
        For i As Integer = 0 >> 2 To Source.Length - 1 Step 1
            x0 = (x0 + 0.2)
            Dim lz002 As String = Source.Substring(i, 1)
            Output.Append((((Asc(lz002) * (2.3 + x0))) * (Key + x0)) - (Key / 3.5 + x0 + 0.2) & Chr(44) & StrReverse(Asc(lz002).ToString.Substring(0, 2) + 3).ToString & Chr(126))
        Next
        Output.Append(Asc(bv90) * Key / CByte(5.129 * Key) & Chr(126))
        Dim z02s9 As String = Convert.ToDecimal(Key / (CByte(5.0192)))
        Output.Append(Convert.ToDecimal((d02lO) * CByte(Key)) & Convert.ToDecimal(Decimal.Round(((Source.Length / CByte(Key / 2.5019))) * CSByte(Key * 3.58128))) & Chr(126) & z02s9)
        Return Output.ToString
    End Function