Pesquisadores de Segurança | 21 - Mecanismos de Busca de Dados da Internet

Pesquisadores de Segurança | 21 - Mecanismos de Busca de Dados da Internet


Os Mecanismos de Busca de Dados se tornaram ferramentas essenciais no século 21 para todos, incluindo profissionais de segurança de TI.

Precisamos de mecanismos de pesquisa como o Google para verificar uma análise de produto e reservar hotéis para encontrar o sinônimo de uma palavra.

Olhando para o enorme sucesso do Google, agora você pode encontrar tantos mecanismos de pesquisa hoje em dia, incluindo Safari, Bing, Yandex, DuckDuckGo, etc.

Mas você acha que todas as informações estão disponíveis nesses mecanismos de pesquisa disponíveis publicamente?

A resposta é não.

  • Então, o que fará se precisar encontrar as informações essenciais para a segurança da sua empresa ou site?
  • E se os dados não estiverem disponíveis nesses mecanismos de pesquisa?

Não precisa franzir a testa, a solução existe!

Existem mecanismos de pesquisa específicos equipados com ferramentas projetadas principalmente para atender às necessidades das equipes de segurança cibernética e dos pesquisadores de segurança. Esses mecanismos de pesquisa ajudam você a procurar informações valiosas que podem ser aproveitadas em suas operações de segurança.

Você pode usá-los para encontrar dispositivos de Internet expostos, rastrear ameaças, analisar vulnerabilidades , preparar-se para simulações de phishing, descobrir violações de segurança de rede e muito mais.


Comente e compartilhe este artigo!


brazilsalesforceeffectiveness@gmail.com

MYSQL Cheatsheet - Join Types

MY SQL Cheatsheet - Join Types

Comente e compartilhe este artigo!


brazilsalesforceeffectiveness@gmail.com

MS Access | Detectando e Extraindo Caracteres Invisíveis - UDF for Excel and Access that Extracts all Invisible and Special Characters

MS Access | Detectando e Extraindo Caracteres Invisíveis - UDF for Excel and Access that Extracts all Invisible and Special Characters

Não é raro precisarmos extrair caracteres invisíveis de uma string. E isso pode tomar um tempo enorme até descobrirmos qual é o real problema.


Conheça e faça download de uma planilha pronta do Excel que calcula o TEMPO e a DISTÂNCIA de viagem usando a API do Google Maps


Alguns caracteres especiais não podem ser vistos, pois atrapalham no momento em que agrupamos dados. 

Como retirá-los?

Essa função abaixo foi melhorada, tem o escopo ampliado para pegar vários desses caracteres:

Public Function ExtractInviChars (strCk As String, Optional strRepWith As String = "") As String

    '   co-Author: André Bernardes

    '        Date: 16.08.22

    ' Description: Extrai caracters invisíveis.

    ' Caracteres de nome de arquivo ilegais incluídos numa string padrão, entre outros, são: ? [ ] /  = + < > :; * " , '

    ' MS EXCEL: A função TIRAR foi desenvolvida para remover os

    ' 32 primeiros caracteres não imprimíveis no código ASCII

    ' de 7 bits (valores de 0 a 31) do texto. O conjunto de

    ' caracteres Unicode contém outros caracteres não imprimíveis

    ' (valores 127, 129, 141, 143, 144 e 157). Por si própria, a

    ' função TIRAR NÃO remove esses caracteres adicionais não

    ' imprimíveis.

    'From http://www.utteraccess.com/wiki/index.php?title=Strip_Illegal_Characters&diff=4158&oldid=4156

    On Error GoTo StripIllErr 

    Dim intI As Integer

    Dim intPassedString As Integer

    Dim intCheckString As Integer

    Dim strChar As String

    Dim strIllegalChars As String

    Dim intReplaceLen As Integer

    If IsNull(strCk) Then Exit Function

    'Adicione ou remova todos os caracteres que precisar na string abaixo que servirá de base comparativa:

    Let strIllegalChars = "?[]/=+<>:;,*-" & Chr(34) & Chr(39) & Chr(32) _

                        & Chr(0) & Chr(1) & Chr(2) & Chr(3) & Chr(4) & Chr(5) & Chr(6) & Chr(7) & Chr(8) _

                        & Chr(9) & Chr(10) & Chr(11) & Chr(12) & Chr(13) & Chr(14) & Chr(15) & Chr(16) _

                        & Chr(17) & Chr(18) & Chr(19) & Chr(20) & Chr(21) & Chr(22) & Chr(23) & Chr(24) _

                        & Chr(25) & Chr(26) & Chr(27) & Chr(28) & Chr(29) & Chr(30) & Chr(31) & Chr(127) _

                        & Chr(129) & Chr(141) & Chr(143) & Chr(144) & Chr(157)

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _

                        '& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr()

                                               

    Let intPassedString = Len(strCk)

    Let intCheckString = Len(strIllegalChars)

    Let intReplaceLen = Len(strRepWith)

    

    If intReplaceLen > 0 Then   'Caractere foi inserido para ser usado como caractere de substituição

    

        If intReplaceLen = 1 Then   'verifique se o caractere em si não é um caractere ilegal

        

            If InStr(strIllegalChars, strRepWith) > 0 Then

                MsgBox "Você não pode substituir um caractere ilegal por outro caractere ilegal", _

                       vbOKOnly + vbExclamation, "Caractere inválido"

                       

                Let fStripIllegal = strCk

                

                Exit Function

            End If

        Else   'apenas um caractere de substituição permitido

            MsgBox "Apenas um caractere é permitido como caractere de substituição", _

                   vbOKOnly + vbExclamation, "String de substituição inválida"

                   

            Let fStripIllegal = strCk

            

            Exit Function

            

        End If

    End If


    If intPassedString < intCheckString Then

        For intI = 1 To intCheckString

        

            Let strChar = Mid(strIllegalChars, intI, 1)

            

            If InStr(strCk, strChar) > 0 Then

                Let strCk = Replace(strCk, strChar, strRepWith)

            End If

            

        Next intI

    Else

        For intI = 1 To intPassedString

        

            Let strChar = Mid(strIllegalChars, intI, 1)

            

            If InStr(strCk, strChar) > 0 Then

                Let strCk = Replace(strCk, strChar, strRepWith)

            End If

            

        Next intI

    End If

    

    Let ExtractInviChars = Trim(strCk)

    

