SimpleHasher by Me

Public Function Hasher(ByVal input As String, ByVal key As String) As String
        Try
            Dim out As New System.Text.StringBuilder
            For Each c As Char In input
                Dim temp As Integer = Asc(c) + 728
                out.Append(temp.ToString)
            Next
            Return out.ToString + / key.Length / 2 - out.ToString / key.Length * 2
        Catch
            Return " "
        End Try
    End Function