#Region " AES Decrypt "
 
       ' [ AES Decrypt Function ]
       '
       ' Examples :
       ' MsgBox(AES_Decrypt("cv/vYwpl51/dxbxSMNSPSg==", "Test_Password")) ' Result: Test_Text
 
       Public Function AES_Decrypt(ByVal input As String, ByVal pass As String) As String
           Dim AES As New System.Security.Cryptography.RijndaelManaged
           Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
           Dim decrypted As String = ""
           Try
               Dim hash(31) As Byte
               Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
               Array.Copy(temp, 0, hash, 0, 16)
               Array.Copy(temp, 0, hash, 15, 16)
               AES.Key = hash
               AES.Mode = Security.Cryptography.CipherMode.ECB
               Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
               Dim Buffer As Byte() = Convert.FromBase64String(input)
               decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
               Return decrypted
           Catch ex As Exception
               Return Nothing
           End Try
       End Function
 
    #End Region

        Dim str As String = "hola a todos <inicio>bienvenidos[fin] adios"
        Dim [RegEx] As New System.Text.RegularExpressions.Regex("<inicio>(.*)\[fin\]")
        MsgBox([RegEx].Match(str).Groups(1).ToString)
        ' Result: "bienvenidos"

        Dim str As String = "hola a todos <inicio>bienvenidos[fin] adios"
        Dim delimiter1 As String = "<inicio>", delimiter2 As String = "[fin]"
        MsgBox(Split(Split(str, delimiter1)(1), delimiter2)(0))

        Dim STR As String = "bienvenidos todos a mi nueva casa de color verde"
        Dim Delimitador_A As String = "todos"
        Dim Delimitador_B As String = "verde"
 
        STR = Split(STR, Delimitador_A, , CompareMethod.Text)(1) '  Aquí tomo todo lo que hay a la derecha del primer delimitador
        STR = Split(STR, Delimitador_B, , CompareMethod.Text)(0) ' Aquí tomo todo lo que hay a la izquierda del segundo delimitador
 
        MsgBox(STR) ' a mi nueva casa de color

#Region " Delimit_String Function "
 
    ' // By Elektro H@ker
    '
    ' USAGE:
    '
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "todos")) ' a mi nueva casa de color verde
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "todos", "verde")) ' a mi nueva casa de color
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "ToDoS", "VeRDe", True)) ' a mi nueva casa de color
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "ToDoS", "VeRDe", False)) ' False
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "verde", "todos", , "Left")) ' a mi nueva casa de color
 
    Private Function Delimit_String(ByVal STR As String, ByVal Delimiter_A As String, Optional ByVal Delimiter_B As String = Nothing, Optional ByVal Ignore_Case As Boolean = False, Optional ByVal Left_Or_Right As String = "Right")
        Dim Compare_Method As Integer = 0 ' Don't ignore case
        If Ignore_Case = True Then Compare_Method = 1 ' Ignore Case
 
        If Not Left_Or_Right.ToUpper = "LEFT" And Not Left_Or_Right.ToUpper = "RIGHT" Then Return False ' Returns false if the Left_Or_Right argument is in incorrect format
 
        Try
            If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(1) _
                Else If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(0)
 
            If Delimiter_B IsNot Nothing Then
                If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(0) _
                 Else If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(1)
            End If
 
            Return STR ' Returns the splitted string
 
        Catch
            Return False ' Returns false if the delimiter "A" or "B" can't be found (Index is out or fange)
        End Try
    End Function
 
#End Region