StripIllErrExit:

    Exit Function

    

StripIllErr:

    MsgBox "Ocorreu o seguinte erro: " & Err.Number & vbCrLf _

         & Err.Description, vbOKOnly + vbExclamation, "Erro inesperado..."

         

    Let fStripIllegal = strCk

    

    Resume StripIllErrExit

End Function


Comente e compartilhe este artigo!


brazilsalesforceeffectiveness@gmail.com

ESTADOS BRASILEIROS | Respectivas Capitais e Siglas - Por Região Geográfica

ESTADOS BRASILEIROS | Respectivas Capitais e Siglas - Por Região Geográfica


A divisão político-administrativa do Brasil

O Brasil possui seu território dividido em estados. Atualmente o país está dividido em 26 estados e um Distrito Federal. Os estados estão divididos em municípios.



 Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Comente e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com


Baixe as versões abaixo, salvando como MS Excel:


Talvez precise de uma tabela com todos os estados (UF):

Baixe também:
ESTADOS BRASILEIROS | Respectivas Capitais e Siglas - Por Região Geográfica

 

DOWNLOAD CSV: LISTA DOS MUNICÍPIOS BRASILEIROS | E Informações Adicionais 

DOWNLOAD CSV: LISTA DE ESTADOS BRASILEIROS | E Informações Adicionais

LISTA DE ESTADOS BRASILEIROS | Uso dos Respectivos Artigos Definidos


VBA Tips - Tabela ASCII - American Standard Code for Information Interchange, EBCDIC, UNICODE


Leia também:

eBook: Série DONUT PROJECT 2015: Projetos e Códigos de Visual Basic for Applications - Autor: André Luiz Bernardes  eBook: Série Top 10 Funções: Top 10 Funções VBA para o Microsoft Excel - Autor: André Luiz Bernardes

eBook: Série Funções Poderosas: 13 Funções Poderosas no MS Excel - Autor: André Luiz Bernardes  eBook: Série Visual Basic For Application: Criando Logs de acesso: Dicas e Códigos de Visual Basic for Applications - Autor: André Luiz Bernardes

eBook: Série VBA Tips: Rastrei seus Dashboards, Scorecards, Reports, Relatórios, Planilhas e Aplicações - Dicas e Códigos - Autor: André Luiz Bernardes  eBook: Série Data Science: Big Data, Como? - Autor: André Luiz Bernardes

eBook: Série Smarter Analytic: 5 Previsões de Big Data - Autor: André Luiz Bernardes


Aprenda outros códigos:

VBA Excel | Extraindo a Data de uma Célula com Data e Horário - Remove Date from Date and Time VBA Excel | Converta Tudo para Maiúscula - Convert to Upper CaseVBA Excel | Contando Palavras na Planilha - Word Count from Entire Worksheet VBA Excel | Removendo Decimais dos Números - Remove Decimals from Numbers

VBA Excel |  Multiplique todos os Valores por um Número - Multiply all the Values by a Number VBA Excel | Calculando a Raiz Cúbica - Calculate the Cube Root

VBA Excel | Adicionando Letras de A até Z - Add A-Z Alphabets in a Range VBA Excel | Convertendo Numerais Romanos em Arábicos - Convert Roman Numbers into Arabic Numbers

VBA Excel | Converta todos os Números Negativos em Positivos - Remove Negative Signs VBA Excel | Preencha com zeros as Células em Branco - Replace Blank Cells with Zeros



Aprenda ainda outros códigos:

DONUT PROJECT 2021 - VBA Function:  Como Rastrear o Google Maps (Coordenadas Geográficas) no VBA Excel?DONUT PROJECT 2021 - VBA Function:  Crie Acrônimos a partir de Strings de Texto

DONUT PROJECT 2021 - VBA Function:  Convertendo uma Matrix num Vetor - Convert Matrix to a Vector

DONUT PROJECT 2021 - VBA Function:  Como tornar o Formulário Transparente no MS Excel?

DONUT PROJECT 2021 - VBA Function:  Faça Buscas no Google a Partir da Célula do MS Excel - Search Google From a Cell

DONUT PROJECT 2021 - VBA Function:  Decompondo um Nome nas Dimensões de uma Matriz

DONUT PROJECT 2021 - VBA Function: Extraindo o Último Sobrenome de um Nome Completo ou a Última Palavra de uma Frase

DONUT PROJECT 2021 - VBA Function:  Extraindo o Segundo Nome de um Nome Completo ou a Segunda Palavra de uma Frase

DONUT PROJECT 2021 - VBA Function: Extraindo o Primeiro Nome ou  a Primeira Palavra de uma Frase

 

Série Piece of Cake:


Séries Donuts:

diHITT - Notícias