Skip to content

Instantly share code, notes, and snippets.

View fabioadrianosoares's full-sized avatar

Fabio Soares fabioadrianosoares

  • sao paulo, brazil
View GitHub Profile
@fabioadrianosoares
fabioadrianosoares / gist:4059551
Created November 12, 2012 14:00
PLSQL - Criar colecao e percorrer lista
DECLARE
TYPE DEF_REGISTRO IS RECORD (CODIGO INT, DESCRICAO VARCHAR2(100));
TYPE DEF_TABELA IS TABLE OF DEF_REGISTRO;
TABELA DEF_TABELA := DEF_TABELA();
BEGIN
TABELA.EXTEND(1);
TABELA(TABELA.LAST).CODIGO := 1;
TABELA(TABELA.LAST).DESCRICAO := 'UM';
TABELA.EXTEND(1);
@fabioadrianosoares
fabioadrianosoares / xorg.conf
Created November 13, 2012 03:01
xorg.conf para funcionar sys 771/671 no debian squeeze
Section "Device"
Identifier "Generic Video Card"
Boardname "sis"
Busid "PCI:1:0:0"
Driver "vesa"
Screen 0
Option "UseFBDev" "true"
Option "DPMS"
Option "NoAccel"
Option "ShadowFB"
@fabioadrianosoares
fabioadrianosoares / gist:4136673
Created November 23, 2012 18:01
Criar regra iptables para endereco que falhar mais de 10 vezes
## [root@host]# cat procurar.sh
#! /bin/bash
tail -1000 /var/log/secure \
| sed -n -e '/Failed/p' \
| sed -e 's/.\+from //' -e 's/ port [0-9].\+//' \
| awk '{Ip[$1]++;} END {for (var in Ip) if (Ip[var] > 10) print var;}' \
| xargs -I "{}" /root/bloquear/tratar_ip.sh "{}"
@fabioadrianosoares
fabioadrianosoares / lermensagem.pl
Created December 5, 2012 14:02
Ler mensagem de email
use strict;
use warnings;
use feature 'say';
use Data::Dumper;
use File::Slurp;
use Email::Simple;
sub message_text {
message_seek (@_, 'plain');
}
@fabioadrianosoares
fabioadrianosoares / servidor.pl
Created December 5, 2012 18:49
Servidor SMTP de teste
use strict;
use warnings;
use feature 'say';
use Carp;
use Data::Dumper;
use Socket;
use Net::SMTP::Server;
use Net::SMTP::Server::Client;
@fabioadrianosoares
fabioadrianosoares / atividade.pl
Created February 8, 2013 12:26
Processar arquivo com atividades no formato: "hh:mm dd/mm/yyyy - atividade", acumulando o tempo por "atividade".
#! /urs/bin/perl
use strict;
use warnings;
use feature 'say';
use DateTime;
open my $arquivo, '<', 'C:/Documents and Settings/fabio.soares/Desktop/Observações.txt'
or die 'Erro ao abrir o arquivo de dados: $!';
#! /bin/bash
BASE_DIR=/root/dns
DADOS=$BASE_DIR/tmp/retorno.html
ATUAL=$BASE_DIR/atual.txt
LOG=$BASE_DIR/log/atualizacao-`date +%F`.log
SITES=$BASE_DIR/sites.txt
AFRAID='http://freedns.afraid.org/dynamic/update.php?<%---- hash here ------%>'
function buscar()
@fabioadrianosoares
fabioadrianosoares / cdstatus.c
Created May 18, 2013 19:40
Copiar CD para ISO
/* eject.c
** Copyright Paul Dwerryhouse, 1997-2004
*/
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <string.h>
#include <unistd.h>
#include <fcntl.h>
#include <limits.h>
@fabioadrianosoares
fabioadrianosoares / senha.sh
Created July 5, 2013 13:16
Gerar senha aleatório
#! /usr/bin/bash
#echo 'Obtendo senha do ddg...';
#senha=`wget -q --no-check-certificate -O - \
# https://duckduckgo.com/?q=password+10 | \
# sed -e 's/.*class="zero_click_answer">//' -e 's/ .*//'`;
echo 'Obtendo senha do /dev/urandom';
senha=`cat /dev/urandom | tr -dc A-Za-z0-9 | head -c 10`;
@fabioadrianosoares
fabioadrianosoares / Teste.java
Created October 6, 2013 23:47
Testes com arquivos em java
/* criar programa para ler arquivo entrada.txt com as informações: "estado;cidade"
e gravar saida.txt com "estado;qtd_cidade" ordeando do estado com mais cidades para
o com menos cidades */
import java.io.BufferedReader;
import java.io.BufferedWriter;
import java.io.FileNotFoundException;
import java.io.FileReader;
import java.io.FileWriter;
import java.io.IOException;