Remplazar caracteres de un string

miket — Fri, 30 Nov 2012 17:42:11 GMT

Function ReplaceString(ByVal strSearch As String, ByVal strSearchFor As String, ByVal strReplaceWith As String) As String
        Try
            '--> Busca la variable del strSearch para strSearchFor y la substituye por el strReplaceWith.
            Dim lngFoundLoc As Long    ' Location of match.
            Dim lngLenRemove As Long   ' Length of string being replaced.
            '--> Fije la longitud del texto original para saltar.
            lngLenRemove = Len(strSearchFor)
            '--> Fije la localización match.
            lngFoundLoc = InStr(1, strSearch, strSearchFor)
            '--> Si strSearchFor isn't encontrado en vuelta justa del strSearch la secuencia original.
            If lngFoundLoc = 0 Then
                ReplaceString = strSearch
                '--> Si se encuentra el match, vuelva la secuencia original hasta la localización del match, concatene el nuevo texto, y busque el resto de la secuencia recurrentemente para fósforos adicionales.
            Else
                ReplaceString = Left(strSearch, lngFoundLoc - 1) & _
                    strReplaceWith & _
                    ReplaceString(Mid(strSearch, lngFoundLoc + _
                    lngLenRemove), strSearchFor, strReplaceWith)
            End If
