CleanCommand

gistfile1.txt

    Public Function CleanCommand(ByVal sString As String) As String

        ' Cleans up commandline params that try to break up strings to bypass detection with ASCII > 127 and Nop characters like "^"
        Dim sByteArray() As Byte = System.Text.Encoding.Default.GetBytes(sString)
        Dim sResult As String = ""

        For n = 0 To UBound(sByteArray)
            If sByteArray(n) <= 127 And sByteArray(n) > 0 Then
                sResult = sResult & Chr(sByteArray(n))
            End If
        Next

        sByteArray = Nothing

        Return sResult.Replace("^", "")

    End Function