.NET [Vb.Net] Pr0t0typ3s String Functions Megathread [Encoding/Cipher/Encryption/Hash]

Code

Public Function ROT13(ByVal input As String) As String

  Dim out As New System.Text.StringBuilder

  For i As Integer = 0 To input.Length - 1

    out.Append(Chr(Asc(input(i)) Xor 13)) '??

  Next

  Return out.ToString

    End Function

Code

Public Function ROT13Encode(ByVal InputText As String) As String

  Dim i As Integer

  Dim CurrentCharacter As Char

  Dim CurrentCharacterCode As Integer

  Dim EncodedText As String = ""



  'Iterate through the length of the input parameter  

  For i = 0 To InputText.Length - 1

    'Convert the current character to a char  

    CurrentCharacter = System.Convert.ToChar(InputText.Substring(i, 1))



    'Get the character code of the current character  

    CurrentCharacterCode = Microsoft.VisualBasic.Asc(CurrentCharacter)



    'Modify the character code of the character, - this  

    'so that "a" becomes "n", "z" becomes "m", "N" becomes "Y" and so on  

    If CurrentCharacterCode >= 97 And CurrentCharacterCode <= 109 Then

    CurrentCharacterCode = CurrentCharacterCode + 13



    Else

    If CurrentCharacterCode >= 110 And CurrentCharacterCode <= 122 Then

    CurrentCharacterCode = CurrentCharacterCode - 13



    Else

    If CurrentCharacterCode >= 65 And CurrentCharacterCode <= 77 Then

    CurrentCharacterCode = CurrentCharacterCode + 13



    Else

    If CurrentCharacterCode >= 78 And CurrentCharacterCode <= 90 Then

    CurrentCharacterCode = CurrentCharacterCode - 13

    End If

    End If

    End If 'Add the current character to the string to be returned

    End If

    EncodedText = EncodedText + Microsoft.VisualBasic.ChrW(CurrentCharacterCode)

  Next i



  Return EncodedText

    End Function 'ROT13Encode

Code

Public Function MD5Hash(ByVal input As String) As String

  Dim MD5 As New System.Security.Cryptography.MD5CryptoServiceProvider

  Dim Data As Byte()

  Dim Result As Byte()

  Dim Res As String = ""

  Dim Tmp As String = ""

  Data = System.Text.Encoding.ASCII.GetBytes(input)

  Result = MD5.ComputeHash(Data)

  For i As Integer = 0 To Result.Length - 1

    Tmp = Hex(Result(i))

    If Len(Tmp) = 1 Then Tmp = "0" & Tmp

    Res += Tmp

  Next

  Return Res

    End Function

Code

Private Shared Function MD5String(str As String) As String

    Return BitConverter.ToString(MD5.Create().ComputeHash(Encoding.ASCII.GetBytes(str))).Replace("-", "")

End Function