Indetectables

Bueno, esta es una pequeña funcion que necesitaba para un ofuscador, lo que hace es buscar una String delimitada por una cadena en concreto y sustituir esta al principio y final de la string.

Function sReplace(sText As String, sSearch As String, sFirstString As String, sLastString As String) As String
    Dim sString As String, sMidString As String
    Dim sSemaphore As Boolean
    Dim i As Integer

    sSemaphore = False

    For i = 1 To Len(sText)
    sMidString = Mid(sText, i, Len(sSearch))
        If sMidString = sSearch Then
            If sSemaphore = False Then
                sString = sFirstString & sMidString
                sSemaphore = True
            Else
                sString = sString & sMidString & sLastString
                sReplace = sReplace & sString
                sSemaphore = False
            End If
        Else
            If sSemaphore = True Then
                sString = sString & sMidString
            Else
                sReplace = sReplace & sMidString
            End If
        End If
    Next i
End Function