exit_ReplaceString:
            Exit Function
            '--> Imprima el error para eliminar errores de la ventana y de la pregunta de la interrupción de don't.

        Catch ex As Exception
            MsgBox("Error Replacing String """ & _
                strSearchFor & """ with """ & _
                strReplaceWith & """ in text """ & _
                strSearch & """")
            '--> Si hay un error, vuelva la secuencia original y salga de la función.
            ReplaceString = strSearch

        End Try
    End Function

Esta funcion permite Encriptar y Desencriptar datos

miket — Fri, 30 Nov 2012 17:40:01 GMT

'--> Esta funcion permite desencriptar datos que fueron encriptados con la funcion encripta.
    Public Function Decrypta(ByVal cTexto As String, ByVal nLlave As Integer) As String
        Dim nLargo As Long
        Dim n As Long
        Dim cCaracter As String
        Dim NewCadena As String
        Dim NewNumero As Long

        nLargo = Len(cTexto)
        NewCadena = ""
        NewNumero = (nLlave / 256) * 4

        For n = 1 To nLargo
            cCaracter = Chr(Asc(Mid(cTexto, n, 1)) - NewNumero)
            NewCadena = NewCadena & cCaracter
        Next
        Decrypta = NewCadena
    End Function

    '--> Esta función combierte una cadena de caracteres en caracteres encriptados deacuerdo a una expreción númerica dada
    Public Function Encrypta(ByVal cTexto As String, ByVal nLlave As Integer) As String
        Dim nLargo As Long
        Dim n As Long
        Dim cCaracter As String
        Dim NewCadena As String
        Dim NewNumero As Long

        On Error Resume Next
        nLargo = Len(cTexto)
        NewCadena = ""
        NewNumero = (nLlave / 256) * 4
        For n = 1 To nLargo
            cCaracter = Chr(Asc(Mid(cTexto, n, 1)) + NewNumero)
            NewCadena = NewCadena & cCaracter
        Next
        Encrypta = NewCadena
    End Function

Generador de passwords visual .net

miket — Fri, 30 Nov 2012 17:37:55 GMT

    Public datname, bakname, tstream As Object, tempFileName As Object, strES As Object
    Public optio As Integer
    Public strOpt As Object, strFileEnd As Object
    Public i As Long
    Public j, k, l As Integer
    Public dig_number As Long
    Public row_number As Long
    Public strTempNumber, strRndNumber As Object, strElse$, ESPassword$
    Public min, max As Integer
    Public rndNumber, rndElse, diffNumber, sumNumber As Integer
    Public Lines As Long
    Public ES As Boolean

    Public Function GeneratePassword( _
      ByVal intLength As Integer, _
      Optional ByVal bolWithNumber As Boolean = False, Optional ByVal bolWithUpperCase As Boolean = False, Optional ByVal bolWithAll As Boolean = False, Optional ByVal bolOnlyUpperCase As Boolean = False, Optional ByVal bolOnlyLowerCase As Boolean = False) As String
        On Error GoTo fehler
        Dim intCharType As Integer
        Dim strTempLetter As String = ""
        Dim intTempNumber As Integer
        Dim strPassword As String = ""
        Dim J As Integer

        For j = 1 To intLength

            If bolWithNumber = True And bolWithAll = False And bolWithUpperCase = True Then
                intCharType = GetRandomNumber(1, 3)
            ElseIf bolWithNumber = True And bolWithAll = True Then
                intCharType = GetRandomNumber(1, 4)
            ElseIf bolWithNumber = False And bolWithUpperCase = True And bolWithAll = False Then
                intCharType = GetRandomNumber(1, 2)
            ElseIf bolWithNumber = False And bolWithUpperCase = False And bolWithAll = False Then
                intCharType = 2
            ElseIf bolWithNumber = False And bolWithUpperCase = True And bolWithAll = False Then
                intCharType = 1
            ElseIf bolWithNumber = True And bolWithUpperCase = False And bolWithAll = False Then
                intCharType = GetRandomNumber(2, 3)
            End If

            Select Case intCharType

                'Grossbuchstaben
                Case 1
                    min = 65
                    max = 90
                    intTempNumber = GetRandomNumber(min, max)

                    'Kleinbuchstaben
                Case 2
                    min = 97
                    max = 122
                    intTempNumber = GetRandomNumber(min, max)

                    'Zahlen
                Case 3
                    min = 48
                    max = 57
                    intTempNumber = GetRandomNumber(min, max)

                    'All
                Case 4
                    min = 33
                    max = 126
                    intTempNumber = GetRandomNumber(min, max)

            End Select

            strTempLetter = Chr(intTempNumber)

            rndNumber = Int((max - min) * Rnd() + min)
            If rndNumber < min Then rndNumber = (min)
            If rndNumber > max Then rndNumber = (max)

            strRndNumber = Int(((dig_number / 2) + 1) * Rnd() + 1)

            diffNumber = (intTempNumber - strRndNumber)
            If diffNumber < min Then diffNumber = (min)
            If diffNumber > max Then diffNumber = (max)

            sumNumber = (intTempNumber + strRndNumber)
            If sumNumber < min Then sumNumber = (min)
            If sumNumber > max Then sumNumber = (max)

            If intTempNumber = min Then
                strTempNumber = Chr(Int(sumNumber))
            ElseIf intTempNumber = max Then
                strTempNumber = Chr(Int(diffNumber))
            Else
                strTempNumber = Chr(rndNumber)
            End If

            rndElse = Int(5 * Rnd() + 1)
            strElse = Chr(Int((max / 2) + (min / 2) - (rndElse - 2)))

            k = Len(strPassword) + 1
            l = (dig_number / strRndNumber)

            'Debug.Print min, rndNumber, strRNumber, intTempNumber, max

            If k < l And k <> dig_number Then

                strPassword = strPassword & strTempLetter
                'Debug.Print "case 1 - " & strPassword
                'Debug.Print k, l, dig_number
            ElseIf l < k And k <> dig_number Then

                strPassword = strPassword & strTempNumber
                'Debug.Print "case 2 - " & strPassword; ""
                'Debug.Print k, l, dig_number
            ElseIf k = dig_number Then

                strPassword = strPassword & Left(Left(strPassword, strRndNumber), 1)
                'Debug.Print "case 3 - " & strPassword; ""
                'Debug.Print k, l, dig_number
            Else

                strPassword = strPassword & strElse
                'Debug.Print "case else - " & strPassword; ""
                'Debug.Print k, l, dig_number
            End If

        Next j

        If bolOnlyUpperCase = True Then
            GeneratePassword = UCase(strPassword)
        ElseIf bolOnlyLowerCase = True Then
            GeneratePassword = LCase(strPassword)
        Else
            GeneratePassword = strPassword
        End If

        Exit Function
fehler:
        Err.Clear()
        MsgBox("Error : " & Err.Number & " " & Err.Description & " ! ", vbCritical + vbOKOnly, "Oooops ")
    End Function

    Public Function GetRandomNumber(ByVal intLower As Integer, _
       ByVal intUpper As Integer) As Integer

        Randomize()
        GetRandomNumber = Int((intUpper - intLower + 1) * Rnd + intLower)
    End Function

    Public Function GeneratePassword_ES( _
      ByVal intLength As Integer, Optional ByVal bolWithNumber As Boolean = False, Optional ByVal bolWithUpperCase As Boolean = False, Optional ByVal bolWithAll As Boolean = False, Optional ByVal bolOnlyUpperCase As Boolean = False, Optional ByVal bolOnlyLowerCase As Boolean = False) As String
        On Error GoTo fehler
        Dim intCharType As Integer
        Dim strTempLetter As String
        Dim intTempNumber As Integer
        Dim strPassword As String = ""
        Dim j As Integer

        GeneratePassword_ES = ""
        For j = 1 To intLength

            If bolWithNumber = True And bolWithAll = False And bolWithUpperCase = True Then
                intCharType = GetRandomNumber(1, 3)
            ElseIf bolWithNumber = True And bolWithAll = True Then
                intCharType = GetRandomNumber(1, 4)
            ElseIf bolWithNumber = False And bolWithUpperCase = True And bolWithAll = False Then
                intCharType = GetRandomNumber(1, 2)
            ElseIf bolWithNumber = False And bolWithUpperCase = False And bolWithAll = False Then
                intCharType = 2
            ElseIf bolWithNumber = False And bolWithUpperCase = True And bolWithAll = False Then
                intCharType = 1
            ElseIf bolWithNumber = True And bolWithUpperCase = False And bolWithAll = False Then
                intCharType = GetRandomNumber(2, 3)
            End If

            Select Case intCharType

                'Grossbuchstaben
                Case 1
                    min = 65
                    max = 90
                    intTempNumber = GetRandomNumber(min, max)

                    'Kleinbuchstaben
                Case 2
                    min = 97
                    max = 122
                    intTempNumber = GetRandomNumber(min, max)

                    'Zahlen
                Case 3
                    min = 48
                    max = 57
                    intTempNumber = GetRandomNumber(min, max)

                    'All
                Case 4
                    min = 33
                    max = 126
                    intTempNumber = GetRandomNumber(min, max)

            End Select

            strTempLetter = Chr(intTempNumber)

            rndNumber = Int((max - min) * Rnd() + min)
            If rndNumber < min Then rndNumber = (min)
            If rndNumber > max Then rndNumber = (max)

            strRndNumber = Int(((dig_number / 2) + 1) * Rnd() + 1)

            diffNumber = (intTempNumber - strRndNumber)
            If diffNumber < min Then diffNumber = (min)
            If diffNumber > max Then diffNumber = (max)

            sumNumber = (intTempNumber + strRndNumber)
            If sumNumber < min Then sumNumber = (min)
            If sumNumber > max Then sumNumber = (max)

            If intTempNumber = min Then
                strTempNumber = Chr(Int(sumNumber))
            ElseIf intTempNumber = max Then
                strTempNumber = Chr(Int(diffNumber))
            Else
                strTempNumber = Chr(rndNumber)
            End If

            rndElse = Int(5 * Rnd() + 1)
            strElse = Chr(Int((max / 2) + (min / 2) - (rndElse - 2)))

            k = Len(strPassword) + 1
            l = (dig_number / strRndNumber)

            'Debug.Print min, rndNumber, strRNumber, intTempNumber, max

            If k < l And k <> dig_number Then

                strPassword = strPassword & strTempLetter
                'Debug.Print "case 1 - " & strPassword
                'Debug.Print k, l, dig_number
            ElseIf l < k And k <> dig_number Then

                strPassword = strPassword & strTempNumber
                'Debug.Print "case 2 - " & strPassword; ""
                'Debug.Print k, l, dig_number
            ElseIf k = dig_number Then

                strPassword = strPassword & Left(Left(strPassword, strRndNumber), 1)
                'Debug.Print "case 3 - " & strPassword; ""
                'Debug.Print k, l, dig_number
            Else

                strPassword = strPassword & strElse
                'Debug.Print "case else - " & strPassword; ""
                'Debug.Print k, l, dig_number
            End If

            If bolOnlyUpperCase = True Then
                GeneratePassword_ES = UCase(strPassword)
            ElseIf bolOnlyLowerCase = True Then
                GeneratePassword_ES = LCase(strPassword)
            Else
                GeneratePassword_ES = strPassword
            End If

            ESPassword = strPassword
            tstream.WriteLine(ESPassword)

        Next

        Exit Function

fehler:
        Err.Clear()
        MsgBox("Error : " & Err.Number & " " & Err.Description & " ! ", vbCritical + vbOKOnly, "Oooops ")

    End Function

Set focus en un webform visual .net

miket — Fri, 30 Nov 2012 17:36:07 GMT

    Public Sub mySetFocus(ByVal sPage As Page, ByVal ctrl As String)
        Dim f As StringBuilder = New StringBuilder()
        f.Append("

nientiendo

Remplazar caracteres de un string

Esta funcion permite Encriptar y Desencriptar datos

Generador de passwords visual .net

Set focus en un webform visual .net