Definir tamanho mínimo de password num CISCO

O comando para indicar que temos de escolher uma palavra-chave com um tamanho mínimo de 10 caracteres é:

>enable

>config terminal

>security passwords min-length 10

Script para retirar os utilizadores dos logs dos ISAS agrupados por número de hits num dia.

Este script necessita de ter o logparser instalado. Ou no minimo a sua DLL registada.

Caminho onde está o Log: “E:\ISALOG~1\”
Nome dos Ficheiros têm de começar por: “ISALOG_”

' -----------------------------------------------'
' LogParser.vbs
' Script lê o conteudo do logs do ISA e coloca-os num ficheiroL.
' Autor Hugo Jorge Fernandes Rodrigues
' Versão 1.0 - 21 Setembro 2011 - Retira os utilizadores com mais hits por dia
'
'
' -----------------------------------------------'
 
Set oLogQuery = createobject("MSUtil.LogQuery")
Set oInput = createobject("MSUtil.logquery.W3CInputformat")
Set oOutput = createobject("MSUtil.logquery.CSVOutputFormat")


Dim DataInicial
Dim DataFinal
Dim LogPath
Dim sLogName
Dim sLogFileName
Dim UserName
Dim strDiaInicial

Dim strMesInicial
Dim strAnoInicial
 
DataInicial = InputBox ("Qual a data Inicial para pesquisa. Formato: DD-MM-AAAA","Dia Inicio", date())


DataFinal = InputBox ("Qual a data de fim da pesquisa. Formato: DD-MM-AAAA","Dia de FIM", date())

Datafinal = CDate(datafinal)
Datainicial = CDate(dataInicial)


do while datainicial <= datafinal
strDiaInicial = DatePart("d",DataInicial)
if len(strDiaInicial) <2 then
strDiaInicial = "0" & strDiaInicial
end if
strMesInicial = cstr(DatePart("m",DataInicial))
if len(strMesInicial) <2 then
strMesInicial = "0" & strMesInicial
end if
strAnoInicial = cstr(DatePart("yyyy",DataInicial))
sLogFileName = strAnoInicial & strMesInicial & strDiaInicial
LogPath = "E:\ISALOG~1\"
sLogName = "ISALOG_" & sLogFileName & "*.w3c"
strsqlbyIPAddress = "Select count(cs-username) as UserCount, cs-username INTO e:\LogParser\" & sLogFileName & ".csv FROM " & logPath & sLogName & " Group by cs-username"
oLogQuery.ExecuteBatch strsqlbyIPAddress, oInput, oOutput
datainicial = DateAdd("d",1,datainicial)
loop

MsgBox("FIM")

Script para Carregar uma “Rule Set” de uma regra pertencente a um Array de ISA servers.

Ficheiro de dados está em: c:\Export.txt, O nome da “Rule Set” é BadsitesVarios. Primeiro o script apaga os dados da “rule set” só depois é que preenche com os novos.

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Export.txt", ForReading)
Dim limpa
Dim root
set root = CreateObject("FPC.Root")
Dim urlSets
Dim urlSet
Dim ruleElements
Dim CurArray


Set CurArray = root.Enterprise
Set urlSets = CurArray.RuleElements.URLSets

Set urlset = URLSets.item("BadsitesVarios")

Const ForReading = 1

Dim arrFileLines()

 i = 0 
Do Until objFile.AtEndOfStream 
     Redim Preserve arrFileLines(i)
     arrFileLines(i) = objFile.ReadLine
     i = i + 1 

Loop

objFile.Close

Limpa = DeleteAllUrlsInUrlSet("BadsitesVarios") 

if limpa = false then 

    wscript.echo "Não Foi apagado nada" 

    wscript.close 

end if 

For Each strLine in arrFileLines 
      on error resume next 
      urlset.add strLine 
      If Err.Number = 421 Then Err.Clear 'URL Set already exists.
      End if 

Next 

urlset.save
wscript.echo "Adicionado" 

Function DeleteAllUrlsInUrlSet(sUrlSetName) 
      Dim oFPC 'Root COM object for ISA admin. 
      Dim oIsaArray 'The local ISA Server or ISA Array. 
      Dim cUrlSets 'FPCURLSets collection. 
      Dim cUrlSet 'FPCURLSet collection. 
      Dim sUrl
      Set oFPC = CreateObject("FPC.Root")
      Set oIsaArray = oFPC.Enterprise 
      Set cUrlSets = oIsaArray.RuleElements.URLSets 
      Set cUrlSet = cUrlSets.Item(sUrlSetName)
      For Each sUrl In cUrlSet
            cUrlSet.Remove(sUrl) 

      Next 

      cUrlSet.Save 

      If Err.Number = 0 Then DeleteAllUrlsInUrlSet = True Else DeleteAllUrlsInUrlSet = False 

End Function

Exemplo de utilização do google para pesquisas avançadas…

O Google é um dos motores de busca mais usados actualmente.

Isto faz com que grande parte da internet exista indexada no Google, só temos é de saber procurar.

Aqui ficam uns exemplos de como procurar algumas coisas.

Como a segurança não é uma coisa que preocupe um universo vasto de pessoas encontramos por exemplo ligações para camaras de vídeo sem qualquer protecção. Basta apenas colocar este exemplo de pesquisa no Google:

inurl:”viewerframe?mode=motion”

Opções de movimentação da camara:

intitle:”Live View / – AXIS”

Uma coisa que costuma também ter muita informação possível de explorar são os C.V.. Estes podem ser encontrados usando pesquisas 

del.icio.us Tags: Google hacks

do tipo:

intitle:”curriculum vitae” “phone * * *” “address *” “e-mail”

Outra ideia seria a pesquisa de emails em ficheiros de excel, para isso podemos usar a seguinte string:

filetype:xls inurl:”email.xls”

Informação bancária!

intitle:index.of finances.xls

Uns álbuns de musica!

“?intitle:index.of?mp3 eminem“

Agora que já sabem algumas das formas de pesquisa avançada do Google para quê usar trackers ou mesmo torrents para retirar filmes da net. Há sempre alguém  que já colocou o filme algures na net num link indexado pelo  google …